Sla gegevens op in een Excel-spreadsheet met VBA.
Door een Excel-spreadsheet in Access te maken, kunt u tijd besparen wanneer u gegevens naar een Excel-spreadsheet moet exporteren. Visual Basic for Applications (VBA) kan een krachtig hulpmiddel zijn om processen in Microsoft Office-toepassingen te automatiseren. Met VBA kunt u het Microsoft Excel Application-object gebruiken om vanuit Access een Excel-spreadsheet te maken. Het Excel-toepassingsobject is het toegangspunt tot de rest van het objectmodel. Exporteer gegevens sneller naar Excel door gegevens rechtstreeks op te slaan in een Excel-spreadsheet.
Stap 1
Start Microsoft Office Access, klik op "Lege database" en klik op de knop "Maken" om een lege database te maken. Klik op het tabblad "Databasetools" en klik op "Visual Basic" om het Microsoft Visual Basic-venster te openen. Klik op het menu "Invoegen" en klik op "Module" om een nieuwe codemodule in te voegen.
Video van de dag
Stap 2
Klik op het menu 'Extra' en klik op 'Verwijzingen'. Scroll naar beneden en vink het vakje aan naast "Microsoft Excel
Stap 3
Typ eerst de volgende VBA-code om een nieuwe subprocedure te maken:
Privé Sub createSpreadSheet()
Stap 4
Ga verder door de volgende code te typen om drie nieuwe variabele objecten te maken die zullen worden gebruikt om het Excel-spreadsheet te maken:
Dim nieuwe ExcelApp als Excel. Sollicitatie. Dim newWbk als Excel. Werkboek. Dim newWkSheet als Excel. werkblad
Stap 5
Voeg de volgende code toe om Excel te starten en weer te geven:
Stel newExcelApp = Excel in. Sollicitatie
nieuweExcelApp. Zichtbaar = Waar
Stap 6
Typ het volgende om een nieuwe werkmap en een werkblad toe te voegen:
Stel newWbk = newExcelApp in. Werkboeken. Toevoegen
Stel newWkSheet = newWbk in. Werkbladen (1)
Stap 7
Voeg gegevens toe aan uw nieuwe spreadsheet door het volgende te typen:
nieuwWkBlad. Cellen (1, 1). Waarde = "Nieuw werkblad..."
Stap 8
Sla de nieuwe werkmap op die is gemaakt door de volgende code te typen:
nieuwWkBlad. OpslaanAls ("C:\mijnwerkblad.xlsx")
Stap 9
Bewerk het pad in de vorige stap en typ het pad en de bestandsnaam van uw keuze.
Stap 10
Typ het volgende om de subprocedure te beëindigen:
Einde sub
Stap 11
Druk op "F5" om uw procedure uit te voeren en een nieuw Excel-spreadsheet te maken.