Kako ustvariti preglednico v Excelu iz Accessa z uporabo VBA

Avtor: Roger Morrison
Datum Ustvarjanja: 17 September 2021
Datum Posodobitve: 1 December 2024
Anonim
Kako ustvariti preglednico v Excelu iz Accessa z uporabo VBA - Članki
Kako ustvariti preglednico v Excelu iz Accessa z uporabo VBA - Članki

Vsebina

Ustvarjanje delovnega lista programa Excel v programu Access vam prihrani čas, ko morate izvoziti podatke v delovni list programa Excel. Visual Basic for Applications (VBA) je lahko močno orodje za avtomatizacijo procesov v programih Microsoft Office. Z VBA lahko uporabite objekt Microsoft Excel Application za ustvarjanje Excelove preglednice iz Accessa. Excelov predmet je začetna točka za preostali objektni model. Hitreje izvozite podatke v Excel, tako da shranite podatke neposredno v delovni list programa Excel.


Navodila

Shranite podatke v Excelov delovni list z uporabo VBA (Jupiterimages / Photos.com / Getty Images)

    Navodila

  1. Zaženite Microsoft Office Access, kliknite "Blank Database" in kliknite gumb "Create", da ustvarite prazno bazo podatkov. Kliknite zavihek "Orodja za zbirke podatkov" in kliknite "Visual Basic", da odprete okno Microsoft Visual Basic. Kliknite meni "Vstavi" in kliknite "Modul", da vstavite novo kodo modula.

  2. Kliknite meni "Orodja" in kliknite "Reference". Odrinite in potrdite polje poleg možnosti »Microsoft Excel Knjižnica objektov "(knjižnica objektov Microsoft Excel). Kliknite »V redu«.

  3. Začnite tako, da v VBA vnesete naslednjo kodo, da ustvarite nov pod-postopek:


    Zasebno sub createSpreadSheet ()

  4. Nadaljujte z vnosom naslednje kode, da ustvarite tri nove spremenljivke predmeta, ki bodo uporabljene za izdelavo delovnega lista programa Excel:

    Dim newExcelApp As Excel.Application Dim newWbk Kot Excel.Workbook Dim newWkSheet Kot Excel.Worksheet

  5. Dodajte naslednjo kodo, da zaženete Excel in ga prikažete:

    Nastavi newExcelApp = Excel.Application newExcelApp.Visible = True

  6. Vnesite naslednjo kodo, da dodate nov delovni zvezek in delovni list:

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

  7. Dodajte podatke v nov delovni list, tako da vnesete naslednjo kodo:

    newWkSheet.Cells (1, 1) .Value = "Nov delovni list ..."

  8. Shranite nov delovni zvezek, ustvarjen z vnosom naslednje kode:

    newWkSheet.SaveAs ("C: t

  9. Uredite pot v prejšnjem koraku in vnesite imenik in ime datoteke po vaši izbiri.


  10. Vnesite naslednjo kodo, da končate pod-postopek:

    End Sub

  11. Pritisnite "F5", da zaženete postopek in ustvarite nov Excelov delovni list.