|
▼ゆきえ さん:
おはようございます。
>
>>まず、「Microsoft Internet Controls」を参照設定して下さい。
>
>よく知らないのですが↑を設定しないとダメなめなんですよね。
>自動で上記の設定ができるとか、他の方法はないですよね?
参照設定をVBAで行うという仕様は、
Vbprojectを操作するコードで可能ですが、
う−ん、使わないほうがよいでしょう。
Excel2002からは、設定が必要ですから。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=37375;id=excel
ここでも同じような発言をしています。
特に不特定多数のVBAなんて知らない方がユーザーならば尚のことです。
参照設定を使わないなら、私が思いつくのは
Vbscriptを使用してしまう方法です。
VBSのコードで全部やってしまう方法です。
(つまり、本当ならVBAは要らない方法です)。
これも一例ですが、
テキストファイルに
'===================================================
dim ie,ieev,e_ev
ieev =0
Set ie =wscript.CreateObject("InternetExplorer.Application", "ie_")
With ie
.Visible = True
.Navigate "http://www.vbalab.net/"
End With
e_ev=0
do while e_ev=0
wscript.sleep 100
loop
'==========================================
Sub ie_DocumentComplete(pDisp, URL)
If ieev = 1 Then
'ここに実行するコード
WScript.Echo URL '現在のURLを表示
End If
ieev = 1
End Sub
'==========================================
Sub ie_OnQuit()
Set ie = Nothing
e_ev=1
End Sub
として、
ファイル名として、
Vbstext.Vbs なんて名前で保存します。
このファイルを直接起動してもよいですが、
VBAで起動するなら、
Sub main()
CreateObject("wscript.shell").Run """" & ThisWorkbook.Path & "\vbstext.vbs"""
End Sub
'ブックとvbsファイルが同じフォルダ上にある場合
それより、どうしてですか?
参照設定したくない理由は?
|
|