Mentse az adatokat Excel-táblázatba VBA használatával.
Ha Excel-táblázatot hoz létre az Accessben, időt takaríthat meg, amikor adatokat kell exportálnia Excel-táblázatba. A Visual Basic for Applications (VBA) hatékony eszköz lehet a folyamatok automatizálására a Microsoft Office alkalmazásokban. A VBA segítségével a Microsoft Excel Application objektum segítségével Excel-táblázatot hozhat létre az Accessből. Az Excel alkalmazásobjektum a belépési pont az objektummodell többi részéhez. Gyorsabban exportálhatja az adatokat Excelbe, ha közvetlenül egy Excel-táblázatba menti az adatokat.
1. lépés
Indítsa el a Microsoft Office Access alkalmazást, kattintson az "Üres adatbázis" elemre, majd kattintson a "Létrehozás" gombra egy üres adatbázis létrehozásához. Kattintson az "Adatbázis eszközök" fülre, majd kattintson a "Visual Basic" gombra a Microsoft Visual Basic ablak megnyitásához. Kattintson a "Beszúrás" menüre, majd kattintson a "Modul" gombra egy új kódmodul beillesztéséhez.
A nap videója
2. lépés
Kattintson az "Eszközök" menüre, majd kattintson a "Referenciák" gombra. Görgessen le, és jelölje be a „Microsoft Excel
3. lépés
Kezdje a következő VBA-kód beírásával egy új aleljárás létrehozásához:
Privát al- createSpreadSheet()
4. lépés
Folytassa a következő kód beírásával három új változó objektum létrehozásához, amelyeket az Excel-táblázat létrehozásához használunk majd:
Dim newExcelApp As Excel. Alkalmazás. Dim newWbk Excel formátumban. Munkafüzet. Dim newWkSheet Excel formátumban. Munkalap
5. lépés
Adja hozzá a következő kódot az Excel elindításához és megjelenítéséhez:
Állítsa be: newExcelApp = Excel. Alkalmazás
új ExcelApp. Látható = igaz
6. lépés
Új munkafüzet és munkalap hozzáadásához írja be a következőket:
Állítsa be: newWbk = newExcelApp. Munkafüzetek. Hozzáadás
Állítsa be: newWkSheet = newWbk. Feladatlapok (1)
7. lépés
Adjon hozzá adatokat az új táblázathoz a következő beírásával:
newWkSheet. Cellák (1, 1). Value = "Új munkalap..."
8. lépés
Mentse el a létrehozott új munkafüzetet a következő kód beírásával:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")9. lépés
Szerkessze az elérési utat az előző lépésben, és írja be a kívánt elérési utat és fájlnevet.
10. lépés
Az aleljárás befejezéséhez írja be a következőket:
Vége Sub
11. lépés
Nyomja meg az „F5” gombot az eljárás futtatásához és egy új Excel-táblázat létrehozásához.
