Spremite podatke u Excel proračunsku tablicu pomoću VBA.
Izrada Excel proračunske tablice u programu Access može vam uštedjeti vrijeme kada trebate izvesti podatke u Excel proračunsku tablicu. Visual Basic za aplikacije (VBA) može biti moćan alat za automatizaciju procesa u Microsoft Office aplikacijama. Uz VBA možete koristiti objekt aplikacije Microsoft Excel za izradu Excel proračunske tablice iz programa Access. Objekt Excel aplikacije je ulazna točka u ostatak objektnog modela. Brže izvozite podatke u Excel spremanjem podataka izravno u Excel proračunsku tablicu.
Korak 1
Pokrenite Microsoft Office Access, kliknite "Prazna baza podataka" i kliknite gumb "Kreiraj" da biste stvorili praznu bazu podataka. Kliknite karticu "Alati za bazu podataka" i kliknite "Visual Basic" da otvorite prozor Microsoft Visual Basic. Kliknite izbornik "Insert" i kliknite "Module" za umetanje novog kodnog modula.
Video dana
Korak 2
Kliknite izbornik "Alati" i kliknite "Reference". Pomaknite se prema dolje i potvrdite okvir pored "Microsoft Excel
Korak 3
Počnite tako što ćete upisati sljedeći VBA kod da biste stvorili novu podproceduru:
Privatni sub createSpreadSheet()
4. korak
Nastavite upisivanjem sljedećeg koda za stvaranje tri nova varijabilna objekta koji će se koristiti za izradu Excel proračunske tablice:
Zatamnite novu ExcelApp kao Excel. Primjena. Dim newWbk kao Excel. Radna bilježnica. Zatamnite noviWkSheet kao Excel. Radni list
Korak 5
Dodajte sljedeći kod da pokrenete Excel i prikažete ga:
Postavite newExcelApp = Excel. Primjena
nova ExcelApp. Vidljivo = Istina
Korak 6
Upišite sljedeće da biste dodali novu radnu knjigu i radni list:
Postavite newWbk = newExcelApp. Radne bilježnice. Dodati
Postavite newWkSheet = newWbk. Radni listovi (1)
Korak 7
Dodajte podatke u svoju novu proračunsku tablicu upisivanjem sljedećeg:
newWkSheet. Ćelije (1, 1).Vrijednost = "Novi radni list..."
Korak 8
Spremite novu radnu knjigu kreiranu upisivanjem sljedećeg koda:
newWkSheet. Spremi kao ("C:\myworksheet.xlsx")
Korak 9
Uredite put u prethodnom koraku i upišite stazu i naziv datoteke po svom izboru.
Korak 10
Upišite sljedeće da završite podproceduru:
Kraj Sub
Korak 11
Pritisnite "F5" za pokretanje postupka i stvaranje nove Excel proračunske tablice.