![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBAを使ってgoogleのキーワード検索結果に表示される10文字程度の文字列を取得する作業を
検索キーワードを変化させて200件ほど取得しようと考えております。
(当然200回googleへのアクセスとなります)
以下のコードをdo untilで実行し、
変数"hogehoge"には"URL;https://www.google.co.jp/search?q=(任意のキーワード)"を代入します。
(任意のキーワード部分は200種類あります。)
-------------------------------------
With Sheets("web").QueryTables.Add( _
Connection:=hogehoge, _
Destination:=web.Cells(1, 1))
.WebSelectionType = xlEntirePage
.Refresh BackgroundQuery:=False
.Parent.Names(.Name).Delete
.Delete
End With
-------------------------------------
Destinationであるweb.Cells(1, 1))には検索結果ページが丸ごと入るので、
ここから欲しい文字列を正規表現で抜き取り、別のセルに移し替えます。
これにより別のセルに欲しい文字列(10文字程度)がどんどん追加されるのですが、
40件前後の取得を実行すると様々な理解不能なエラー文が出てきて停止してしまいます。
エラー文の例
---------------------------------------------------
エラー1004
サイトへのリクエストが正しくありません
---------------------------------------------------
実行時エラー 91
オブジェクト変数またはwithブロック変数が設定されていません
---------------------------------------------------
エラーで止まった直後に再度実行しても同じエラーが出て動きませんが
VBAを完全に終了させて、2~30分放置した後何気なく開始してみるとまた動き始めて、
40件程度取得し始めますが、再度同じエラーで停止します。
何が何だかさっぱりです、、、
このような作業はVBAに向かないという事なのでしょうか?
それとも上記のコードになにかおかしな点があるのでしょうか?
apiを使うべきだとも考えておりますが是非この方法でなんとかしたいと考えております。
大変お手数ですがお分かりになる方ご教示願いませんでしょうか?
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- オープンソース Python openpyxlを使用したセル番地の使用について 1 2023/08/03 22:05
- C言語・C++・C# プログラミングの問題です。至急教えてください。 /***から***/の部分をプログラミングにしてほし 1 2022/10/13 11:48
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- オープンソース ChatGPTをスプレッドシートと連携して自動でリサーチしたいんですがうまく出来ません。。。 1 2023/05/05 15:59
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
プロシージャ名の取得
-
1列目の何行目に検索文字がある...
-
VBAで実行時エラー'424' オブジ...
-
ACCESS2000VBAでエラー「型が一...
-
「コンパイルエラー:プロシー...
-
VBで構造体を使うさ際の64k...
-
実行時エラー3001「引数が間違...
-
Excel2003でworksheetクラスのC...
-
マクロについて教えてください...
-
ExcelVBAでのエラー回避
-
VBAでのエラー
-
実行時エラー -'-2147417848
-
VBA 別シートのセルから、文字...
-
ASPでメール送信時エラーが出る
-
VBSで変数の宣言はできないので...
-
Word起動時のエラー「実行時エ...
-
ExcelVBAで、ユーザー定義型は...
-
VBAのWEBクエリが中断されます
-
VBAを使ってLEFT関数の貼り付け...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
実行時エラー -'-2147417848
-
マクロについて教えてください...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
ADODB.Streamを使用してUTF-8を...
-
VBS実行時エラー オブジェクト...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
なぜエラーになるのでしょうか...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
Application.ActiveInspectorで...
-
Excelで下記のようにマクロを作...
おすすめ情報