Išsaugokite duomenis „Excel“ skaičiuoklėje naudodami VBA.
Sukūrę „Excel“ skaičiuoklę programoje „Access“, galite sutaupyti laiko, kai reikia eksportuoti duomenis į „Excel“ skaičiuoklę. „Visual Basic for Applications“ (VBA) gali būti galingas įrankis automatizuoti procesus „Microsoft Office“ programose. Naudodami VBA galite naudoti „Microsoft Excel“ programos objektą, kad sukurtumėte „Excel“ skaičiuoklę iš „Access“. „Excel“ programos objektas yra įvesties taškas į likusį objekto modelį. Greitai eksportuokite duomenis į „Excel“ išsaugodami duomenis tiesiai „Excel“ skaičiuoklėje.
1 žingsnis
Paleiskite „Microsoft Office Access“, spustelėkite „Tuščia duomenų bazė“ ir spustelėkite mygtuką „Sukurti“, kad sukurtumėte tuščią duomenų bazę. Spustelėkite skirtuką „Duomenų bazės įrankiai“ ir spustelėkite „Visual Basic“, kad atidarytumėte „Microsoft Visual Basic“ langą. Spustelėkite meniu „Įterpti“ ir spustelėkite „Modulis“, kad įterptumėte naują kodo modulį.
Dienos vaizdo įrašas
2 žingsnis
Spustelėkite meniu „Įrankiai“ ir spustelėkite „Nuorodos“. Slinkite žemyn ir pažymėkite langelį šalia „Microsoft Excel
3 veiksmas
Pradėkite įvesdami šį VBA kodą, kad sukurtumėte naują antrinę procedūrą:
Privati antrinė dalis createSpreadSheet()
4 veiksmas
Tęskite įvesdami šį kodą, kad sukurtumėte tris naujus kintamųjų objektus, kurie bus naudojami kuriant „Excel“ skaičiuoklę:
Pritemdykite naują „ExcelApp“ kaip „Excel“. Taikymas. Dim newWbk Kaip Excel. Darbo knyga. Pritemdykite naują WkSheet kaip „Excel“. Darbalapis
5 veiksmas
Pridėkite šį kodą, kad paleistumėte „Excel“ ir jį parodytumėte:
Nustatyti newExcelApp = Excel. Taikymas
nauja „ExcelApp“. Matoma = tiesa
6 veiksmas
Norėdami pridėti naują darbaknygę ir darbalapį, įveskite:
Nustatyti newWbk = newExcelApp. Darbo knygelės. Papildyti
Nustatyti newWkSheet = newWbk. Darbalapiai (1)
7 veiksmas
Pridėkite duomenis į naują skaičiuoklę įvesdami:
naujasWkSheet. Langeliai (1, 1).Value = "Naujas darbalapis..."
8 veiksmas
Išsaugokite naują darbaknygę, sukurtą įvesdami šį kodą:
naujasWkSheet. Išsaugoti kaip („C:\myworksheet.xlsx“)
9 veiksmas
Redaguokite kelią ankstesniame žingsnyje ir įveskite pasirinktą kelią bei failo pavadinimą.
10 veiksmas
Norėdami baigti antrinę procedūrą, įveskite:
Pabaigos sub
11 veiksmas
Paspauskite „F5“, kad paleistumėte procedūrą ir sukurtumėte naują „Excel“ skaičiuoklę.
