Uložte údaje do tabuľky Excel pomocou VBA.
Vytvorenie excelovej tabuľky v Accesse vám môže ušetriť čas, keď potrebujete exportovať údaje do excelovej tabuľky. Visual Basic for Applications (VBA) môže byť výkonným nástrojom na automatizáciu procesov v aplikáciách balíka Microsoft Office. S VBA môžete použiť objekt Microsoft Excel Application na vytvorenie excelovej tabuľky z Accessu. Objekt aplikácie Excel je vstupným bodom do zvyšku objektového modelu. Exportujte údaje rýchlejšie do Excelu uložením údajov priamo do excelovej tabuľky.
Krok 1
Spustite Microsoft Office Access, kliknite na „Prázdna databáza“ a kliknutím na tlačidlo „Vytvoriť“ vytvorte prázdnu databázu. Kliknite na kartu „Nástroje databázy“ a kliknutím na „Visual Basic“ otvorte okno Microsoft Visual Basic. Kliknite na ponuku „Vložiť“ a kliknutím na „Modul“ vložte nový modul kódu.
Video dňa
Krok 2
Kliknite na ponuku „Nástroje“ a kliknite na „Odkazy“. Posuňte zobrazenie nadol a začiarknite políčko vedľa položky „Microsoft Excel
Krok 3
Začnite zadaním nasledujúceho kódu VBA na vytvorenie novej čiastkovej procedúry:
Súkromná podstránka createSpreadSheet()
Krok 4
Pokračujte zadaním nasledujúceho kódu na vytvorenie troch nových premenných objektov, ktoré sa použijú na vytvorenie tabuľky Excel:
Dim newExcelApp ako Excel. Aplikácia. Dim newWbk ako Excel. Pracovný zošit. Dim newWkSheet ako Excel. Pracovný list
Krok 5
Ak chcete spustiť Excel a zobraziť ho, pridajte nasledujúci kód:
Nastaviť newExcelApp = Excel. Aplikácia
nová aplikácia ExcelApp. Viditeľné = pravda
Krok 6
Ak chcete pridať nový zošit a pracovný hárok, zadajte nasledovné:
Nastaviť newWbk = newExcelApp. Pracovné zošity. Pridať
Nastaviť newWkSheet = newWbk. Pracovné listy (1)
Krok 7
Pridajte údaje do svojej novej tabuľky zadaním nasledovného:
newWkSheet. Bunky (1, 1).Hodnota = "Nový pracovný hárok..."
Krok 8
Uložte vytvorený nový zošit zadaním nasledujúceho kódu:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")Krok 9
Upravte cestu v predchádzajúcom kroku a zadajte cestu a názov súboru podľa vlastného výberu.
Krok 10
Ak chcete ukončiť čiastkovú procedúru, zadajte nasledovné:
End Sub
Krok 11
Stlačením klávesu "F5" spustíte postup a vytvoríte novú tabuľku programu Excel.
