Inhaltsverzeichnis
Excel-Datei öffnen
Diese Funktion unten öffnet eine Excel-Datei mit Access VBA.
Bevor Sie die Funktion verwenden, stellen Sie sicher, dass Sie einen Verweis auf Microsoft Excel-Objektbibliothek indem du zu gehst Werkzeuge > Referenzen und überprüfen Microsoft Excel-Objektbibliothek.
Öffentliche Funktion OpenExcelFile(strFilePath As String) As Boolean 'Erforderlich: Tools > Referenzen: Verweis auf Microsoft Excel-Objektbibliothek hinzufügen Dim appExcel As Excel.Application Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject("Excel.Application") Set myWorkbook = appExcel.Workbooks.Open(strFilePath) appExcel.Visible = True 'Etwas tun oder einfach offen lassen Set appExcel = Nichts Set myWorkbook = Nothing End Function 'Verwendungsbeispiel Sub OpenExcelFile_Example() Aufruf OpenExcelFile("C:\Users\StevePC2\Downloads\ test.xlsx") End Sub
Öffnen Sie ein Word-Dokument mit Access VBA
Legen Sie zunächst einen Verweis auf die Word-Bibliothek für die Access-VBA-Umgebung fest.
Notiz: Sie würden dies in der VBE tun, indem Sie zu Tools>References gehen und Microsoft Word 15.0 Object Library ankreuzen.
Mit dem folgenden Code können Sie Ihr Word-Dokument mit Access öffnen:
Dim WordDoc As Object Set WordDoc = CreateObject("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C:\Users\Taryn\Desktop\BusinessDocument.docx" Set WordDoc = Nothing
Oder Sie können die obige Funktion Excel-Datei öffnen anpassen, um eine Funktion zum Öffnen eines Word-Dokuments aus Access VBA zu erstellen.
