楽天サイトから機能性食品データー(6390個)を抽出しました。
楽天サイトから機能性食品データー(6390個)を抽出しました。凄く時間もかかりました。パソコンの能力が・・・ かもしれませんねでも画像が抽出出来ていません。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これもマジに時間がかかっています。そうなんです まだ全部が抽出出来ていません 現在4390個まで抽出できましたが Excelが 重い ・・・・・あたりまえですが エクセルのデーター量が凄いことになっています。全部を抽出してから加工に手を付けたいと思ったのですが・・・・・加工も時間がかかりそうな感じがしています。私は経験があります。むかしは記憶媒体が フロッピーデスク 若い人は知らないでしょうね早い話が デスク一枚にExcelのデーターが収まらないホント 泣く泣く データーの分割 時間が・・・残業が・・・画像の抽出もデーターの抽出も ChatGPT のお世話になりました。そうなんです Excelマクロを ChatGPT に書いてもらいました。一回では できませんでしたが ・・・・現在4908個で止まっています。”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で5分で終了 なんて時代です。私のスマホには ChatGPTが使えるようになっています。どうか 学べる事 知識を 積み重ねる面白さどうか どうか どうか 諦めないで欲しい 考えることを止めない 辞めないで欲しいと願っています。