Kako stvoriti proračunsku tablicu u Excelu iz Accessa pomoću VBA

Autor: Roger Morrison
Datum Stvaranja: 17 Rujan 2021
Datum Ažuriranja: 16 Studeni 2024
Anonim
Excel za početnike - 1. dio
Video: Excel za početnike - 1. dio

Sadržaj

Stvaranje Excelovog radnog lista u programu Access može vam uštedjeti vrijeme kada je potrebno izvesti podatke u Excelov radni list. Visual Basic za aplikacije (VBA) može biti moćan alat za automatizaciju procesa u Microsoft Office aplikacijama. Uz VBA možete koristiti Microsoft Excel aplikacijski objekt za izradu Excelove proračunske tablice iz Accessa. Excel objekt je početna točka za ostatak objektnog modela. Izvezite podatke u Excel brže spremanjem podataka izravno u radni list programa Excel.


smjerovi

Spremite podatke u Excelov radni list pomoću VBA (Jupiterimages / Photos.com / Getty Images)

    smjerovi

  1. Pokrenite Microsoft Office Access, kliknite "Prazna baza podataka" i kliknite gumb "Stvori" da biste stvorili praznu bazu podataka. Kliknite karticu "Alati za baze podataka" i kliknite "Visual Basic" da biste otvorili prozor Microsoft Visual Basic. Kliknite izbornik "Umetni" i kliknite "Modul" da biste umetnuli novi kod modula.

  2. Kliknite na izbornik "Alati" i kliknite "Reference". Prijeđite prstom i označite okvir pored "Microsoft Excel Knjižnica objekata (biblioteka objekata programa Microsoft Excel). Kliknite "U redu".

  3. Počnite upisivanjem sljedećeg koda u VBA da biste stvorili novi pod-postupak:


    Privatni sub createSpreadSheet ()

  4. Nastavite upisivati ​​sljedeći kôd da biste stvorili tri nove varijable objekta koje će se koristiti za izradu radnog lista programa Excel:

    Dim newExcelApp As Excel.Application Dim newWbk Kao Excel.Workbook Dim newWkSheet kao Excel.Worksheet

  5. Dodajte sljedeći kod da biste pokrenuli Excel i prikazali ga:

    Postavi newExcelApp = Excel.Application newExcelApp.Visible = True

  6. Unesite sljedeći kôd za dodavanje nove radne knjige i radnog lista:

    Postavi newWbk = newExcelApp.Workbooks.Add Set newWkSheet = newWbk.Worksheets (1)

  7. Dodajte podatke na novi radni list upisivanjem sljedećeg koda:

    newWkSheet.Cells (1, 1) .Value = "Novi radni list ..."

  8. Spremite novu radnu knjigu stvorenu unosom sljedećeg koda:

    newWkSheet.SaveAs ("C:

  9. Uredite putanju u prethodnom koraku i unesite direktorij i naziv datoteke po svom izboru.


  10. Unesite sljedeći kôd da biste završili pod-postupak:

    Kraj pod

  11. Pritisnite "F5" za pokretanje postupka i stvaranje novog radnog lista programa Excel.