Toegang krijgen tot VBA om een ​​Excel-spreadsheet te maken

...

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

Objectbibliotheek." Klik op "OK".

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.