Excel VBA質問箱 IV

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

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


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

【48679】ユーザーフォームにweb表示 nakamura 07/5/1(火) 20:25 質問[未読]
【48681】Re:ユーザーフォームにweb表示 ぱっせんじゃー 07/5/1(火) 20:40 発言[未読]
【48683】Re:ユーザーフォームにweb表示 nakamura 07/5/1(火) 20:50 発言[未読]
【48682】Re:ユーザーフォームにweb表示 ichinose 07/5/1(火) 20:43 発言[未読]
【48684】Re:ユーザーフォームにweb表示 nakamura 07/5/1(火) 21:07 発言[未読]
【48685】Re:ユーザーフォームにweb表示 ぱっせんじゃー 07/5/1(火) 21:11 発言[未読]
【48687】Re:ユーザーフォームにweb表示 neptune 07/5/1(火) 22:05 発言[未読]
【48691】Re:ユーザーフォームにweb表示 nakamura 07/5/2(水) 0:40 お礼[未読]
【48696】Re:ユーザーフォームにweb表示 Jaka 07/5/2(水) 14:12 発言[未読]
【48701】Re:ユーザーフォームにweb表示 nakamura 07/5/2(水) 16:54 お礼[未読]
【48702】Re:ユーザーフォームにweb表示 ぱっせんじゃー 07/5/2(水) 16:57 発言[未読]
【48703】Re:ユーザーフォームにweb表示 nakamura 07/5/2(水) 17:05 お礼[未読]
【48704】Re:ユーザーフォームにweb表示 ぱっせんじゃー 07/5/2(水) 17:39 発言[未読]
【48705】Re:ユーザーフォームにweb表示 nakamura 07/5/2(水) 17:50 お礼[未読]

【48679】ユーザーフォームにweb表示
質問  nakamura  - 07/5/1(火) 20:25 -

引用なし
パスワード
   本でちょっと見たのですが
ユーザーフォーム上にwebpageを表示することは
可能なんでしょうか
お解りになる方がいらっしゃるなら
方法を教えていただけませんか
よろしくお願いします。

【48681】Re:ユーザーフォームにweb表示
発言  ぱっせんじゃー  - 07/5/1(火) 20:40 -

引用なし
パスワード
   WebBrowserコントロール
でしょうか。

その他のコントロールから追加する必要があるかもしれません。

【48682】Re:ユーザーフォームにweb表示
発言  ichinose  - 07/5/1(火) 20:43 -

引用なし
パスワード
   ▼nakamura さん:
こんばんは。

>本でちょっと見たのですが
>ユーザーフォーム上にwebpageを表示することは
>可能なんでしょうか
>お解りになる方がいらっしゃるなら
>方法を教えていただけませんか
WebBrowserコントロールを貼り付けると表示可能になります。

msdn2.microsoft.com/ja-jp/library/w290k23d(VS.80).aspx


取り合えず、検索した結果、引っかかってきたものです。

【48683】Re:ユーザーフォームにweb表示
発言  nakamura  - 07/5/1(火) 20:50 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
ありがとうございます。
>WebBrowserコントロール

Microsoft Web Browserはその他コントロールにありました。
表示させるにはどんなやり方があるのでしょうか

>
>その他のコントロールから追加する必要があるかもしれません。

【48684】Re:ユーザーフォームにweb表示
発言  nakamura  - 07/5/1(火) 21:07 -

引用なし
パスワード
   ▼ichinose さん:
いつも回答参考にさせていただいてます

>WebBrowserコントロールを貼り付けると表示可能になります。
>
>msdn2.microsoft.com/ja-jp/library/w290k23d(VS.80).aspx
↑見ましたが難しそうですね。
具体的どうすればいいのかお解りになりますか?
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)


End Sub

>
>
>取り合えず、検索した結果、引っかかってきたものです。

【48685】Re:ユーザーフォームにweb表示
発言  ぱっせんじゃー  - 07/5/1(火) 21:11 -

引用なし
パスワード
   リンク先の↓は参考になりませんでしたか?

>方法 : WebBrowser コントロールで URL に移動する

【48687】Re:ユーザーフォームにweb表示
発言  neptune  - 07/5/1(火) 22:05 -

引用なし
パスワード
   ▼nakamura さん:
こんにちは

>↑見ましたが難しそうですね。
>具体的どうすればいいのかお解りになりますか?
ではなく、先ずは自分で探して考えて見ましょう。

Helpです。英語ですけど。
//msdn2.microsoft.com/en-us/library/aa752041.aspx
//msdn2.microsoft.com/en-us/library/aa752043.aspx
多分日本語のHelpは入手不可じゃないかな????昔はありましたけど。

「"Microsoft Web ブラウザ コントロール" ヘルプ」
をキーワードにググッて見てください。
日本語のサンプルがヒットします。

【48691】Re:ユーザーフォームにweb表示
お礼  nakamura  - 07/5/2(水) 0:40 -

引用なし
パスワード
   ぱっせんじゃーさん
ichinoseさん
neptuneさん
ありがとうございました。
いろいろやってみました。
旨くできました。

【48696】Re:ユーザーフォームにweb表示
発言  Jaka  - 07/5/2(水) 14:12 -

引用なし
パスワード
   ちょっと手が止まって、時間つぶしのスレ。

フォーム上に
Micrsoft Web Browser
を作って、

ボタンのコード
Private Sub CommandButton1_Click()
URLADS = "HTTp://www.vbalab.net/vbaqa/c-board.cgi?id=excel"
      ↑
     実際は小文字
WebBrowser1.Navigate URLADS
End Sub

【48701】Re:ユーザーフォームにweb表示
お礼  nakamura  - 07/5/2(水) 16:54 -

引用なし
パスワード
   ▼Jaka さん:
ありがとうございます。
下記コードコンパイルエラーが出てしまいます。?

>フォーム上に
>Micrsoft Web Browser
>を作って、
>
>ボタンのコード
>Private Sub CommandButton1_Click()
>URLADS = "HTTp://www.vbalab.net/vbaqa/c-board.cgi?id=excel"
>      ↑
>     実際は小文字
>WebBrowser1.Navigate URLADS
>End Sub
そこで
Sub ユーザーフォームのウェブ()
  URLADS = "HTTp://www.vbalab.net/vbaqa/c-board.cgi?id=excel"
  UserForm1.WebBrowser1.Navigate URLADS
  UserForm1.Show
End Sub
やってみました。

【48702】Re:ユーザーフォームにweb表示
発言  ぱっせんじゃー  - 07/5/2(水) 16:57 -

引用なし
パスワード
   > ↑
> 実際は小文字

これが残っているとか。

【48703】Re:ユーザーフォームにweb表示
お礼  nakamura  - 07/5/2(水) 17:05 -

引用なし
パスワード
   ↓やりましたが

Private Sub CommandButton1_Click()
URLADS = "HTTp://www.yahoo.co.jp/"
WebBrowser1.Navigate URLADS
End Sub

【48704】Re:ユーザーフォームにweb表示
発言  ぱっせんじゃー  - 07/5/2(水) 17:39 -

引用なし
パスワード
   こちらでも試行しましたが、
エラーになりませんでした。

【48705】Re:ユーザーフォームにweb表示
お礼  nakamura  - 07/5/2(水) 17:50 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>こちらでも試行しましたが、
>エラーになりませんでした。
フォーム上のコマンドボタンなんですね
できました。
jakaさん
ありがとうございました。

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