Uložte data do tabulky Excel pomocí VBA.
Vytvoření excelové tabulky v Accessu vám může ušetřit čas, když potřebujete exportovat data do excelové tabulky. Visual Basic for Applications (VBA) může být mocným nástrojem pro automatizaci procesů v aplikacích Microsoft Office. S VBA můžete použít objekt aplikace Microsoft Excel k vytvoření tabulky Excel z Accessu. Objekt aplikace Excel je vstupním bodem ke zbytku objektového modelu. Exportujte data do Excelu rychleji díky ukládání dat přímo do excelové tabulky.
Krok 1
Spusťte Microsoft Office Access, klikněte na „Prázdná databáze“ a kliknutím na tlačítko „Vytvořit“ vytvořte prázdnou databázi. Klepněte na kartu "Nástroje databáze" a kliknutím na "Visual Basic" otevřete okno Microsoft Visual Basic. Klikněte na nabídku "Vložit" a kliknutím na "Modul" vložte nový modul kódu.
Video dne
Krok 2
Klikněte na nabídku „Nástroje“ a klikněte na „Odkazy“. Přejděte dolů a zaškrtněte políčko vedle položky „Microsoft Excel
Krok 3
Začněte zadáním následujícího kódu VBA a vytvořte novou dílčí proceduru:
Private Sub createSpreadSheet()
Krok 4
Pokračujte zadáním následujícího kódu a vytvořte tři nové proměnné objekty, které budou použity k vytvoření tabulky Excel:
Dim newExcelApp jako Excel. Aplikace. Dim newWbk jako Excel. Pracovní sešit. Dim newWkSheet jako Excel. Pracovní list
Krok 5
Chcete-li spustit Excel a zobrazit jej, přidejte následující kód:
Nastavit newExcelApp = Excel. aplikace
nová aplikace ExcelApp. Viditelné = pravda
Krok 6
Chcete-li přidat nový sešit a list, zadejte následující:
Nastavit newWbk = newExcelApp. Pracovní sešity. Přidat
Nastavit newWkSheet = newWbk. Pracovní listy (1)
Krok 7
Přidejte data do své nové tabulky zadáním následujícího:
novýWkSheet. Buňky (1, 1).Value = "Nový list..."
Krok 8
Uložte vytvořený nový sešit zadáním následujícího kódu:
novýWkSheet. Uložit jako ("C:\myworksheet.xlsx")
Krok 9
Upravte cestu v předchozím kroku a zadejte cestu a název souboru podle svého výběru.
Krok 10
Pro ukončení dílčí procedury zadejte následující:
End Sub
Krok 11
Stisknutím "F5" spusťte svůj postup a vytvořte novou tabulku aplikace Excel.