Excel VBA質問箱 IV

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

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


69539 / 76732 ←次へ | 前へ→

【11711】Re:エクセルからインターネットエクスプローラーを開きたい(追伸)
発言  ichinose  - 04/3/15(月) 10:38 -

引用なし
パスワード
   ▼カド さん:
こんにちは。
>実行してみましたが、IEが5個立ち上がりました。
>
>全て”お探しのページは有りません。”というサイトで、
>一つも自動では閉じないのですが。。。
ははっ、私が勘違いしていたみたいです。
私が確認したのは「ページを表示できません」
と言う場合でした。失礼しました(昨日から、連発)。
クラスモジュールは、そのままで以下のような場合でした。
'=====================================================
Private ie_class(1 To 5) As Class1
Sub main()
  Range("b1:b5").Value = _
     Application.Transpose(Array( _
       "http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=11679;id=excel", _
       "http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=11680;id=excel", _
       "http://www.vbalob.net/vbaqa/c-board.cgi?cmd=one;no=11679;id=excel", _
       "http://www.vbalab.net/vbaqa/c-board.cgi", _
       "http://www.vbalob.net/vbaqa/c-board.cgi?cmd=one;no=11679;id=excel"))
  '↑セルにデータセット、Urlの3行目と5行目が見つからないもの
  For idx = 1 To 5
   Set ie_class(idx) = New Class1
   With ie_class(idx)
     Set .ep = CreateObject("InternetExplorer.Application")
     .err_flg = False
     With .ep
      .Visible = True
      .Navigate Range("b" & idx).Value
      Do While .Busy = True Or .ReadyState <> READYSTATE_COMPLETE
        DoEvents
        Loop
      End With
     If .err_flg = True Then
      .ep.Quit
      End If
     End With
   Next idx
End Sub

で、”お探しのページは有りません。”というサンプルURLを
教えていただけますか?
ちょっと、探しましたが、見つかりませんでした。
と言っても勘違いしてましたから、ご希望の回答が出来るか
わかりませんが・・・。
2 hits

【11674】エクセルからインターネットエクスプローラーを開きたい カド 04/3/14(日) 7:00 質問
【11677】Re:エクセルからインターネットエクスプロ... りん 04/3/14(日) 9:20 回答
【11679】Re:エクセルからインターネットエクスプロ... カド 04/3/14(日) 11:36 質問
【11680】Re:エクセルからインターネットエクスプロ... カド 04/3/14(日) 12:04 質問
【11699】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 1:15 回答
【11700】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 1:21 発言
【11709】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 9:50 質問
【11711】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 10:38 発言
【11712】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 10:47 質問
【11748】Re:エクセルからインターネットエクスプロ... ichinose 04/3/15(月) 18:53 発言
【11750】Re:エクセルからインターネットエクスプロ... カド 04/3/15(月) 19:26 質問
【11997】解決 カド 04/3/21(日) 7:01 回答

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