Kazalo
Odprite datoteko Excel
Ta spodnja funkcija odpre datoteko Excel z Access VBA.
Pred uporabo funkcije obvezno dodajte sklic na Knjižnica predmetov Microsoft Excel z odhodom na Orodja> Reference in preverjanje Knjižnica predmetov Microsoft Excel.
Javna funkcija OpenExcelFile (strFilePath As String) Kot Boolean 'Zahtevano: Orodja> Razmisli: Dodajte sklic na Knjižnico predmetov Microsoft Excel Dim appExcel Kot Excel.Application Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject ("Excel.Application") Nastavi myWorkbook = appExcel.Workbooks.Open (strFilePath) appExcel.Visible = True 'Naredi nekaj ali pa pusti odprto Nastavi appExcel = Nič ni nastavljeno myWorkbook = Nič konča funkcije' Primer uporabe Sub OpenExcelFile_Example () Pokliči OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") End Sub
Odprite Wordov dokument z uporabo Access VBA
Najprej nastavite sklic na knjižnico Word za okolje Access VBA.
Opomba: To bi v VBE naredili tako, da odprete Orodja> Reference in označite Knjižnico predmetov Microsoft Word 15.0.
Z naslednjo kodo lahko odprete Wordov dokument z Accessom:
Zatemni WordDoc kot niz objektov WordDoc = CreateObject ("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C: \ Users \ Taryn \ Desktop \ BusinessDocument.docx" Set WordDoc = Nothing
Lahko pa tudi prilagodite funkcijo Open Excel File zgoraj, da ustvarite funkcijo za odpiranje Wordovega dokumenta iz programa Access VBA.
