MS Excel

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: « předchozí 1 2 3 další »

rinma(8.10.2020 9:28)#048268

tohle už je na mě moc složité, nějak se mi to tam nedaří implementovat, jsem jen běžný uživatel.
jedná se o to, že při spuštění makra (stisk třeba tlačítka online) v instanci Excelu 1 se vybraná část nakopíruje do vybrané místo v instanci Excelu 2, a pak každý excel dál poběží svým vlastním živote.

Příloha: jpg

48268_kop1.jpg (79kB, staženo 35x)

citovat

rinma(21.10.2020 13:58)#048523

pořád se mi to nedaří :-(citovat

Lugr(21.10.2020 14:44)#048526

Vložte obě přílohy a napište konkrétně co a kam chcete kopírovat.citovat

rinma(22.10.2020 13:08)#048560

tady to je, z odTUD(A5-I37...) do TADY (A3-...)
ale kopírovat přes makro v odTUD do TADY.
oba dva soubory budou ale otevřené ve dvou instancích excelu.

Příloha: zip

48560_odtud.zip (20kB, staženo 16x)

citovat

eLCHa(22.10.2020 15:22)#048561

Položím jednoduchou otázku. Proč?

Možná je to zajímavé a je to i řešitelné, ale proč to dělat?

Navíc, pokud máte 2 instance, lze soubor otevřený v jedné instanci otevřít i v té druhé (jen pro čtení) a z něj kopírovat v rámci instance.citovat

Lugr(22.10.2020 19:16)#048562

Oba soubory musí být otevřené.

Příloha: zip

48562_48560_odtud.zip (30kB, staženo 17x)

citovat

Fantasyk(23.10.2020 2:22)#048563

Tady máš kód pokud nemáš otevřený soubor tak se ti otevře pokud máš otevřený tak se jen zkopíruje...

Jen si uprav cestu, kde se nachází..

Sub copy()

Dim strBookName As String
strBookName = "TADYkopirovat.xlsx"
If WorkbookOpen(strBookName) Then
Workbooks("TADYkopirovat.xlsx").Worksheets("List1").Range("A3:I35").Value = Workbooks("odTUD.xlsm").Worksheets("List1").Range("A5:I37").Value
Else
Workbooks.Open FileName:="C:\TADYkopirovat.xlsx" ' <-Tady upravit cestu.......

Workbooks("TADYkopirovat.xlsx").Worksheets("List1").Range("A3:I35").Value = Workbooks("odTUD.xlsm").Worksheets("List1").Range("A5:I37").Value
End If

End Sub

Function WorkbookOpen(strWorkBookName As String) As Boolean
Dim oXL As Excel.Application
Dim oBk As Workbook

On Error Resume Next
Set oXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
WorkbookOpen = False
Else
Set oBk = oXL.Workbooks(strWorkBookName)
If oBk Is Nothing Then
WorkbookOpen = False
Else
WorkbookOpen = True
Set oBk = Nothing
End If
End If
Set oXL = Nothing
End Functioncitovat

rinma(23.10.2020 7:16)#048564

děkuji všem za pomoc, řešení od lugr je jen v jedné instanci, to umím, ale tak jsem to nechtěl.

Fantasyk: děkuji, to je ono!!!!!

eLCHa: proč to tak chci? v jenom excelu měřím časy závodu a v druhém se promítaní průběžné výsledky. Když to bylo v jedné instanci a ty průběžné hodily chybu, zastavil se excel a musel jsem to hned řešit, i když mi přibíhali další závodníci. tak, když se seknou průběžní, tak měřit mohu dále.
V jedné instanci by mi to nevadilo, ale potřebuji ještě, ať mi výsledky rotují. když jsem dal prodlevu v rotací, zastaví mi to na tu dobu excel.
já už to vyřešené měl, ale dost často to háže chyby a seka se to, tak teď mám čas, tak se to snažím nějak upravit.
tak jsem to měl:
http://wall.cz/index.php?m=topic&id=39321citovat

rinma(23.10.2020 7:44)#048565

Fantasyk: teď jsem to ještě prozkoumal, otevírá to ale ten druhý excel ve stejné instanci, ne v nové (další)

Příloha: jpg

48565_ins.jpg (9kB, staženo 25x)

citovat

Stalker(24.10.2020 11:03)#048578

Ber to jako pokus o řešení. Soubor do kterého se má "kopírovat" se sám otevře a proběhne přenos dat a uložení. Pokud doplníš hodnoty a znovu klikneš na tlačítko dojde a "aktualizaci" a opětovnému uložení.
Data se přenášejí přes pole, tedy jen hodnoty nikoliv formátování.

Příloha: rar

48578_kopirovani-mezi-2-instancemi-excelu.rar (37kB, staženo 24x)

citovat

Strana: « předchozí 1 2 3 další »

Téma: kopie mezi instancemi Excelu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje