Turinys
Atidarykite „Excel“ failą
Ši toliau nurodyta funkcija atvers „Excel“ failą su „Access VBA“.
Prieš naudodami funkciją, būtinai pridėkite nuorodą į „Microsoft Excel“ objektų biblioteka eidamas į Įrankiai> Nuorodos ir tikrinimas „Microsoft Excel“ objektų biblioteka.
Viešoji funkcija OpenExcelFile (strFilePath As String) kaip loginė 'Būtina: Įrankiai> Atsiliepimai: pridėti nuorodą į „Microsoft Excel“ objektų biblioteką Dim appExcel kaip Excel.Application Dim myWorkbook Kaip Excel.Workbook Nustatyti appExcel = CreateObject ("Excel.Application") Nustatyti appExcel.Workbooks.Open (strFilePath) appExcel.Visible = Tiesa 'Darykite ką nors arba tiesiog palikite atidarytą Nustatykite appExcel = Nieko nenustatykite myWorkbook = Nieko pabaigos funkcija' Naudojimo pavyzdys OpenExcelFile_Example () Skambinkite OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") Pabaiga
Atidarykite „Word“ dokumentą naudodami „Access VBA“
Pirmiausia nustatykite nuorodą į „Access“ VBA aplinkos „Word“ biblioteką.
Pastaba: Tai padarytumėte VBE, eidami į Įrankiai> Nuorodos ir pažymėdami „Microsoft Word 15.0 Object Library“.
Šis kodas leis jums atidaryti „Word“ dokumentą naudojant „Access“:
Sumažinti „WordDoc“ kaip objektų rinkinį
Arba galite pritaikyti aukščiau pateiktą funkciją „Atidaryti„ Excel “failą“, kad sukurtumėte funkciją atidaryti „Word“ dokumentą iš „Access VBA“.
