Kaip perkelti Excel 2010 skaičiuoklę į Access 2010 naudojant VBA

Įvadas

Excel 2010 ir jo kolega Microsoft Office Access 2010 puikiai veikia kartu, kai reikia importuoti Excel duomenis į Access duomenų bazę. DoCmd objektas turi TransferSpreadsheet metodą, leidžiantį importuoti skaičiuoklės lapą iš Excel į Access naudojant VBA. Šis metodas palaiko ir kitus failų formatus, pvz., Lotus. Taip pat galite naudoti tą patį metodą duomenims eksportuoti iš Access į Excel pakeičiant AcDataTransferType reikšmę į acExport.

Žingsnis 1 – Sukurkite naują duomenų bazę

Paleiskite Access 2010. Pasirinkite Blank Database (Tuščia duomenų bazė) ir spustelėkite mygtuką Create (Sukurti). Eikite į skirtuką Database Tools ir spustelėkite Visual Basic, kad atidarytumėte Microsoft Visual Basic langą. Meniu Insert (Įterpti) pasirinkite Module (Modulis) – taip įterpsite naują kodo modulį.

Žingsnis 2 – Pridėkite procedūrą

Kopijuokite ir įklijuokite žemiau esantį kodą, kad sukurtumėte naują sub procedūrą:

Private Sub importExcelSpreadsheet()
    ' čia bus kodas
End Sub

Paspauskite Enter, kad automatiškai įterptumėte End Sub eilutę.

Žingsnis 3 – Įterpkite importo kodą

Į Private Sub importExcelSpreadsheet() procedūrą įklijuokite šį kodą, kuris importuos Excel lapą į Access:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    "Employees", "C:\Employees.xlsx", True

Ši komanda nurodo:

• acImport – importavimo veiksmas;
• acSpreadsheetTypeExcel9 – Excel 2000‑2003 formatas (Excel 9);
• "Employees" – norimos Access lentelės pavadinimas;
• "C:\Employees.xlsx" – kelias iki importuojamos Excel rinkmenos;
• True – ar pirmąją eilutę laikyti laukų antraštėmis.

Žingsnis 4 – Priderinkite pavadinimus

Keiskite Employees į tikrąją Access lentelės, kurioje norite saugoti duomenis, pavadinimą. Taip pat pakeiskite C:\Employees.xlsx į savo Excel rinkmenos vietą ir pavadinimą.

Paspauskite F5 arba spustelėkite Run, kad vykdytumėte procedūrą ir importuotumėte Excel duomenis į Access.