|
|
|
2023.02.27
テーマ：ホームページ作成の悩み(546)
カテゴリ：エクセルとパソコン
楽天サイトから機能性食品データー(６３９０個)を抽出しました。
凄く時間もかかりました。 パソコンの能力が・・・ かもしれませんね でも画像が抽出出来ていません。 Excelシートに データーの抽出はできていましたが画像は 表示URLだけ 気みたいな感じです ”https://tshop.r10s.jp/powerfullworld/cabinet/08833157/08833159/imgrc0105215552.jpg?fitin=275:275” https://tshop.r10s.jp/koyama-p/cabinet/2kenkoushokuhin/3/4987306039186.jpg?fitin=275:275 これもマジに時間がかかっています。 そうなんです まだ全部が抽出出来ていません 現在４３９０個まで抽出できましたが Excelが 重い ・・・・・ あたりまえですが エクセルのデーター量が凄いことになっています。 全部を抽出してから加工に手を付けたいと思ったのですが・・・・・ 加工も時間がかかりそうな感じがしています。 私は経験があります。 むかしは記憶媒体が フロッピーデスク 若い人は知らないでしょうね 早い話が デスク一枚にExcelのデーターが収まらない ホント 泣く泣く データーの分割 時間が・・・残業が・・・ 画像の抽出もデーターの抽出も ChatGPT のお世話になりました。 そうなんです Excelマクロを ChatGPT に書いてもらいました。 一回では できませんでしたが ・・・・ 現在４９０８個で止まっています。 ”Sub InsertPictures() Dim imgURL As String Dim pic As Shape For i = 4867 To 5000 imgURL = Cells(i, 3).Value If imgURL <> "" Then Set pic = ActiveSheet.Shapes.AddPicture(imgURL, False, True, Cells(i, 4).Left + Cells(i, 4).Width, Cells(i, 4).Top, -1, -1) ' 画像のリサイズ pic.LockAspectRatio = msoTrue pic.Height = Cells(i, 4).Height pic.Width = Cells(i, 4).Width ' セルの横幅を調整 Cells(i, 4).Offset(0, 1).ColumnWidth = pic.Width / 7 End If Next i Application.Run "【楽天市場】機能性表示食品の通販.xlsx!InsertPictures" ActiveSheet.Shapes.Range(Array("Picture 2")).Select ”
楽天から画像URLから画像を抽出するExcelの目黒です。 ChatGPT に考えてもらいました。 ChatGPT は本当に凄いですね 文章はライバルを意識したのか 文章趣旨にそった 文章作成に改正しました。 テンプレートには ・・・・ およ またChatGPTが変わってますね 一日で 変わってますね ChatGPT も必死なのかな ？ でも プログラミングとテクノロジー のカテゴリーを 発見・・ 一安心ですね でも本当に凄いことです 今まで 学校で学んだこともなく高校出の私が マクロを使えるなんて・・・ 孫たち 中学生 高校生 宿題はChatGPTで５分で終了 なんて時代です。 私のスマホには ChatGPTが使えるようになっています。 どうか 学べる事 知識を 積み重ねる面白さ どうか どうか どうか 諦めないで欲しい 考えることを止めない 辞めないで欲しいと願っています。 お気に入りの記事を「いいね！」で応援しよう
最終更新日
2023.02.27 15:17:49
コメント(0) | コメントを書く
[エクセルとパソコン] カテゴリの最新記事
|
