Sommario
Apri file Excel
Questa funzione di seguito aprirà un file Excel con Access VBA.
Prima di utilizzare la funzione, assicurarsi di aggiungere un riferimento a Libreria di oggetti di Microsoft Excel andando a Strumenti > Riferimenti e controllando Libreria di oggetti di Microsoft Excel.
Funzione pubblica OpenExcelFile(strFilePath As String) As Boolean 'Obbligatorio: Strumenti > Riferimenti: Aggiungi riferimento a 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 'Fai qualcosa o lascia aperto Set appExcel = Nothing Imposta myWorkbook = Niente End Function 'Esempio di utilizzo Sub OpenExcelFile_Example() Chiama OpenExcelFile("C:\Users\StevePC2\Downloads\ test.xlsx") End Sub
Apri documento Word utilizzando Access VBA
Impostare prima un riferimento alla libreria di parole per l'ambiente VBA di Access.
Nota: Lo faresti nel VBE andando su Strumenti> Riferimenti e spuntando Libreria oggetti di Microsoft Word 15.0.
Il codice seguente ti consentirà di aprire il tuo documento Word utilizzando Access:
Dim WordDoc As Object Set WordDoc = CreateObject("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C:\Users\Taryn\Desktop\BusinessDocument.docx" Set WordDoc = Nothing
Oppure puoi adattare la funzione Apri file Excel sopra per creare una funzione per aprire un documento Word da Access VBA.
