Kapalı Excel Dosyasına Veri Yazdırma

[muhalko]

Değerli Üstadlarım,

Kapalı bir excel çalışma kitabı, sayfa 1 çalışma sayfası A8, B8 ve C8 hücrelerine veri yazdırmak için nasıl bir yöntem kullanabilirim? ADO ile istediğim sonuca ulaşamıyorum. Arka planda aç kapa son çare olarak düşünüyorum. Şöyle bir kod buldum:

Sub deneme()

gnl = Workbooks("çd.xls").Sheets("Sayfa1")
deneme = FreeFile
Open "C:\Desktop\Aktarma\vt.xls" For Append As #deneme
gnl.Range("a8") = Workbooks("çd.xls").Sheets("Sayfa1").Range("a8")
gnl.Range("a9") = Workbooks("çd.xls").Sheets("Sayfa1").Range("b8")
gnl.Range("a10") = Workbooks("çd.xls").Sheets("Sayfa1").Range("c8")
Input #deneme, gnl
Close #deneme

End Sub

Bu kod tam istediğim gibi, ancak dosya kapalı iken;

Subscript out of range

hatası veriyor.

Yardımcı olursanız memnun olurum.

Hepinizin Ramazan Bayramı mübarek olsun.

 

[Orion1]

Örnek dosyaları yollarsanız tahminimce daha çabuk yanıt alabilirisiniz.