文書番号: 304643 - 最終更新日: 2005年4月12日 - リビジョン: 6.3

Visual Basic .NET で、WebBrowser コントロールを使用して Office ドキュメントを開く方法

対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。
この記事は、以前は次の ID で公開されていました: JP304643
Microsoft Visual C# .NET については、次の資料を参照してください。 304662? (http://support.microsoft.com/kb/304662/ )

目次

すべて展開する | すべて折りたたむ

概要

Visual Basic .NET フォームに Office ドキュメントを直接表示することや埋め込むことが必要な場合があります。以前のバージョンの Visual Basic とは異なり、Visual Basic .NET では、フォームに Office ドキュメントを埋め込むことができる OLE コントロールを提供していません。Visual Basic .NET フォームに既存のドキュメントを埋め込み、埋め込みの ActiveX ドキュメント オブジェクトとして開くために、Microsoft WebBrowser コントロールを使用できる場合があります。

この資料では、WebBrowser コントロールを使用して、Visual Basic .NET フォーム内部で既存の Office ドキュメントを参照、表示する方法を、例を挙げて説明します。
先頭へ戻る

詳細

ActiveX ドキュメントは埋め込み可能な OLE オブジェクトで、その動作は従来の OLE オブジェクトよりも ActiveX コントロールに似ています。従来の埋め込みオブジェクトとは異なり、ActiveX ドキュメントは大規模なドキュメントに含めるためのオブジェクトとしては設計されていません。単に Microsoft Internet Explorer などで表示されるか、他のドキュメントと共に単一のリソース (Microsoft Office Binder ファイルなど) に連結される、それ自体で完結したドキュメントと見なされます。WebBrowser コントロールでホストされる ActiveX ドキュメントは常にアクティブであるため、従来の OLE 埋め込みオブジェクトと異なり、"埋め込み先編集" という概念がありません。

現在の Microsoft Visual Basic .NET は ActiveX ドキュメントを直接ホストすることをサポートしていませんが、ホスティングの目的で WebBrowser コントロールを使用することは可能です。WebBrowser コントロール (Shdocvw.dll) は Internet Explorer の一部であり、Internet Explorer がインストールされているシステムのみで使用できます。
先頭へ戻る

Office ドキュメントを開く Visual Basic .NET アプリケーションを作成する

Office ドキュメントを開く Visual Basic .NET アプリケーションを作成するには、以下の手順を実行します。
  1. Visual Basic .NET で Windows アプリケーション プロジェクトを新規作成します。デフォルトで Form1 が作成されます。
  2. [ツール] メニューの [ツールボックスのカスタマイズ] (または [ツールボックス アイテムの追加と削除]) をクリックして、[ツールボックスのカスタマイズ] ダイアログ ボックスを開きます。[COM コンポーネント] タブで Microsoft WebBrowser への参照を追加します。[OK] をクリックすると、Windows フォーム ツールボックスに WebBrowser コントロールが追加されます。ツールボックスに WebBrowser コントロールが "Explorer" (または "Microsoft Web Browser") というテキストで表示されます。
  3. ツールボックスを使用して、Form1 に WebBrowser コントロール、OpenFileDialog コントロール、およびボタンを 1 つずつ追加します。この操作で、Form1 クラスに AxWebBrowser1、OpenFileDialog1、および Button1 メンバ変数が追加されます。
  4. Form1 クラスのプライベート メンバを以下のように定義します。 
    Dim oDocument as Object
  5. 次のコードを Form1 クラスに貼り付けます。 
    Private Sub Button1_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button1.Click
    Dim strFileName As String
    'Find the Office document.
    With OpenFileDialog1
        .FileName = ""
        .ShowDialog()
        strFileName = .FileName
    End With
    'If the user does not cancel, open the document.
    If strFileName.Length Then
        oDocument = Nothing
        AxWebBrowser1.Navigate(strFileName)
    End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
    Button1.Text = "Browse"
    With OpenFileDialog1
        .Filter = "Office Documents " & _
        "(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt"
        .FilterIndex = 1
    End With
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As _
   System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
    oDocument = Nothing
End Sub
Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, _
   ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) _
   Handles AxWebBrowser1.NavigateComplete2
    On Error Resume Next
    oDocument = e.pDisp.Document
    'Note: You can use the reference to the document object to
    '      automate the document server.
    MsgBox("File opened by: " & oDocument.Application.Name)
