excel makro pro kopírování mezi soubory

Dobrý den, potřeboval bych pomoci s makrem pro kopírování buněk ze souboru prvni soubor, list se jmenuje ListZ, do souboru listu souboru test, jež se jmenuje List1, můj kód vypadá takto :

Sub kopirovani_mezi_soubory()

Dim soubor_z As Workbook
Dim soubor_do As Workbook

Set soubor_z = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\prvni soubor.xlsm")
Set soubor_do = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\test.xlsx")

soubor_do.Sheets("List1").Range("A1:100").Value = soubor_z("ListZ").Range("A2:A100")

soubor_z.Close
soubor_do.Save
soubor_do.Close

bohužel mi kod píše chybu run time error 438, object doesnt support this property or method, poradí prosím někdo jak kod upravit, aby fungoval? děkuji

End Sub

Předmět	Autor	Datum
Ryhlý pohled: vypadlo Ti slůvko "Sheets" a obě oblasti musí být stejně velké: soubor_do.Sheets("List… Machr55 08.03.2018 08:54	Machr55	08.03.2018 08:54
Sub kopirovani_mezi_soubory() Dim soubor_z As Workbook Dim soubor_do As Workbook Application.ScreenU… robert13 08.03.2018 10:21	robert13	08.03.2018 10:21
Děkuji oboum za odpověď, funguje :) coffee 08.03.2018 13:59	coffee	08.03.2018 13:59
ještě dotaz, jak vyřeším, aby se makro fungovalo, ikdyž je otevřený soubor do kterého se to kopíruje… coffee 08.03.2018 14:25	coffee	08.03.2018 14:25
Je soubor otevřen - VBA Excel poslední Machr55 08.03.2018 14:26	Machr55	08.03.2018 14:26

Ryhlý pohled: vypadlo Ti slůvko "Sheets" a obě oblasti musí být stejně velké:
soubor_do.Sheets("List1").Range("A1:100").Value = soubor_z.Sheets("ListZ").Range("A1:A100").Value

Sub kopirovani_mezi_soubory()

Dim soubor_z As Workbook
Dim soubor_do As Workbook

Application.ScreenUpdating = False

Set soubor_z = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\prvni soubor.xlsm")
Set soubor_do = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\test.xlsx")

soubor_z.Sheets("ListZ").Range("A2:A100").Copy

soubor_do.Activate
Sheets("List1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("A1").Select

soubor_z.Close
soubor_do.Save
soubor_do.Close

End Sub

Děkuji oboum za odpověď, funguje :)

ještě dotaz, jak vyřeším, aby se makro fungovalo, ikdyž je otevřený soubor do kterého se to kopíruje ? makro totiž funguje jenom tehdy, je li soubor do zavřený.. ztroskotá to na příkazu :

soubor_z.Sheets("ListZ").Range("A2:A100").Copy

předem děkuji

Je soubor otevřen - VBA Excel

Zpět do poradny Odpovědět na původní otázku Nahoru