| |
補足です。
現在のソースは以下です。
Private Sub test_Click()
Dim objIE As Object
Dim objIE2 As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "ｈｔｔｐ://xxx/login/"
objIE.Visible = False
Do While objIE.Busy = True
DoEvents
Loop
'テストボックスへ入力
objIE.Document.all("ID").Value = "ID"
objIE.Document.all("passWord").Value = "password"
'ボタンクリック
objIE.Document.all("login").Click
Do While objIE.Busy = True
DoEvents
Loop
Set objIE2 = CreateObject("InternetExplorer.Application")
objIE2.Navigate "ｈｔｔｐ://xxx/dllist
objIE2.Visible = True
objIE2.FullScreen = True
Do While objIE2.Busy = True
DoEvents
Loop
objIE2.Document.all("filename").Value = "testfile"
objIE2.Document.all("download").Click
Sleep (2000) '2秒待つ
SendKeys "%s"
objIE2.Quit
Set objIE = Nothing
Set objIE2 = Nothing
End Sub
|
|
vbasql
- 11/11/5(土) 21:09 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
