Second Life blog

Arhiva za 'VBA' Kategorija

Koristite sljedeće korake za stvaranje aplikacije Visual Basica koja se otvara Officeove dokumente:

1. Pokrenite Visual Basic i stvoriti novi standard projekt. Form1 se stvara po zadanome.
2. Od projekta izbornika odaberite Components za otvaranje dijaloškog okvira Components.
3. U dijaloškom okviru Komponente, dodati reference na Microsoft Common Dialog kontrolu i Microsoft Internet Controls.
4. Kliknite OK za dodavanje stavke u alatni okvir.
5. Dodaj instanca WebBrowser kontroli, CommonDialog kontrolu i CommandButton na Form1.
6. Zatim dodajte sljedeći kod u prozor za kod 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 Izbor Eksplicitan Dim oDocument kao objekt Private Sub Command1_Click () As String Dim sFileName "Pronađi Usluga varalica ... Sa CommonDialog1. Filename =" ". ShowOpen = sFileName. FileName kraj sa 'Ako korisnik nije opozvan, otvoriti datoteku ... Ako Len (sFileName) zatim postavite oDocument = Nothing WebBrowser1.Navigate sFileName End If End Sub Private Sub Form_Load () Command1.Caption = "Pretraži" 'Za 2007 Microsoft Usluga dokumenti, promijenite. Filter parametar' s CommonDialog1 izjavi: '. Filter = "Usluga Dokumenta" & _ "(*. docx, xlsx *., *. pptx) | *. docx, xlsx *.; *. pptx" Sa CommonDialog1. Filter = "Usluga Dokumenti "& _" (*. doc, *. xls, *. ppt) | *. doc, *. xls, *. ppt ". FilterIndex = 1. Zastave = cdlOFNFileMustExist Ili cdlOFNHideReadOnly kraj s End Sub Private Sub Form_Unload ( Odustani As Integer) Set oDocument = Nothing End Sub Private Sub WebBrowser1_NavigateComplete2 (ByVal pDisp kao objekt, _ URL kao varijanta) On Error Resume Next Set oDocument = pDisp.Document MsgBox "Datoteka otvorio:" & oDocument.Application.Name End Sub 

7. Pritisnite F5 za pokretanje projekta. Kada odaberete Brstiti gumb, pojavljuje se dijaloški okvir Open koji dozvoljava te za ploviti to Word, Excel ili PowerPoint datoteke.
8. Odaberite Otvoriti i dokument bi trebao otvoriti unutar WebBrowser kontroli.
9. Prozor s porukom onda izgleda da prikazuje naziv programa Office koji je otvorio datoteku.