Run-time error '9' hatası

[osmanfenerli1907]

Run-time erro '9'
Subscript out of range hatası alıyorum.görünürde hiçbir hata yok ama çözemedim bir türlü.

 

[Korhan Ayhan]

Selamlar,

Hangi kodu kullanırken bu hatayı aldınız?

 

[osmanfenerli1907]

hatayı buldum sanırım iki tane çalışma açınca hata veriyor.
sheets("sayfa1")..... ile başlayan kodun önüne .xls çalışma adını nasıl yazarım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

WorkBooks("Kitap1").Sheets("Sayfa1").Range("A1")

 

[osmanfenerli1907]

slm WorkBooks("Kitap1") burdaki kitap1 yazısını 1 .txt den nasıl aldırabilirim.yani a.txt dosyasında hangi kelime varsa o kitap1 ın yerine geçsin.