End Sub
  6. F5 キーを押してプロジェクトを実行します。[Browse] をクリックすると、[ファイルを開く] ダイアログ ボックスが表示されて Word、Excel、または PowerPoint のファイルを参照できるようになります。任意のファイルを選択して [開く] をクリックします。WebBrowser コントロール内でドキュメントが開き、Office ドキュメント サーバーの名前を示すメッセージ ボックスが表示されます。
先頭へ戻る

WebBrowser コントロール使用時の注意

WebBrowser コントロール使用時は、以下のことに注意してください。
  • WebBrowser コントロールは、非同期にドキュメントを参照します。WebBrowser1.Navigate を呼び出すと、ドキュメントが完全に読み込まれる前に Visual Basic アプリケーションに制御が返されます。含まれているドキュメントをオートメーションで操作する場合は、NavigateComplete2 イベントを使用して、ドキュメントの読み込みを終えた時点で通知されるようにする必要があります。渡された WebBrowser オブジェクトの Document プロパティを使用して、Office ドキュメント オブジェクトへの参照を取得します。上記のコードでは、その参照が oDocument に設定されます。
  • WebBrowser コントロールは、メニューのマージをサポートしません。
  • WebBrowser コントロールは通常、ドッキング ツール バーをすべて非表示にしてから Office ドキュメントを表示します。以下のようなコードを使用することで、オートメーションを使用してフリー ツール バーを表示できます。 
    With oDocument.Application.CommandBars("Standard")
   .Position = 4 '[msoBarFloating]
   .Visible = True
End With
    比較的新しい Internet Explorer (5.0 以降のバージョン) を使用する場合、次のコードを使用することでドッキング ツール バーを表示できます。 
    ' This is a toggle option, so call it once to show the 
' toolbars and once to hide them. This works with Internet Explorer 5
' but often fails to work properly with earlier versions...
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER)
  • 1 つのプロジェクト内で複数の WebBrowser コントロールを使用する場合、各コントロールに同じ種類の Office ドキュメント (すべて Word 文書、すべて Excel スプレッドシートなど) を読み込むと、いくつかの問題が発生することが確認されています。そのため、1 つのプロジェクトに使用するコントロールは 1 つとし、1 度に参照するドキュメントも 1 つとすることをお勧めします。

    最も一般的なのは、Office コマンド バーが無効になっているように見えるという問題です。同一のフォームに WebBrowser コントロールが 2 つあり、その両方で Word 文書を読み込む場合に、上記の方法のいずれかを使用してツール バーを表示すると、片方のツール バーのセットのみが有効になり、正しく機能します。もう一方は無効になり、使用できません。
  • WebBrowser コントロールに表示されているコンテンツを消去するには、別のコマンド ボタンの Click イベント (またはコード内のその他適当な場所) で、以下のコードを使用してデフォルトの空白ページを参照します。 
       AxWebBrowser1.Navigate("about:blank")
先頭へ戻る

関連情報

WebBrowser コントロールの関連情報を参照するには、以下の「サポート技術情報」 (Microsoft Knowledge Base) をクリックしてください。
304562? (http://support.microsoft.com/kb/304562/ ) [INFO] Visual Studio .NET の Windows フォームに OLE コンテナ コントロールがない
243058? (http://support.microsoft.com/kb/243058/ ) [HOWTO] WebBrowser コントロールを使って Office ドキュメントを開く方法
162719? (http://support.microsoft.com/kb/162719/ ) Visual Basic 5.0 から WebBrowser コントロールを使用する方法
202476? (http://support.microsoft.com/kb/202476/ ) [BUG] OLE コントロールまたは WebBrowser コントロールで Word 文書を編集できない
188271? (http://support.microsoft.com/kb/188271/ ) VB から Web Browser コントロールの内容を印刷する方法
191692? (http://support.microsoft.com/kb/191692/ ) [PRB] ディストリビューション ウィザードで作成したセットアップ パッケージに Shdocvw.dll が含まれない
238313? (http://support.microsoft.com/kb/238313/ ) [PRB] Visual Basic から Internet Explorer のドキュメント オブジェクト モデルにアクセスする
先頭へ戻る

関連情報

この資料は米国 Microsoft Corporation から提供されている Knowledge Base の Article ID 304643? (http://support.microsoft.com/kb/304643/EN-US/ ) (最終更新日 2004-07-15) を基に作成したものです。

この資料に含まれているサンプル コード/プログラムは英語版を前提に書かれたものをありのままに記述しており、日本語環境での動作は確認されておりません。
先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
先頭へ戻る
キーワード:?
kbactivedocs kbautomation kbhowto kbwebbrowser KB304643
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"