Otevřete soubor aplikace Excel
Tato funkce níže otevře soubor aplikace Excel s Access VBA.
Před použitím funkce nezapomeňte přidat odkaz na Objektová knihovna Microsoft Excel tím, že jde do Nástroje> Reference a kontrola Objektová knihovna Microsoft Excel.
Veřejná funkce OpenExcelFile (strFilePath jako řetězec) Jako booleovský 'Požadováno: Nástroje> Odkazy: Přidat odkaz na knihovnu objektů Microsoft Excel Dim appExcel jako 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' Usage Example Sub OpenExcelFile_Example () Call OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") Konec Sub
Otevřete dokument aplikace Word pomocí Access VBA
Nejprve nastavte odkaz na knihovnu Word pro prostředí Access VBA.
Poznámka: Ve VBE byste to udělali tak, že přejdete na Nástroje> Reference a zaškrtnete Objektovou knihovnu Microsoft Word 15.0.
Následující kód vám umožní otevřít dokument aplikace Word pomocí aplikace 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
Nebo můžete upravit funkci Otevřít soubor Excel výše a vytvořit funkci pro otevření dokumentu Word z Access VBA.
