Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44344 / 76732 ←次へ | 前へ→

【37408】Re:IEを起動したあとのイベント
発言  ichinose  - 06/5/4(木) 8:03 -

引用なし
パスワード
   ▼ゆきえ さん:
おはようございます。

>
>>まず、「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ファイルが同じフォルダ上にある場合

それより、どうしてですか?
参照設定したくない理由は?
1 hits

【37400】IEを起動したあとのイベント ゆきえ 06/5/3(水) 20:03 質問
【37401】Re:IEを起動したあとのイベント かみちゃん 06/5/3(水) 20:20 発言
【37402】Re:IEを起動したあとのイベント ゆきえ 06/5/3(水) 20:38 発言
【37403】Re:IEを起動したあとのイベント かみちゃん 06/5/3(水) 20:39 発言
【37404】Re:IEを起動したあとのイベント ゆきえ 06/5/3(水) 20:59 発言
【37406】Re:IEを起動したあとのイベント ichinose 06/5/3(水) 22:02 発言
【37407】Re:IEを起動したあとのイベント ゆきえ 06/5/3(水) 22:21 お礼
【37408】Re:IEを起動したあとのイベント ichinose 06/5/4(木) 8:03 発言
【37409】Re:IEを起動したあとのイベント ゆきえ 06/5/4(木) 9:30 お礼

44344 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free