Использование элемента управления WebBrowser в Visual Basic для открытия документа Office

Статья
06/20/2023
Применяется к:

Microsoft Office

Сведения о версии Microsoft Visual C# 2005 и Microsoft Visual C# .NET в этой статье см. в 304662.

Аннотация

Может потребоваться отобразить или внедрить документ Microsoft Office непосредственно в форме Microsoft Visual Basic. Microsoft Visual Basic 2005 и Visual Basic .NET не предоставляют элемент управления OLE, позволяющий внедрять документ Office в форму. Если вы хотите внедрить существующий документ и открыть его как объект документа ActiveX на месте в форме Visual Basic, можно использовать элемент управления WebBrowser.

В этой статье показано, как перейти к существующему документу Office и отобразить его в форме Visual Basic с помощью элемента управления WebBrowser.

Дополнительная информация

Документы ActiveX — это встраиваемые объекты OLE, которые ведут себя больше как элементы ActiveX, чем традиционные объекты OLE. В отличие от традиционного внедренного объекта, документ ActiveX не является автономным объектом в более крупном документе. Вместо этого он сам по себе считается полным документом, который просто просматривается (например, в Microsoft Internet Explorer) или собирается в одном ресурсе с другими документами (например, файлом Привязки Microsoft Office). Документ ActiveX, размещенный в элементе управления WebBrowser, всегда активен; Поэтому, в отличие от традиционных внедренных объектов OLE, нет смысла активации на месте.

Хотя Microsoft Visual Basic .NET и Visual Basic 2005 в настоящее время не поддерживают размещение документов ActiveX напрямую, для этой цели можно использовать элемент управления WebBrowser. Элемент управления WebBrowser (Shdocvw.dll) является частью Internet Explorer и может использоваться только в системах, на которых установлен Internet Explorer.

Создание приложения Visual Basic, которое открывает документы Office

Примечание.

При использовании двух описанных выше методов для создания приложения Visual Basic, которое открывает документы Office, необходимо изменить код в Visual Studio 2005. По умолчанию Visual Basic добавляет одну форму в проект при создании Windows Forms проекта. Форма называется Form1. Два файла, представляющих форму, имеют имена Form1.vb и Form1.designer.vb. Вы пишете код в Form1.vb. В файле Form1.designer.vb конструктор Windows Forms код, реализующий все выполняемые действия путем перетаскивания элементов управления с панели элементов.

После создания приложения Visual Basic нажмите клавишу F5, чтобы запустить проект. При нажатии кнопки "Обзор" откроется диалоговое окно "Открыть", в которое можно перейти к файлу Word, Excel или PowerPoint. Выберите любой файл и нажмите кнопку " Открыть". Документ откроется в элементе управления WebBrowser, и появится окно сообщения с именем сервера документов Office.

Способ 1

В Microsoft Visual Studio 2005 или Microsoft Visual Studio .NET создайте проект приложения Windows с помощью Visual Basic 2005 или Visual Basic .NET. Form1 создается по умолчанию.
В меню "Сервис " щелкните "Настроить панель элементов", чтобы открыть диалоговое окно "Настройка панели элементов". На вкладке COM Components (Компоненты COM) добавьте ссылку на Microsoft WebBrowser. Нажмите кнопку "ОК", чтобы добавить элемент управления WebBrowser на Windows Forms элементов. Элемент управления WebBrowser отображается с обозревателем текста на панели элементов.

Примечание В Visual Studio 2005 не нужно делать шаг 2.
С помощью панели элементов добавьте элемент управления WebBrowser, элемент Управления OpenFileDialog и элемент управления Button в Form1. Этот шаг добавляет переменную-член AxWebBrowser1, переменную-член OpenFileDialog1 и переменную-член Button1 в класс Form1.
Определите закрытый член в классе Form1 следующим образом.
```
Dim oDocument as Object
```

Вставьте следующий код в класс 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

Способ 2

В Microsoft Visual Studio 2005 или Microsoft Visual Studio .NET создайте проект приложения Windows с помощью Visual Basic 2005 или Visual Basic .NET. Form1 создается по умолчанию.
В меню "Проект" выберите "Компоненты", чтобы открыть диалоговое окно "Компоненты". В диалоговом окне "Компоненты" добавьте ссылки на элемент управления "Общий диалог" (Майкрософт) и "Элементы управления Интернетом (Майкрософт)". Нажмите кнопку "ОК", чтобы добавить элементы на панель элементов.
Добавьте экземпляр элемента управления WebBrowser, элемента управления CommonDialog и commandButton в Form1.

Затем добавьте следующий код в окно кода для Form1:

Option Explicit

Dim oDocument As Object

Private Sub Command1_Click()
   Dim sFileName As String

 ' Find an Office file...
   With CommonDialog1
      .FileName = ""
      .ShowOpen
      sFileName = .FileName
   End With

 ' If the user didn't cancel, open the file...
   If Len(sFileName) Then
      Set oDocument = Nothing
      WebBrowser1.Navigate sFileName
   End If
End Sub

Private Sub Form_Load()
   Command1.Caption = "Browse"
   ' For the 2007 Microsoft Office documents, change the .Filter parameter of the 
   ' With CommonDialog1 statement to:
   ' .Filter = "Office Documents " & _
   '      "(*.docx, *.xlsx, *.pptx)|*.docx;*.xlsx;*.pptx"
   With CommonDialog1
      .Filter = "Office Documents " & _
      "(*.doc, *.xls, *.ppt)|*.doc;*.xls;*.ppt"
      .FilterIndex = 1
      .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
   End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set oDocument = Nothing
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _
URL As Variant)
   On Error Resume Next
   Set oDocument = pDisp.Document

   MsgBox "File opened by: " & oDocument.Application.Name
End Sub

Ссылки

Дополнительные сведения об использовании элемента управления WebBrowser см. в следующих номерах статей, чтобы просмотреть статьи в базе знаний Майкрософт:

304562 Visual Studio 2005 и Visual Studio .NET не предоставляют элемент управления контейнером OLE для Windows Forms

927009 откроется новое окно при попытке просмотреть документ программы Microsoft Office 2007 в Windows Internet Explorer 7