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
-
- 4
- 1103
-
od Grander
Zobrazit poslední příspěvek
09 čer 2023 21:31
-
- 11
- 2032
-
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 - 2
- 2334
-
od atari
Zobrazit poslední příspěvek
13 črc 2023 10:52
-
-
-
Windows nezobrazuje podrobnosti souborů Příloha(y)
od pepanecek5 » 04 úno 2024 14:01 » v Windows 11, 10, 8... - 4
- 586
-
od kecalek
Zobrazit poslední příspěvek
05 úno 2024 19:57
-
-
- 1
- 1369
-
od Karrex
Zobrazit poslední příspěvek
27 dub 2023 09:46
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti