IMPORT Z ACCESSU DO EXCELU

[Kurimak]

Zdravím potřebuji naimportovat větší množství tabulek z Accessu do Excelu.
Mám makro s využitím SQL dotazu. Když ho spustím objeví se hláška Variable not defined.
a označí se v kódu

Code: [Vybrat vše] [Zobrazit/Skrýt] [Download] (Bez_jmena.vb)

1. Set Database = app.CurrentDb

GeSHi © Codebox Plus Extension

Kód mám přitom podle příručky správně.

Code: [Vybrat vše] [Zobrazit/Skrýt] [Download] (Bez_jmena.vb)

1. Sub Import_mdb()
2. Dim Cesta As String
3. Dim Cela_cesta As String
4. Dim Radek As Long
5. Dim Pripona As String
6. Dim SouboryKtere As String
7. Pripona = "*.mdb"
8. Radek = 1
9.  
10.  
11.  
12. Cela_cesta = ActiveWorkbook.Path & "\" & "Import" & "\"
13.  
14.  
15. ChDir Cela_cesta
16. SouboryKtere = Dir(Pripona)
17.  
18.  
19. Do While SouboryKtere <> ""
20. MsgBox SouboryKtere
21. Dim app As New Access.Application
22. app.OpenCurrentDatabase Cela_cesta & SouboryKtere
23. Set Database = app.CurrentDb
24. prikazSQL = "SELECT * FROM _Tabulka zdrojových dat_"
25. Set rs = Database.OpenRecordset("prikaz_SQL")
26. Cells(Radek, 1).CopyFromRecordset rs
27. Radek = Cells.CurrentRegion.Rows.Count + 1
28. rs.Close
29. SouboryKtere = Dir
30. Loop
31.  
32.  
33. End Sub

GeSHi © Codebox Plus Extension

Nevíte, kde je chyba?

[Reklama]

[Uziv00]

Deklarace proměnné Database. A až to uděláš, pak se to ozve ještě na rs.

[Kurimak]

A jaký typ proměnné bych měl pro Database a rs použít?

[Uziv00]

Pravděpodobně Object. Když ho nastavuješ pomocí Set.

[MePExG]

V prípade, že používate od verzie 2010 vyššie (2016) už obsahuje, môžete použiť Power Query (voľne stiahnuteľný doplnok) s ktorým môžete robiť rôzne triky (spájanie, rozkladanie agregácie, filtrácie a iné úpravy [z rôznych zdrojov rôznej veľkosti] bez potreby použitia Access-u) s údajmi.

[Kurimak]

Už jsem to vyřešil, doplněním deklarací. Děkuji za oba typy. Power Query je však spíše pro tvoření různých sumárních tabulek než pro automatizovaný export. Přesto děkuji.

Public Sub Import_z_Accessu()
Dim Cesta As String
Dim Odkaz As Worksheet

Dim Database As Object
Dim prikaz_SQL As String
Dim rs As Object
Dim Pripona As String
Dim SouboryKtere As String
'Vypnutí překreslování grafiky
Application.ScreenUpdating = False

'Výběr přípony importovaných souborů
Pripona = "*.mdb"
Radek = 1

' Cesta na sešit s makrem, vytvoření objektové proměnné s odkazem na list
Cesta = ActiveWorkbook.Path & "\" & "Import" & "\"
Set Odkaz = Worksheets("Access")


ChDir Cesta
SouboryKtere = Dir(Pripona)

' Vytvoření objektové proměnné spustí Access na pozadí
Dim app As New Access.Application

Do While SouboryKtere <> ""

' Otevření zdrojové databáze a vytvoření její objektové proměnné
app.OpenCurrentDatabase Cesta & SouboryKtere
Set Database = app.CurrentDb
' Příkaz SQL pro výběr sloupců a záznamů z tabulky se zapíše do textové proměnné
prikaz_SQL = "SELECT _Tabulka zdrojových dat_.* FROM [_Tabulka zdrojových dat_]"
' Vytvoření recordsetu s příkazem SQL
Set rs = Database.OpenRecordset(prikaz_SQL)
' Zkopírování vybraných záznamů do sešitu
Odkaz.Cells(Radek, 1).CopyFromRecordset rs
rs.Close
'Přičítání řádků - určení prvního neposaného řádku
Radek = Cells.CurrentRegion.Rows.Count + 1
'Uzavření aktuální databáze
app.CloseCurrentDatabase

SouboryKtere = Dir
Loop

' Ukončení Accessu
app.Quit

'Zapnutí překreslování grafiky
Application.ScreenUpdating = True

MsgBox "Hotovo"


End Sub

[Kurimak]

Nevěděl by někdo, jak z tabulky v Accessu do Excelu dostanu i záhlaví tabulky. Vše se pomocí SQL zkopíruje v pořádku kromě záhlaví tabulky, které chybí.