Excel - VBA - Makro - odeslání dat ze souboru A do souboru B

[Pavel Křivánek]

Dobrý den,

Prosím o radu.

Mám na místním disku soubor A, který má list X, na tom listu jsou buňky A4 - AA4, které obsahují data.

Potřebuji data přenést do souboru B, který má list Y, na tomto listu jsou taktéž buňky A - AA, ale řádek se s postupem času mění, resp. se zaplňuje daty. Takže je potřeba najít první volný řádek a tam vepsat data.

Soubor B je umístěn ve firemní síti na známém místě, má známý a neměnný název.

Předem díky za raku

[Reklama]

[a.mlady]

Dobrý večer.
Koukněte tady:
https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/makro-pro-kopirovani-z-jednoho-souboru-do-jineho/
https://office.lasakovi.com/excel/vba-listy-bunky/radky-sloupce-excel-vba-kody/

[karlos64]

Dobrý den,
já používám něco takového:

Sub Makro1()
'
' Makro1 Makro
'

'
'umístění zdroje (cesta)
ChDir "disk (např.C):\adresář\"
'otevření zdrojového souboru
Workbooks.Open Filename:="disk (např.C):\adresář\název zdrojového souboru.xlsm"
'název listu
Sheets("zdroje").Select
'oblast kopírování ve zdroji
Range("sloupecřádek:sloupecřádek").Select
'příkaz kopírování
Selection.Copy
'aktivace cílového souboru
Windows("název souboru.xlsm").Activate
Sheets("zdroje").Select
'vyhledání posledního volného řádku
Range("A500000").End(xlUp).Offset(1).Select
'vložení kopírované oblasti
ActiveSheet.Paste
'uzavření zdrojového souboru
Windows("název zdrojového souboru.xlsm").Activate
ActiveWorkbook.Close


End Sub

[MePExG]

Ja by som to staval trochu ináč. Súbory s údajmi dávať na dohodnuté miesto/a/ na serveri do adresárov užívateľov a zber na vyhodnotenie aj z viacerých adresárov zabezpečiť pomocou Power Query. Je to bez riadku programovania (iba naklikať ten zber) a výsledok nezobrazovať v tabuľke, aby nerachla na počte riadkov, ale v kontingenčnej/-ných/ tabuľke.