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ž

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: 22
Registrován: červenec 18
Pohlaví: Muž

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

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
  • MS Office Excel: VBA - Přiřazení názvu k .pdf vygenerovanému souboru
    od Klamer » 30 dub 2019 19:08 » v Kancelářské balíky
    2
    258
    od Goo
    01 kvě 2019 14:18
  • VBA import vice souboru do jednoho
    od honza99 » 26 úno 2019 13:32 » v Programování a tvorba webu
    0
    369
    od honza99
    26 úno 2019 13:32
  • Excel vypis adresare s datem vytvoreni souboru
    od Lukanec » 07 pro 2018 15:53 » v Kancelářské balíky
    2
    458
    od MePExG
    07 pro 2018 16:59
  • VBA makro rada
    od Dusan150 » 28 úno 2019 11:47 » v Kancelářské balíky
    12
    1038
    od Dusan150
    02 bře 2019 16:56
  • VBA - úprava dat
    od Listers » 25 dub 2019 09:15 » v Kancelářské balíky
    5
    520
    od Listers
    26 dub 2019 21:08

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 5 hostů