Spisie treści
Otwórz plik Excela
Ta funkcja poniżej otworzy plik Excel z Access VBA.
Przed użyciem tej funkcji należy dodać odniesienie do Biblioteka obiektów Microsoft Excel idąc do Narzędzia > Referencje i sprawdzanie Biblioteka obiektów Microsoft Excel.
Funkcja publiczna OpenExcelFile(strFilePath As String) As Boolean 'Wymagane: Narzędzia > Źródła: Dodaj odwołanie do biblioteki obiektów programu Microsoft Excel Dim appExcel As Excel.Application Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject("Excel.Application") Set myWorkbook = appExcel.Workbooks.Open(strFilePath) appExcel.Visible = True 'Zrób coś lub po prostu pozostaw otwarte Ustaw appExcel = Nic nie ustaw myWorkbook = Nic Zakończ funkcję 'Przykład użycia Sub OpenExcelFile_Example() Wywołaj OpenExcelFile("C:\Users\StevePC2\Downloads\ test.xlsx") Koniec Sub
Otwórz dokument Word za pomocą Access VBA
Najpierw ustaw odwołanie do biblioteki Word dla środowiska Access VBA.
Notatka: Zrobiłbyś to w VBE, przechodząc do Narzędzia> Referencje i zaznaczając bibliotekę obiektów Microsoft Word 15.0.
Poniższy kod pozwoli Ci otworzyć dokument Word za pomocą programu Access:
Dim WordDoc jako zestaw obiektów WordDoc = CreateObject("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C:\Users\Taryn\Desktop\BusinessDocument.docx" Ustaw WordDoc = Nic
Możesz też dostosować powyższą funkcję Otwórz plik Excel, aby utworzyć funkcję otwierania dokumentu Word z programu Access VBA.
