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
Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
-
- nováček
- Příspěvky: 1
- Registrován: listopad 18
- Pohlaví:
- Stav:
Offline
Re: Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
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
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
Re: Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
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.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 2
- 401
-
od Myerina
Zobrazit poslední příspěvek
před 24 minutami
-
- 4
- 1128
-
od Grander
Zobrazit poslední příspěvek
09 čer 2023 21:31
-
- 11
- 2067
-
od Grander
Zobrazit poslední příspěvek
30 črc 2023 15:20
-
-
Jak hromadně změnit datum a čas souborů?
od atari » 11 črc 2023 14:41 » v Programování a tvorba webu - 3
- 2457
-
od X
Zobrazit poslední příspěvek
14 črc 2023 15:17
-
-
-
Windows nezobrazuje podrobnosti souborů Příloha(y)
od pepanecek5 » 04 úno 2024 14:01 » v Windows 11, 10, 8... - 4
- 685
-
od kecalek
Zobrazit poslední příspěvek
05 úno 2024 19:57
-
Kdo je online
Uživatelé prohlížející si toto fórum: mmmartin a 4 hosti