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: 7
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: 101
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 vypis adresare s datem vytvoreni souboru
    od Lukanec » 07 pro 2018 15:53 » v Kancelářské balíky
    2
    165
    od MePExG
    07 pro 2018 16:59
  • Nefunguje mi makro na odeslani listu z excelu
    od Snekment » 13 bře 2018 10:51 » v Kancelářské balíky
    2
    454
    od Snekment
    13 bře 2018 12:37
  • Word - VBA: Uložení do složky v .pdf a odeslání onoho .pdf emailem
    od Goo » 16 kvě 2018 20:30 » v Kancelářské balíky
    0
    390
    od Goo
    16 kvě 2018 20:30
  • EXCEL 2010 - odeslání emailu z excelu s určitými buňkami
    od zlejKluk » 28 úno 2018 14:50 » v Kancelářské balíky
    3
    483
    od xlnc
    28 úno 2018 20:26
  • Excel VBA
    od Dawyck » 06 led 2018 21:35 » v Kancelářské balíky
    1
    345
    od xlnc
    07 led 2018 14:17

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

Kdo je online

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