Sadržaj
Otvorite Excel datoteku
Ova donja funkcija otvorit će Excel datoteku s Access VBA.
Prije korištenja funkcije svakako dodajte referencu na Knjižnica objekata Microsoft Excel odlaskom na Alati> Reference i provjeravanje Knjižnica objekata programa Microsoft Excel.
Javna funkcija OpenExcelFile (strFilePath As String) Kao Boolean 'Potrebno: Alati> Refrencije: Dodajte referencu u biblioteku objekata programa Microsoft Excel Dim appExcel kao Excel.Application Dim myWorkbook As Excel.Workbook Postavi appExcel = CreateObject ("Excel.Application") Postavi myWorkbook = appExcel.Workbooks.Open (strFilePath) appExcel.Visible = True 'Učinite nešto ili samo ostavite otvoreno Postavi appExcel = Ništa nije postavljeno myWorkbook = Ništa ne završava funkciju' Primjer upotrebe Sub OpenExcelFile_Example () Pozovite OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") Kraj Sub
Otvorite Wordov dokument pomoću programa Access VBA
Najprije postavite referencu na knjižnicu Word za Access VBA okruženje.
Bilješka: To biste učinili u VBE -u tako da odete na Alati> Reference i označite Biblioteku objekata Microsoft Word 15.0.
Sljedeći kôd omogućit će vam da otvorite Wordov dokument pomoću programa Access:
Zatamni WordDoc kao skup objekata WordDoc = CreateObject ("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C: \ Users \ Taryn \ Desktop \ BusinessDocument.docx" Postavi WordDoc = Ništa
Ili možete prilagoditi gornju funkciju Open Excel File da biste stvorili funkciju za otvaranje Wordova dokumenta iz programa Access VBA.
