Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1533 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6682】ホームページに接続 よし 05/10/30(日) 21:46 質問[未読]
【6683】Re:ホームページに接続 まさ7251 05/10/30(日) 22:11 回答[未読]
【6703】Re:ホームページに接続 よし 05/10/31(月) 22:26 質問[未読]
【6704】Re:ホームページに接続 まさ7251 05/10/31(月) 22:51 回答[未読]
【6705】接続できました。 よし 05/10/31(月) 23:07 お礼[未読]
【6712】Re:ホームページに接続 よし 05/11/1(火) 23:22 質問[未読]
【6713】Re:ホームページに接続 まさ7251 05/11/1(火) 23:28 回答[未読]
【6714】ありがとうございました。 よし 05/11/2(水) 8:53 お礼[未読]
【6682】ホームページに接続
質問  よし  - 05/10/30(日) 21:46 -
引用なし
パスワード
   アクセス2003を使用してます。
フォームのコマンドボタンをクリックするとinternet　Explorerが起動して
指定したアドレス（下記）
例「http://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=access」
に接続して表示するようにしたいのです。
宜しくお願い致します。
【6683】Re:ホームページに接続
回答  まさ7251  - 05/10/30(日) 22:11 -
引用なし
パスワード
   ▼よし さん：
>アクセス2003を使用してます。
>フォームのコマンドボタンをクリックするとinternet　Explorerが起動して
>指定したアドレス（下記）
>例「http://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=access」
>に接続して表示するようにしたいのです。
>宜しくお願い致します。

Shellを使えば出来ると思います。
InternetExplorerのEXEを指定し、
引数としてURLを指定すれば良いかと思います。
Shellの使い方は、ヘルプをご参照ください。
【6703】Re:ホームページに接続
質問  よし  - 05/10/31(月) 22:26 -
引用なし
パスワード
   早速のご回答ありがとうございます。
下記でやってみるとインターネットエクスプローラは起動するのですが、

Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", 1)

引数にUALをとのことで「http://www.goo.ne.jp/」を下記のように指定して
みたのですがエラーになります。

Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", http://www.goo.ne.jp/)

引数のやり方がよくわかりません。
どのように引数を設定すれば宜しいのでしょうか。
【6704】Re:ホームページに接続
回答  まさ7251  - 05/10/31(月) 22:51 -
引用なし
パスワード
   ▼よし さん：
>早速のご回答ありがとうございます。
>下記でやってみるとインターネットエクスプローラは起動するのですが、
>
>Dim RetVal
>RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", 1)
>
>引数にUALをとのことで「http://www.goo.ne.jp/」を下記のように指定して
>みたのですがエラーになります。
>
>Dim RetVal
>RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", http://www.goo.ne.jp/)

ちょっと説明がおかしかったですね。。。
RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.goo.ne.jp/",vbNormalFocus)
これでどうでしょうか。
vbNormalFocusの意味（他のものにするかの判断）は、
ヘルプをご覧ください。
【6705】接続できました。
お礼  よし  - 05/10/31(月) 23:07 -
引用なし
パスワード
   まさ7251 さん、ありがとうございました。
無事接続できました。
【6712】Re:ホームページに接続
質問  よし  - 05/11/1(火) 23:22 -
引用なし
パスワード
   たびたびすみません。
一つお聞きしたいのですが、「http://www.goo.ne.jp/」
の部分を同じフォームのテキストボックスAに表示させておいて
コマンドボタンをクリックすることで表示させたいのですが

下記のURLの部分を格納する変数で宣言してみたのですが
格納は出来たのですが、下記のURLの部分をどのように変更すればよろしいのでしょうか。
下のように試してみたのですが

Dim URL As string
Me.URL=テキストボックスA

RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE URL",vbNormalFocus)

宜しくお願い致します。
【6713】Re:ホームページに接続
回答  まさ7251  - 05/11/1(火) 23:28 -
引用なし
パスワード
   >Dim URL As string
>Me.URL=テキストボックスA
>
>RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE URL",vbNormalFocus)

以下でどうでしょうか。
RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " & テキストボックスA.Text, vbNormalFocus)
【6714】ありがとうございました。
お礼  よし  - 05/11/2(水) 8:53 -
引用なし
パスワード
   まさ7251 さん
無事できました。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1533 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080817
(SS)C-BOARD v3.8 is Free