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

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

Moderátor: Mods_senior

Pavel Křivánek
nováček
Příspěvky: 1
Registrován: listopad 18
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Pavel Křivánek » 26 lis 2018 15:04

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

karlos64
nováček
Příspěvky: 35
Registrován: červenec 18
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod karlos64 » 27 lis 2018 22:22

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
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod MePExG » 28 lis 2018 21:30

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
  • Tisk ELD souboru
    od Jandak » 30 dub 2023 09:53 » v Problémy s hardwarem
    4
    1103
    od Grander Zobrazit poslední příspěvek
    09 čer 2023 21:31
  • Přenos souborů SD - USB flash bez PC
    od Asanoth » 29 črc 2023 17:35 » v Sítě - hardware
    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
  • Volné řazení souborů ve složce
    od FIDLIK » 04 dub 2023 20:47 » v Windows 11, 10, 8...
    1
    1369
    od Karrex Zobrazit poslední příspěvek
    27 dub 2023 09:46

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti