0
0

Dobry den. Po importe tabulky z mdb suboru sa udaje nevlozia do prvej prazdnej bunky, ale otvori sa novy zosit. Makro je zatial len testovanie pre jeden subor (potreboval by som zadat cyklus pre nacitanie vsetkych mdb v jednom adresari):

.....................
Sub Makro2()

Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Dim MyRange As String

'urcenie prvej prazdnej bunky:
Set the_sheet = Sheets("Sheet1")
Set table_list_object = the_sheet.ListObjects(1)
Set table_object_row = table_list_object.ListRows.Add

last_row_withData = the_sheet.Range("A900000").End(xlUp).Row + 1

'otvorenie externej databazy:
Workbooks.OpenDatabase Filename:= "C:\Users\source\source1.mdb" _
, CommandText:=Array("table1"), CommandType:=xlCmdTable, ImportDataAs:= _
xlTable

'vlozenie tabulky z externej databazy do prvej prazdnej bunky:
the_sheet.Range("a" & last_row_withData).PasteSpecial

End Sub

Marked as spam
Odeslal Jozef
Otázka položena 20.2.2020 7:56
17 views
0
Private answer

Dobrý den, v makrech Vám takto neporadím, je ale nějaký důvod, proč to nedělat v Power query? Tam by to mělo být řádově jednodušší...

Marked as spam
Odeslal (Otázky: 1, Odpovědi: 255)
Odpověděl 20.2.2020 11:23
0
Private answer

Ďakujem Jiří, výborný tip. Power query vôbec nepoznám, ale vyzerá to ako naozaj dobrý nástroj.

Marked as spam
Odeslal Jozef
Odpověděl 20.2.2020 12:08

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]