IMPORT Z ACCESSU DO EXCELU

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Kurimak
nováček
Příspěvky: 15
Registrován: leden 16
Pohlaví: Muž

IMPORT Z ACCESSU DO EXCELU

Příspěvekod Kurimak » 12 led 2018 13:34

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
  1. Set Database = app.CurrentDb

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

  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


Nevíte, kde je chyba?



Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14854
Registrován: březen 10
Pohlaví: Muž

Re: IMPORT Z ACCESSU DO EXCELU

Příspěvekod ITCrowd » 12 led 2018 13:56

Deklarace proměnné Database. A až to uděláš, pak se to ozve ještě na rs.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Kurimak
nováček
Příspěvky: 15
Registrován: leden 16
Pohlaví: Muž

Re: IMPORT Z ACCESSU DO EXCELU

Příspěvekod Kurimak » 12 led 2018 14:10

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

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14854
Registrován: březen 10
Pohlaví: Muž

Re: IMPORT Z ACCESSU DO EXCELU

Příspěvekod ITCrowd » 12 led 2018 14:26

Pravděpodobně Object. Když ho nastavuješ pomocí Set.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

MePExG
Level 1
Level 1
Příspěvky: 87
Registrován: srpen 16
Pohlaví: Muž

Re: IMPORT Z ACCESSU DO EXCELU

Příspěvekod MePExG » 12 led 2018 17:37

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
nováček
Příspěvky: 15
Registrován: leden 16
Pohlaví: Muž

Re: IMPORT Z ACCESSU DO EXCELU

Příspěvekod Kurimak » 15 led 2018 09:59

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
nováček
Příspěvky: 15
Registrován: leden 16
Pohlaví: Muž

Re: IMPORT Z ACCESSU DO EXCELU

Příspěvekod Kurimak » 16 led 2018 09:05

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í.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Cyklus v excelu
    od mapok » 20 črc 2018 09:16 » v Kancelářské balíky
    2
    582
    od elninoslov
    29 črc 2018 02:30
  • Vytvoření vzorce v excelu
    od sok1 » 04 říj 2018 13:00 » v Kancelářské balíky
    1
    171
    od atari
    04 říj 2018 16:25
  • Výpočet přesčasů v EXCELu
    od zouhin » 28 kvě 2018 21:43 » v Kancelářské balíky
    5
    798
    od elninoslov
    29 kvě 2018 21:28
  • Tvorba makra v excelu
    od micka » 27 dub 2018 08:56 » v Kancelářské balíky
    4
    450
    od micka
    27 dub 2018 10:41
  • odkaz v excelu na word
    od TeIkQ » 21 úno 2018 14:25 » v Vše ostatní (sw)
    2
    319
    od TeIkQ
    21 úno 2018 17:37

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 3 hosti