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: 29
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 2
Level 2
Příspěvky: 153
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
  • Excel - rozklikávací seznam v buňce nefunguje po odeslání/uložení souboru
    od Radkli » 14 srp 2019 16:25 » v Kancelářské balíky
    2
    624
    od dareback
    19 říj 2019 12:07
  • Excel vypis adresare s datem vytvoreni souboru
    od Lukanec » 07 pro 2018 15:53 » v Kancelářské balíky
    2
    563
    od MePExG
    07 pro 2018 16:59
  • 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
    549
    od Goo
    01 kvě 2019 14:18
  • MAKRO EXCEL - Prosím o pomoc.
    od majerpetr » 09 lis 2018 09:54 » v Kancelářské balíky
    7
    1187
    od MePExG
    11 lis 2018 07:53
  • Excel 2016 - nefunkční makro
    od Pekram » 02 lis 2018 09:49 » v Kancelářské balíky
    1
    593
    od xlnc
    02 lis 2018 18:05

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

Kdo je online

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