Conţinut
Crearea unei foi de lucru Excel în Access vă poate economisi timp atunci când aveți nevoie să exportați datele într-o foaie de lucru Excel. Visual Basic for Applications (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 Excel este punctul de plecare pentru restul modelului de obiect. Exportați datele mai rapid în Excel salvând datele direct într-o foaie de lucru Excel.
instrucțiuni de ghidare
Salvați datele într-o foaie de lucru Excel utilizând VBA (Jupiterimages / Photos.com / Getty Images)-
Executați Microsoft Office Access, faceți clic pe "Blank Database" și faceți clic pe butonul "Create" pentru a crea o bază de date necompletată. 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 "Inserați" și faceți clic pe "Modul" pentru a insera un nou cod de modul.
-
Faceți clic pe meniul "Instrumente" și faceți clic pe "Referințe". Glisați și bifați caseta de lângă "Microsoft Excel"
Object Library "(bibliotecă de obiecte Microsoft Excel). Faceți clic pe "OK". -
Începeți prin tastarea următorului cod în VBA pentru a crea o nouă procedură sub:
Private Sub createSpreadSheet ()
-
Continuați să tastați următorul cod pentru a crea trei variabile de obiect noi care vor fi folosite pentru a crea foaia de lucru Excel:
Dim newExcelApp Ca Excel.Application Dim newWbk Ca Excel.Workbook Dim newWkSheet Ca Excel.Worksheet
-
Adăugați următorul cod pentru a executa Excel și a le afișa:
Setați newExcelApp = Excel.Application newExcelApp.Visible = Adevărat
-
Introduceți codul următor pentru a adăuga un nou registru de lucru și o foaie de lucru:
Setați newWbk = newExcelApp.Workbooks.Add Set newWkSheet = newWbk.Worksheets (1)
-
Adăugați date în noua foaie de lucru tastând următorul cod:
newWkSheet.Cells (1, 1) .Value = "Foaie nouă de lucru ..."
-
Salvați noul registru de lucru creat prin introducerea următorului cod:
newWkSheet.SaveAs ("C: myworksheet.xlsx")
-
Editați calea din pasul anterior și introduceți directorul și numele fișierului la alegere.
-
Introduceți codul următor pentru a încheia procedura secundară:
End Sub
-
Apăsați "F5" pentru a executa procedura și a crea o nouă foaie de lucru Excel.