【VBA】ダブルクオーテーション内で変数を使いたい

VBAでChromeを自動操作するツールを製作中なのですが、

以下のコードの(1)のところを変数に変えたく、

VBA
1driver.FindElementByCss("body > div.default-container > main > div.l-content > section > div.items-box-content.clearfix > section:nth-child(1) > a > figure > img").Click

以下のように「＆」を使って変数「product_counts」を埋め込んだのですが、

VBA
1driver.FindElementByCss("body > div.default-container > main > div.l-content > section > div.items-box-content.clearfix > section:nth-child("&product_counts&") > a > figure > img").Click

以下のようなエラーが出てしまいます。

コンパイルエラー
修正候補 区切り記号または)

解決策をご存じの方は、ぜひ教えていただけますと幸いです。
よろしくお願いいたします。

念のため、ここまでのコード全部を以下に貼っておきます。

VBA
1'待機
2#If VBA7 And Win64 Then
3Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) '64ビットのエクセルで呼び出し
4#Else
5Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) '32ビットのエクセルで呼び出し
6#End If
7
8Sub mercari_auto_comment_tool()
9
10Dim time As Long
11
12'シートを移動
13
14Sheets("商品情報").Select
15
16If Cells(2, 1) = "" Then
17
18    MsgBox "入力してください。もしくは､入力内容に不備があります｡ "
19
20Else
21
22        Sheets("商品情報").Select
23        
24        
25        'ループ処理 URL開く
26        
27        Dim i As Integer
28        Dim tim As Integer
29        
30        i = 2
31        tim = i
32        
33        
34        Do While tim = i
35        
36            Sleep 1500
37            
38            'URLを開く
39        
40            Dim driver As New Selenium.ChromeDriver
41        
42            driver.SetCapability "debuggerAddress", "127.0.0.1:9222"
43        
44            driver.Start "chrome"
45            
46            driver.Get Cells(i, 6)
47                
48                
49                'ループ処理 商品詳細開く
50                
51                Dim product_counts As Integer
52                Dim product_variable As Integer
53                
54                product_counts = 1
55                product_variable = product_counts
56                
57                
58                    '商品詳細開く
59                    
60                    driver.FindElementByCss("body > div.default-container > main > div.l-content > section > div.items-box-content.clearfix > section:nth-child("&product_counts&") > a > figure > img").Click
61                    
62                    Stop

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

回答1件

ベストアンサー

& が結合演算子として解釈されるように、前後に空白を入れてコーディングしてみて下さい。

VBA
1driver.FindElementByCss("body > div.default-container > main > div.l-content > section > div.items-box-content.clearfix > section:nth-child(" & product_counts & ") > a > figure > img").Click
2

投稿2021/07/25 01:02