Shranite podatke v Excelovo preglednico z uporabo VBA.
Ustvarjanje Excelove preglednice v Accessu vam lahko prihrani čas, ko morate izvoziti podatke v Excelovo preglednico. Visual Basic za aplikacije (VBA) je lahko zmogljivo orodje za avtomatizacijo procesov v aplikacijah Microsoft Office. Z VBA lahko uporabite predmet aplikacije Microsoft Excel za ustvarjanje Excelove preglednice iz Accessa. Objekt Excelove aplikacije je vstopna točka v preostali del objektnega modela. Hitreje izvozite podatke v Excel tako, da podatke shranite neposredno v Excelovo preglednico.
Korak 1
Zaženite Microsoft Office Access, kliknite »Prazna zbirka podatkov« in kliknite gumb »Ustvari«, da ustvarite prazno bazo podatkov. Kliknite zavihek »Orodja za bazo podatkov« in kliknite »Visual Basic«, da odprete okno Microsoft Visual Basic. Kliknite meni »Vstavi« in kliknite »Modul«, da vstavite nov kodni modul.
Video dneva
2. korak
Kliknite meni »Orodja« in kliknite »Reference«. Pomaknite se navzdol in potrdite polje poleg "Microsoft Excel
3. korak
Začnite tako, da vnesete naslednjo kodo VBA, da ustvarite novo podproceduro:
Private Sub createSpreadSheet()
4. korak
Nadaljujte tako, da vnesete naslednjo kodo, da ustvarite tri nove spremenljive predmete, ki bodo uporabljeni za ustvarjanje Excelove preglednice:
Zatemnite novo aplikacijoExcelApp kot Excel. Aplikacija. Dim newWbk kot Excel. Delovni zvezek. Zatemni novWkSheet kot Excel. Delovni list
5. korak
Dodajte naslednjo kodo, da zaženete Excel in jo prikažete:
Nastavite newExcelApp = Excel. Aplikacija
nova aplikacija Excel. Vidno = Res
6. korak
Vnesite naslednje, da dodate nov delovni zvezek in delovni list:
Nastavite newWbk = newExcelApp. Delovni zvezki. Dodaj
Nastavite newWkSheet = newWbk. Delovni listi (1)
7. korak
Dodajte podatke v novo preglednico tako, da vnesete naslednje:
newWkSheet. Celice (1, 1).Value = "Nov delovni list ..."
8. korak
Shranite nov delovni zvezek, ustvarjen tako, da vnesete naslednjo kodo:
newWkSheet. Shrani kot ("C:\myworksheet.xlsx")
9. korak
Uredite pot v prejšnjem koraku in vnesite pot in ime datoteke po vaši izbiri.
10. korak
Vnesite naslednje, da končate podpostopek:
Končni sub
11. korak
Pritisnite "F5", da zaženete postopek in ustvarite novo preglednico Excel.