回答編集履歴
3
コード修正
answer
CHANGED
|
@@ -27,7 +27,7 @@
|
|
|
27
27
|
Do
|
|
28
28
|
Set ser = htmlDoc.getElementById("SearchInput")
|
|
29
29
|
DoEvents
|
|
30
|
-
Loop
|
|
30
|
+
Loop While ser Is Nothing
|
|
31
31
|
ser.Value = src
|
|
32
32
|
.getElementById("SearchButton").Click
|
|
33
33
|
End With
|
2
コード修正
answer
CHANGED
|
@@ -23,9 +23,12 @@
|
|
|
23
23
|
```vba
|
|
24
24
|
'検索実行
|
|
25
25
|
With htmlDoc
|
|
26
|
-
Dim ser As
|
|
26
|
+
Dim ser As HTMLInputElement
|
|
27
|
+
Do
|
|
27
|
-
|
|
28
|
+
Set ser = htmlDoc.getElementById("SearchInput")
|
|
29
|
+
DoEvents
|
|
30
|
+
Loop until ser Is Nothing
|
|
28
|
-
|
|
31
|
+
ser.Value = src
|
|
29
32
|
.getElementById("SearchButton").Click
|
|
30
33
|
End With
|
|
31
34
|
```
|
1
説明追記、コード追記
answer
CHANGED
|
@@ -15,4 +15,17 @@
|
|
|
15
15
|
略
|
|
16
16
|
```
|
|
17
17
|
|
|
18
|
-
ログイン後に'waitIE'で読み込み完了したIEを破棄して、新規に空のIEを開くことになりますので、何も取得できません。
|
|
18
|
+
ログイン後に'waitIE'で読み込み完了したIEを破棄して、新規に空のIEを開くことになりますので、何も取得できません。
|
|
19
|
+
|
|
20
|
+
---
|
|
21
|
+
あと、検索実行の部分のコードを下記のように修正してみてください。
|
|
22
|
+
|
|
23
|
+
```vba
|
|
24
|
+
'検索実行
|
|
25
|
+
With htmlDoc
|
|
26
|
+
Dim ser As Object
|
|
27
|
+
Set ser = htmlDoc.getElementById("SearchInput")
|
|
28
|
+
ser.Value = src
|
|
29
|
+
.getElementById("SearchButton").Click
|
|
30
|
+
End With
|
|
31
|
+
```
|