Başka bir Excel çalışma kitabına veri aktama

[Galus]

Örneğin A.xls isimli çalışma kitabının Sayfa1 den B.xls Sayfa2 çalışma kitabına veri aktarırken makroya "B.xls Sayfa2" nasıl tanımlamalıyız? Hedef gösterip makro çalıştığında veriler B.xls Sayfa2 ye gitsin.

Teşekkürler..

 

[N.Ziya Hiçdurmaz]

yanıt

İki kitapta açık olmalı.

Sub test()
Workbooks("A.XLS").Sheets("Sayfa1").Range("A1:A20").Copy
Workbooks("B.XLS").Sheets("Sayfa2").Range("A1").PasteSpecial
End Sub

 

[Galus]

Teşekkürler Sayın V.Basic For Applications.

Hedef kitap kapalı olursa açtırıp yazdıramaz mıyız?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Workbooks.Open Filename:="C:\B.xls"
Workbooks("A.XLS").Sheets("Sayfa1").Range("A1:A20").Copy
Workbooks("B.XLS").Sheets("Sayfa2").Range("A1").PasteSpecial
End Sub

 

[Galus]

Teşekkürler Sayın V.Basic For Applications..