回答編集履歴
2
変数の誤り修正 hInputBox3
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
DoEvents: Sleep 50
|
|
30
30
|
|
|
31
|
-
Call SendMessage(hInputBox, &HC, 0, "C:\test.jpg") 'ファイルのフルパス入力
|
|
31
|
+
Call SendMessage(hInputBox3, &HC, 0, "C:\test.jpg") 'ファイルのフルパス入力
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
1
追記（IE待機処理）
test
CHANGED
|
@@ -39,3 +39,29 @@
|
|
|
39
39
|
End If
|
|
40
40
|
|
|
41
41
|
```
|
|
42
|
+
|
|
43
|
+
**＜追記＞**
|
|
44
|
+
|
|
45
|
+
Click直後に以下のようなIE待機処理を入れてみてください。
|
|
46
|
+
|
|
47
|
+
```VBA
|
|
48
|
+
|
|
49
|
+
Dim RepeatSec As Single: RepeatSec = Timer
|
|
50
|
+
|
|
51
|
+
Do While objIE.Busy = True Or objIE.readyState < 4 'READYSTATE_COMPLETE
|
|
52
|
+
|
|
53
|
+
DoEvents
|
|
54
|
+
|
|
55
|
+
Sleep 200 '200ms停止
|
|
56
|
+
|
|
57
|
+
If (Timer - RepeatSec) > 60 Then '60秒以上停止
|
|
58
|
+
|
|
59
|
+
MsgBox "サーバーが応答していません。"
|
|
60
|
+
|
|
61
|
+
End
|
|
62
|
+
|
|
63
|
+
End If
|
|
64
|
+
|
|
65
|
+
Loop
|
|
66
|
+
|
|
67
|
+
```
|