【VBA・スクレイピング】A列に入力されているセルの値を順に抽出し、googleで検索したいです。

実現したいこと

A2セルの値を抽出し、新しいタブでgoogleで検索、
A3セルの値を抽出し、新しいタブでgoogleで検索、
をA11セルまで（10個）行い、いったん終了。
その後、もう1度プロシージャを実行したら、
A12からA21セルについて、次の実行ではA22からA31セルについて
同様の処理がなされるようにしたい。

発生している問題・分からないこと

下記コードの実行で、
A2からA11までのセルについて新規タブで検索実行できており、その点は希望通りの動作をしています。
ただし、2回目の実行でも再度A2からA11までのセルについて処理がなされるので、
これを、A12からA21セルについて、次の実行ではA22からA31セルと処理されるようにしたいです。

該当のソースコード

Sub 質問用()

    Dim 検索ワード As String
    Dim ws As Worksheet: Set ws = Workbooks("scraping.xlsm").Sheets("sheet1")
    Static 行 As Long: 行 = 2
    
    
    Do Until 行 Mod 12 = 0
        検索ワード = ws.Cells(行, 1).Value
        CreateObject("WScript.shell").Run "https://www.google.com/search?q=" & 検索ワード
        行 = 行 + 1
    Loop


End Sub

試したこと・調べたこと

teratailやGoogle等で検索した
ソースコードを自分なりに変更した
知人に聞いた
その他

上記の詳細・結果

Staticステートメントを使うと、希望の処理ができそうだと思ったので、コードに入れてみたのですが、うまくできませんでした。

補足

特になし

poto568

2025/02/13 06:15

10行ずつ進める方針を mod 12 で実装するのは困難だと思いますので、 for next とかの開始行と終了行を指定する方式にした方が楽かもしれません。行カウンタはマクロを終了すると忘れられるので、2回目以降で継続動作をさせたい場合は、どこかに進行状況を記録することになると思います。 googleの利用規約をよく読んで、利用規約に違反していないことを明示しておくと有識者が回答をつけてくれるかもしれません。 https://developers.google.com/search/docs/essentials/spam-policies?hl=ja&rd=1#machine-generated-traffic 機械生成トラフィック(略) 明示的な許可なく Google 検索に自動アクセスするその他の行為もこれに含まれます。(略) このような行為は、Google のスパムに関するポリシーおよび Google 利用規約に対する違反となります。 https://developers.google.com/custom-search/v1/overview?hl=ja

meg_

2025/02/13 10:52

> VBA・スクレイピング】A列に入力されているセルの値を順に抽出し、googleで検索したいです。 Googleはスクレイピングのようなアクセスは禁止だったと思うので、上記は実現不可能だと思われます。また禁止されていない場合であっても適切な待機時間が必要ではないでしょうか？

行動規範の内容に同意します

回答1件

ベストアンサー

スクレイピングに関しては規約違反の可能性があるので、その辺の確認は質問者の方でとってください。

単純にStaticステートメントを利用した10行ずつ実行するというアルゴリズムを提示しておきます。

vba
1Public Sub 回答用()
2    Dim 検索ワード As String
3    Dim ws As Worksheet: Set ws = ActiveSheet 'Workbooks("scraping.xlsm").Sheets("sheet1")
4    Static 行 As Long
5    
6    Do
7        検索ワード = ws.Cells(行 + 2, 1).Value
8        
9        Debug.Print 検索ワード
10         
11        行 = 行 + 1
12    Loop Until 行 Mod 10 = 0
13    
14End Sub

10行ずつなのでModで割る数は10になります。
10の余りは０～9 なのでそれに2を加算したものが参照する行になります。

For ... Next ループを使うなら下記で。

vba
1Public Sub 回答用1()
2    Dim 検索ワード As String
3    Dim ws As Worksheet: Set ws = ActiveSheet 'Workbooks("scraping.xlsm").Sheets("sheet1")
4    Static 行 As Long: If 行 = 0 Then 行 = 2
5    
6    Dim i As Long
7    For i = 行 To 行 + 9
8        検索ワード = ws.Cells(i, 1).Value
9        
10        Debug.Print 検索ワード
11        
12    Next
13    行 = i
14
15End Sub