ExcelでGoogle画像検索から一括ダウンロード （エラーが出たら参考にして下さい）

Excel VBAを使って、Google画像検索の検索結果から画像を一括ダウンロードできるソフトが、フリーで公開されています (;￣Д￣)なんじゃと？

VBAアクションゲーム？Excel（エクセル）で動かそう！ の[企画ものコンテンツ]欄にある 「Google画像検索一括ダウンロード保存」 がソレです。

これをダウンロードして実行すると、エクセルが起動し検索欄のある画面が表示されます。
（私の環境は Windows7 32bit版、Excel 2010 です）

起動時に セキュリティ に関する通知がきますが、いずれも 有効 や 許可 などを指示し、 検索欄に文字入力できるところまでに至ったら、そこで 上書き保存することで 次回からスムースに検索できるうようになります (・ ω・)ノ

ためしに、 1/144 ガンプラ旧キット と入力しました．．． (´・ ω｀・)えっ

エラーです (-ω-；)ウーン

しかし、この作者は太っ腹です。 ダウンロードページには
「 VBAプロジェクトのロックはかけていません。ソースコードを公開していますで、そちらもお楽しみください。 」 とあります。

ですから、上の画面で ［デバッグ］ ボタンを押すとデバッガが起動し、どこでエラーとなっているかが分かります。

 

で、どうやら画像を格納するフォルダ名に “このエクセルファイルのあるフォルダ ＋ 検索文字列 ＋ 年月日時分秒” をあてがうようです。

そうなると1/144 の /（スラッシュ）の字が フォルダ名に適さないのでエラーとなっているようだと 推測できました (・ω・)ﾅﾙﾎﾄﾞ

検索文字列を 1_144 ガンプラ旧キット に変えたところ、フォルダが作成され 画像が格納されていることを確認しました。

みなさん、検索文字列に、フォルダ名に不適切な文字を使わないようにしましょう
(・ω・)ノ