< návrat zpět

MS Excel


Téma: kopie mezi instancemi Excelu rss

Zaslal/a 7.10.2020 10:11

Ahoj, potřeboval bych poradit s kopírováním mezi otevřenými instancemi excelu.

Mám otevřený excel 1 a v něm sešit 1 a chci třeba A3:I10 makrem zkopírovat do excelu 2 sešitu 1

jak na to?

děkuji za rady

Zaslat odpověď >

Strana:  1 2 3   další »
#048250
avatar
tu prikladam dve moznosti prva je kde pozera vsetky otvorene workbook a do kazdeho ineho to hodi. druha moznost je presne definovana oblast.

Sub test1()
Dim aExcel As Workbook
Dim aSheet As Worksheet
Range("A3:I10").Copy
For Each aExcel In Workbooks
If Not aExcel Is ThisWorkbook Then aExcel.ActiveSheet.Paste
Next
End Sub

Sub test2()
Range("A3:I10").Copy
Windows("test2.xlsx").Activate
Range("A3").Select
ActiveSheet.Paste
End Subcitovat
#048251
avatar
děkuji za radu, tohle vím, ja to potřebuji kopírovat mezi dvěmi instancemi excelu /mám otevřené 2 excely/
Příloha: jpg48251_ex.jpg (7kB, staženo 13x)
48251_ex.jpg
citovat
#048252
avatar

rinma napsal/a:

děkuji za radu, tohle vím, ja to potřebuji kopírovat mezi dvěmi instancemi excelu /mám otevřené 2 excely/Příloha: 48251_ex.jpg (7kB, staženo 2x)

Sorry za otázku. A tie inštancie sú otvorené na tom istom počítači? Lebo z otázky to nie je zrejmé. 4citovat
#048253
avatar
urcite na jednom PC uz viem o com hovori. v visual studiu by som hladal excel application ale v VBA este neviem ci nato je prikaz :) dam vediet ked to najdemcitovat
#048255
avatar
ano, na jednom PCcitovat
#048256
avatar
skuste tuto funkciu co radia tu na fore:

https://stackoverflow.com/questions/30363748/having-multiple-excel-instances-launched-how-can-i-get-the-application-object-fcitovat
#048258
avatar
nějak se mi to nedaří. zkoušel jsem i toto
https://stackoverflow.com/questions/46506734/copy-and-paste-between-different-excel-instancescitovat
#048259
avatar
A čo tak otvoriť si oba súbory v jednej inštancii?
Teda ja by som to riešil takto. A ani by som nevymýšľal nejaké makrá.citovat
#048262
avatar
to jsem zkoušel, ale jedná se o toto. používám excel jako časomíru k závodům, ten druhý, soubor out, má sloužit jako online náhled výsledků pro závodníky. Tam chci kopírovat aktuální výsledky, vždy jak někdo doběhne do cíle. to umím, ale dále chci, aby výsledky , když bude zaplněn poslední řádek, automaticky rotovaly (po 15 s), tzn. nejdříve řádky 0-27, pak po 15 s se ukážou řádky 28-64 atd., a pořád dokola.nato nemohu přijít a udělat to tak, abych neomezil excel, kde pořád dál měřím výsledk. kdyby to šlo udělat v jedné instanci, tak by mi to nevadilo, ale nevím jak.
Příloha: xlsx48262_out.xlsx (16kB, staženo 5x)
citovat
#048266
avatar
ta priloha je len nejaka tabulka.

- mne to makro z toho fora fungovalo.

este ma napadlo ci tato funkcia nenajde ten vas druhy excel:

Sub aTest()
Dim aWin As Window
Dim aApp As Excel.Application
Dim aSheet As Excel.Worksheet

For Each aWin In Windows
Set aApp = aWin.Application
Set aSheet = aApp.ActiveSheet
Next
End Subcitovat

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Počet jedinečných hodnot

MePExG • 3.12. 11:18

Počet jedinečných hodnot

elninoslov • 3.12. 8:38

Počet jedinečných hodnot

vikizaj • 2.12. 17:35

Počet jedinečných hodnot

lubo • 2.12. 17:34

rozdělení čísla do více buněk dle násobku

lubo • 2.12. 17:31

Automatické doplňování buněk

veny • 2.12. 17:31

Počet jedinečných hodnot

veny • 2.12. 17:10