質問編集履歴
1
エラーメッセージを追加しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBA selenium ドロップダウンリストの選択方法を教えてください。
|
|
1
|
+
VBA selenium ドロップダウンリストの選択方法でのエラー解決方法を教えてください。
|
test
CHANGED
|
@@ -76,7 +76,7 @@
|
|
|
76
76
|
|
|
77
77
|
Dim rc As Long
|
|
78
78
|
|
|
79
|
-
Dim elm As Selenium.Web
|
|
79
|
+
Dim elm As Selenium.WebElement
|
|
80
80
|
|
|
81
81
|
|
|
82
82
|
|
|
@@ -112,7 +112,29 @@
|
|
|
112
112
|
|
|
113
113
|
|
|
114
114
|
|
|
115
|
+
'------追記-----------------------------------------------------------------
|
|
116
|
+
|
|
117
|
+
Dim optionText As String
|
|
118
|
+
|
|
115
119
|
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
125
|
+
optionText = Worksheets("Sheet1").Range("a1").Value '←ここでエラーになってしまいます
|
|
126
|
+
|
|
127
|
+
|
|
128
|
+
|
|
129
|
+
|
|
130
|
+
|
|
131
|
+
|
|
132
|
+
|
|
133
|
+
Driver.FindElementByName("categoryId").AsSelect.SelectByText (optionText)
|
|
134
|
+
|
|
135
|
+
'-----------------------------------------------------------------------------
|
|
136
|
+
|
|
137
|
+
|
|
116
138
|
|
|
117
139
|
|
|
118
140
|
|
|
@@ -128,7 +150,21 @@
|
|
|
128
150
|
|
|
129
151
|
```
|
|
130
152
|
|
|
153
|
+
解決策を教えて頂いたのですが追記矢印の場所で
|
|
131
154
|
|
|
155
|
+
|
|
156
|
+
|
|
157
|
+
実行時エラー59
|
|
158
|
+
|
|
159
|
+
|
|
160
|
+
|
|
161
|
+
レコード長が正しくありません
|
|
162
|
+
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
と出てしまいました。自分なりにググってみたのですがよくわからないので教えて頂けましたら
|
|
166
|
+
|
|
167
|
+
幸いです。よろしくお願いいたします。
|
|
132
168
|
|
|
133
169
|
環境
|
|
134
170
|
|
|
@@ -136,4 +172,4 @@
|
|
|
136
172
|
|
|
137
173
|
|
|
138
174
|
|
|
139
|
-
Excel2016
|
|
175
|
+
Excel 2016
|