回答編集履歴
3
コード修正
test
CHANGED
|
@@ -56,7 +56,7 @@
|
|
|
56
56
|
|
|
57
57
|
DoEvents
|
|
58
58
|
|
|
59
|
-
Loop
|
|
59
|
+
Loop While ser Is Nothing
|
|
60
60
|
|
|
61
61
|
ser.Value = src
|
|
62
62
|
|
2
コード修正
test
CHANGED
|
@@ -48,11 +48,17 @@
|
|
|
48
48
|
|
|
49
49
|
With htmlDoc
|
|
50
50
|
|
|
51
|
-
Dim ser As
|
|
51
|
+
Dim ser As HTMLInputElement
|
|
52
52
|
|
|
53
|
-
|
|
53
|
+
Do
|
|
54
54
|
|
|
55
|
+
Set ser = htmlDoc.getElementById("SearchInput")
|
|
56
|
+
|
|
57
|
+
DoEvents
|
|
58
|
+
|
|
59
|
+
Loop until ser Is Nothing
|
|
60
|
+
|
|
55
|
-
|
|
61
|
+
ser.Value = src
|
|
56
62
|
|
|
57
63
|
.getElementById("SearchButton").Click
|
|
58
64
|
|
1
説明追記、コード追記
test
CHANGED
|
@@ -33,3 +33,29 @@
|
|
|
33
33
|
|
|
34
34
|
|
|
35
35
|
ログイン後に'waitIE'で読み込み完了したIEを破棄して、新規に空のIEを開くことになりますので、何も取得できません。
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
---
|
|
40
|
+
|
|
41
|
+
あと、検索実行の部分のコードを下記のように修正してみてください。
|
|
42
|
+
|
|
43
|
+
|
|
44
|
+
|
|
45
|
+
```vba
|
|
46
|
+
|
|
47
|
+
'検索実行
|
|
48
|
+
|
|
49
|
+
With htmlDoc
|
|
50
|
+
|
|
51
|
+
Dim ser As Object
|
|
52
|
+
|
|
53
|
+
Set ser = htmlDoc.getElementById("SearchInput")
|
|
54
|
+
|
|
55
|
+
ser.Value = src
|
|
56
|
+
|
|
57
|
+
.getElementById("SearchButton").Click
|
|
58
|
+
|
|
59
|
+
End With
|
|
60
|
+
|
|
61
|
+
```
|