Salvați datele într-o foaie de calcul Excel folosind VBA.
Crearea unei foi de calcul Excel în Access vă poate economisi timp atunci când trebuie să exportați date într-o foaie de calcul Excel. Visual Basic pentru aplicații (VBA) poate fi un instrument puternic pentru automatizarea proceselor din aplicațiile Microsoft Office. Cu VBA puteți utiliza obiectul Aplicație Microsoft Excel pentru a crea o foaie de calcul Excel din Access. Obiectul aplicației Excel este punctul de intrare în restul modelului obiect. Exportați datele mai rapid în Excel salvând datele direct într-o foaie de calcul Excel.
Pasul 1
Lansați Microsoft Office Access, faceți clic pe „Blank Database” și faceți clic pe butonul „Create” pentru a crea o bază de date goală. Faceți clic pe fila „Instrumente pentru baze de date” și faceți clic pe „Visual Basic” pentru a deschide fereastra Microsoft Visual Basic. Faceți clic pe meniul „Inserare” și faceți clic pe „Modul” pentru a introduce un nou modul de cod.
Videoclipul zilei
Pasul 2
Faceți clic pe meniul „Instrumente” și faceți clic pe „Referințe”. Derulați în jos și bifați caseta de lângă „Microsoft Excel
Pasul 3
Începeți prin a tasta următorul cod VBA pentru a crea o nouă procedură secundară:
Private Sub createSpreadSheet()
Pasul 4
Continuați tastând următorul cod pentru a crea trei noi obiecte variabile care vor fi folosite pentru a crea foaia de calcul Excel:
Dim newExcelApp ca Excel. Aplicație. Dim newWbk ca Excel. Caiet de lucru. Dim newWkSheet ca Excel. Fisa de lucru
Pasul 5
Adăugați următorul cod pentru a lansa Excel și afișați-l:
Setați newExcelApp = Excel. Aplicație
noua aplicație Excel. Vizibil = Adevărat
Pasul 6
Introduceți următoarele pentru a adăuga un nou registru de lucru și o foaie de lucru:
Setați newWbk = newExcelApp. Caiete de lucru. Adăuga
Setați newWkSheet = newWbk. Fișe de lucru (1)
Pasul 7
Adăugați date în noua foaie de calcul tastând următoarele:
newWkSheet. Celule (1, 1).Valoare = „Foaie de lucru nouă...”
Pasul 8
Salvați noul registru de lucru creat tastând următorul cod:
newWkSheet. Salvare ca ("C:\myworksheet.xlsx")Pasul 9
Editați calea la pasul anterior și introduceți calea și numele fișierului la alegere.
Pasul 10
Introduceți următoarele pentru a încheia subprocedura:
End Sub
Pasul 11
Apăsați „F5” pentru a rula procedura și pentru a crea o nouă foaie de calcul Excel.
