| |
▼ゆきえ さん：
おはようございます。
>
>>まず、「Microsoft Internet Controls」を参照設定して下さい。
>
>よく知らないのですが↑を設定しないとダメなめなんですよね。
>自動で上記の設定ができるとか、他の方法はないですよね？
参照設定をＶＢＡで行うという仕様は、
Vbprojectを操作するコードで可能ですが、
う−ん、使わないほうがよいでしょう。
Excel2002からは、設定が必要ですから。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=37375;id=excel
ここでも同じような発言をしています。
特に不特定多数のＶＢＡなんて知らない方がユーザーならば尚のことです。
参照設定を使わないなら、私が思いつくのは
Vbscriptを使用してしまう方法です。
ＶＢＳのコードで全部やってしまう方法です。
（つまり、本当ならＶＢＡは要らない方法です）。
これも一例ですが、
テキストファイルに
'===================================================
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 なんて名前で保存します。
このファイルを直接起動してもよいですが、
ＶＢＡで起動するなら、
Sub main()
CreateObject("wscript.shell").Run """" & ThisWorkbook.Path & "\vbstext.vbs"""
End Sub
'ブックとvbsファイルが同じフォルダ上にある場合
それより、どうしてですか？
参照設定したくない理由は？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
