Indholdsfortegnelse
Åbn Excel -fil
Denne funktion nedenfor åbner en Excel -fil med Access VBA.
Inden du bruger funktionen, skal du tilføje en reference til Microsoft Excel Object Library ved at gå til Værktøjer> Referencer og tjekker Microsoft Excel Object Library.
Public Function OpenExcelFile (strFilePath As String) As Boolean 'Required: Tools> Refences: Tilføj reference til Microsoft Excel Object Library Dim appExcel As Excel.Application Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject ("Excel.Application") Set myWorkbook = appExcel.Workbooks.Open (strFilePath) appExcel.Visible = True 'Do Something or Just Leave Open Set appExcel = Nothing Set myWorkbook = Nothing End Function' Anvendelseseksempel Sub OpenExcelFile_Example () Ring til OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") Slut Sub
Åbn Word -dokument ved hjælp af Access VBA
Angiv først en reference til Word -biblioteket for Access VBA -miljøet.
Bemærk: Du ville gøre dette i VBE ved at gå til Værktøjer> Referencer og markere Microsoft Word 15.0 Object Library.
Følgende kode giver dig mulighed for at åbne dit Word -dokument ved hjælp af Access:
Dim WordDoc som objektsæt WordDoc = CreateObject ("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C: \ Users \ Taryn \ Desktop \ BusinessDocument.docx" Set WordDoc = Nothing
Eller du kan tilpasse funktionen Åbn Excel -fil ovenfor for at oprette en funktion til at åbne et Word -dokument fra Access VBA.
