Cuprins
Deschideți fișierul Excel
Această funcție de mai jos va deschide un fișier Excel cu Access VBA.
Înainte de a utiliza funcția, asigurați-vă că adăugați o referință la Biblioteca de obiecte Microsoft Excel mergând la Instrumente> Referințe și verificarea Biblioteca de obiecte Microsoft Excel.
Funcție publică OpenExcelFile (strFilePath As String) As Boolean 'Obligatoriu: Instrumente> Referințe: Adăugare referință la Microsoft Object 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 = Adevărat 'Faceți ceva sau pur și simplu părăsiți setul deschis AppExcel = Nimic setat MyWorkbook = Nimic nu funcționează' Exemplu de utilizare Sub OpenExcelFile_Example () Apelați OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") End Sub
Deschideți documentul Word utilizând Access VBA
Mai întâi setați o referință la Biblioteca Word pentru mediul Access VBA.
Notă: Ați face acest lucru în VBE accesând Instrumente> Referințe și bifând Biblioteca de obiecte Microsoft Word 15.0.
Următorul cod vă va permite să vă deschideți documentul Word utilizând Access:
Dim WordDoc ca obiect set WordDoc = CreateObject ("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C: \ Users \ Taryn \ Desktop \ BusinessDocument.docx" Set WordDoc = Nothing
Sau puteți adapta funcția Deschidere fișier Excel de mai sus pentru a crea o funcție pentru a deschide un document Word din Access VBA.
