Second Life Блог

Архив за "VBA" Категория

Използвайте следните стъпки, за да се създаде Visual Basic приложение, което отваря офис документи:

1. Начало Visual Basic и да се създаде нов проект стандарт. Form1 се създава по подразбиране.
2. От менюто на проект, изберете компоненти, за да отворите диалоговия Компоненти кутия.
3. В полето Компоненти диалога, добави позоваване на Microsoft Обща Надзор циферблат и Microsoft Internet контрол.
4. Натиснете OK, за да добавите продукти за кутията с инструменти.
5. Добави като пример за контрол WebBrowser, CommonDialog контрол и CommandButton да Form1.
6. След това добавете следния код в прозореца на Кодекса за Form1:

    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 Вариант Изрично Дим oDocument за цел Частни Под Command1_Click () Дим sFileName Както стринга "Намерете Службата файл ... С CommonDialog1. FileName =" ". ShowOpen sFileName =. FileName завършват с" Ако потребителят не е да отмени, да отворите файла ... Ако Лен (sFileName) След това се oDocument = Нищо WebBrowser1.Navigate sFileName Крайна Ако Крайна Под Частни Под Form_Load () Command1.Caption = "Преглед", "По 2007 Office документи, Microsoft, промяна. Филтър параметър на" С CommonDialog1 изявление: ". Филтър =" офис документи "& _" (*. Docx, *. xlsx, *. PPTX) | *. Docx; *. xlsx; *. PPTX "С CommonDialog1. Филтър =" Office Документи "& _" (*. DOC, *. XLS, *. PPT) | *. док; *. XLS; *. PPT ". FilterIndex = 1. знамена = cdlOFNFileMustExist Или cdlOFNHideReadOnly завършва с края Под Частни Под Form_Unload ( Отказ като цяло число) Комплект oDocument = Нищо Край Под Частни Под WebBrowser1_NavigateComplete2 (ByVal pDisp за цел, _ адрес в Интернет вариант) На Грешка Resume Напред Задайте oDocument = pDisp.Document MsgBox "Файл, открита с:" & oDocument.Application.Name Край Sub 

7. Натиснете F5, за да стартира проекта. Когато изберете бутона Преглед, диалоговият прозорец Отваряне като ви позволява да се движите на Word, Excel или PowerPoint файл.
8. Изберете Отваряне и документът трябва да отвори вътре в контрола WebBrowser.
9. Едно съобщение кутия тогава изглежда, че показва името на приложението, че Службата отвори файла.