Jak vytvořit tabulku v aplikaci Excel z aplikace Access pomocí VBA

Autor: Judy Howell
Datum Vytvoření: 28 Červenec 2021
Datum Aktualizace: 13 Smět 2024
Anonim
Jak vytvořit tabulku v aplikaci Excel z aplikace Access pomocí VBA - Články
Jak vytvořit tabulku v aplikaci Excel z aplikace Access pomocí VBA - Články

Obsah

Vytvoření listu aplikace Excel v aplikaci Access může ušetřit čas, když potřebujete exportovat data do listu aplikace Excel. Visual Basic for Applications (VBA) může být výkonným nástrojem pro automatizaci procesů v aplikacích sady Microsoft Office. S VBA můžete použít objekt aplikace Microsoft Excel k vytvoření tabulky aplikace Excel z aplikace Access. Objekt Excel je výchozím bodem pro zbytek modelu objektu. Export dat do aplikace Excel rychlejší uložením dat přímo do listu aplikace Excel.


Pokyny

Uložení dat do listu aplikace Excel pomocí VBA (Jupiterimages / Photos.com / Getty Images)

    Pokyny

  1. Spusťte aplikaci Microsoft Office Access, klepněte na tlačítko "prázdné databáze" a klepněte na tlačítko "Vytvořit" vytvořit prázdnou databázi. Klepněte na kartu "Nástroje databáze" a klepněte na tlačítko "Visual Basic" otevřete okno Microsoft Visual Basic. Klikněte na nabídku "Vložit" a klikněte na "Modul" pro vložení nového kódu modulu.

  2. Klikněte na nabídku "Nástroje" a klikněte na "Odkazy". Přejeďte a zaškrtněte políčko vedle položky „Microsoft Excel Knihovna objektů "(knihovna objektů Microsoft Excel). Klikněte na tlačítko OK.

  3. Začněte zadáním následujícího kódu do VBA a vytvořte nový dílčí postup:


    Private Sub createSpreadSheet ()

  4. Pokračujte v zadávání následujícího kódu a vytvořte tři nové proměnné objektu, které budou použity k vytvoření listu aplikace Excel:

    Dim newExcelApp jako Excel.Application Dim newWbk jako Excel.Workbook Dim newWkSheet As Excel.Worksheet

  5. Přidejte následující kód spustit Excel a zobrazit jej: t

    Nastavit newExcelApp = Excel.Application newExcelApp.Visible = True

  6. Zadejte následující kód pro přidání nového sešitu a listu:

    Nastavit newWbk = newExcelApp.Workbooks.Add Set newWkSheet = newWbk.Worksheets (1)

  7. Přidejte data do nového listu zadáním následujícího kódu:

    newWkSheet.Cells (1, 1) .Value = "Nový list ..."

  8. Uložte nový sešit vytvořený zadáním následujícího kódu:


    newWkSheet.SaveAs ("C: myworksheet.xlsx")

  9. Upravte cestu v předchozím kroku a zadejte požadovaný adresář a název souboru.

  10. Chcete-li ukončit dílčí postup, zadejte následující kód:

    End Sub

  11. Stisknutím klávesy "F5" spustit postup a vytvořit nový list aplikace Excel.