|
> http://croissant3.blog66.fc2.com/blog-entry-51.html
参考。
08/7/7(月) 20:47 は、
navigate後の待ちが足りないのでエラーが
出ているのではないですか。
Option Explicit
'Microsoft Internet Controlsに参照設定
'VistaならMicrosoft Browser Helpers(保護モード無効)
Private WithEvents objIE As InternetExplorer
Private flg As Boolean
Private Sub Workbook_Open()
Dim strURL As String
flg = False
strURL = "http://www.google.co.jp/"'httpは半角に。
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.navigate strURL
Do
DoEvents
Loop Until flg
End Sub
Private Sub objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is objIE Then
flg = True
End If
End Sub
|
|