質問編集履歴
1
エラーメッセージを追加しました。
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBA selenium ドロップダウンリストの選択方法を教えてください。
|
|
1
|
+
VBA selenium ドロップダウンリストの選択方法でのエラー解決方法を教えてください。
|
body
CHANGED
|
@@ -37,7 +37,7 @@
|
|
|
37
37
|
|
|
38
38
|
|
|
39
39
|
Dim rc As Long
|
|
40
|
-
Dim elm As Selenium.
|
|
40
|
+
Dim elm As Selenium.WebElement
|
|
41
41
|
|
|
42
42
|
rc = MsgBox("ログイン完了したらOKボタンを押してください", vbOKOnly)
|
|
43
43
|
|
|
@@ -55,7 +55,18 @@
|
|
|
55
55
|
|
|
56
56
|
'ここに選択するコードを書きたい
|
|
57
57
|
|
|
58
|
+
'------追記-----------------------------------------------------------------
|
|
59
|
+
Dim optionText As String
|
|
58
60
|
|
|
61
|
+
|
|
62
|
+
|
|
63
|
+
optionText = Worksheets("Sheet1").Range("a1").Value '←ここでエラーになってしまいます
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
Driver.FindElementByName("categoryId").AsSelect.SelectByText (optionText)
|
|
68
|
+
'-----------------------------------------------------------------------------
|
|
69
|
+
|
|
59
70
|
|
|
60
71
|
End If
|
|
61
72
|
Driver.Close
|
|
@@ -63,8 +74,15 @@
|
|
|
63
74
|
|
|
64
75
|
End Sub
|
|
65
76
|
```
|
|
77
|
+
解決策を教えて頂いたのですが追記矢印の場所で
|
|
66
78
|
|
|
79
|
+
実行時エラー59
|
|
80
|
+
|
|
81
|
+
レコード長が正しくありません
|
|
82
|
+
|
|
83
|
+
と出てしまいました。自分なりにググってみたのですがよくわからないので教えて頂けましたら
|
|
84
|
+
幸いです。よろしくお願いいたします。
|
|
67
85
|
環境
|
|
68
86
|
Windows10
|
|
69
87
|
|
|
70
|
-
|
|
88
|
+
Excel 2016
|