Excel VBA質問箱 IV

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

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


12977 / 13646 ツリー ←次へ | 前へ→

【7666】VBAから、ieを開いて5つのホ−ムページへ KENT 03/9/11(木) 16:12 質問
【7675】Re:VBAから、ieを開いて5つのホ−ムページ... INA 03/9/11(木) 17:11 回答

【7666】VBAから、ieを開いて5つのホ−ムページへ
質問  KENT  - 03/9/11(木) 16:12 -

引用なし
パスワード
   エクセルのVBAから、5つのホ−ムページをIE6にて開く方法がありましたらどなたか教えてください。よろしくお願いします。

【7675】Re:VBAから、ieを開いて5つのホ−ムページ...
回答  INA  - 03/9/11(木) 17:11 -

引用なし
パスワード
   IEを5個起動するのですよね?

いま適当に考えて作ってみました。一応、目的の動作はするみたいです。
テストのため開くのは2つにしてありますが、あとは同様です。
コマンドボタン起動にしてあります。適当に変えて下さい。

Private Sub CommandButton1_Click()
Dim Ret As Long

Ret = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Ret = ShellExecute(0, "open", "http://sports.yahoo.co.jp/", "", "", 1)

Ret = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Ret = ShellExecute(0, "open", "http://travel.yahoo.co.jp/", "", "", 1)

End Sub

−−−−−−−−−−−−−−−−−−−−−−−−−−−−
<標準モジュールにコピペして下さい。>

' API関数 「ShellExecute」
Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd_ As Long) _
As Long

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