Başka dosyaya sayfa kopyalama?

[dumanibo]

Merhaba,

Aşağıdaki kodlarla Veri.xls dosyasındaki Veri1 ve Veri2 adlı sayfaları, AylikVeri.xls dosyasına kopyalamak istiyorum. Daha önceden çalışan bu makro şimdi son satırda hata veriyor. Excel sürümünden mi kaynaklanıyor bilemiyorum. Bu kodu nasıl değiştirmem gerekiyor acaba?



Workbooks("Veri.xls").Sheets(Array("Veri1", "Veri2")).Select
Workbooks.Open Filename:="C:\Documents and Settings\admin\Belgelerim\AylikVeri.xls"
Workbooks("Veri.xls").Activate
Sheets("Veri1").Select
Sheets(Array("Veri1", "Veri2")).Copy Before:=Workbooks("AylikVeri.xls").Sheets(1)

 

[Zeki Gürsoy]

Şu başlık size fikir verebilir.

http://www.excel.web.tr/showthread.php?t=50150&highlight=sayfa

 

[Ayhan Ercan]

Merhaba Sn dumanibo

Vermiş olduğunuz kodlar denedim, Hiç bir problem görünmüyor.
Örnek Dosyaları gönderebilme ihtimaliniz vamrı?