Kapalı Dosyayı açma

[ahmed_ummu]

İyi akşamlar arkadaşlar

Aşağıdaki kodda ilk satırda, dosya bulunamadı diye uyarı veriyor. Dosyam D sürücüsünün içinde. Nerede hata var yardımcı olabilir misiniz.

Application.Workbooks.Open ("D:\kademe.xlsl")
Application.Workbooks("kademe").Range("b4").Value = Textbox1.Value

 

[ahmed_ummu]

Dosyayı buldu ama şimdide aşağıdaki kodda "subscript out of range" diye hata veriyor.

Application.Workbooks("prg_memur").Sheets("kademe").Range("a1").Value =Textbox1.Value

 

[Korhan Ayhan]

Dosya uzantısı hatalı gibi görünüyor..

 

[ahmed_ummu]

Dosya uzantısı hatalı gibi görünüyor..

Kusura bakmayın Korhan bey yazmayı unuttum. Dosya uzantısını xlsx olarak düzeltince dosyayı açıyor fakat TExt1 deki veriyi kaydetmiyor. Aşağıdaki satırda
"subscript out of range" hatası veriyor.
Application.Workbooks("prg_memur").Sheets("kademe").Range("a1").Value =Textbox1.Value

 

[Korhan Ayhan]

Dosyanın adı "kademe" ve sayfanın adı da "kademe" görünüyor. Sanırım burada bir hata olabilir.

 

[ahmed_ummu]

Dosyanın adı "kademe" ve sayfanın adı da "kademe" görünüyor. Sanırım burada bir hata olabilir.

Evet sayfanın adı kademe değil. Kapalı dosyaya veri kaydetmeyi bilmiyorum.
Teşekürler Korhan bey

 

[ahmed_ummu]

Dosyanın adı "kademe" ve sayfanın adı da "kademe" görünüyor. Sanırım burada bir hata olabilir.

Aşağıdaki gibi düzeltme yaptım ama yine aynı hatayı verdi. Sayfanın adı "KAD"

"subscript out of range"

Application.Workbooks("prg_memur\kademe").Sheets("KAD").Range("c6").Value =Textbox1.Value

 

[Korhan Ayhan]

Emin değilim ama deneyiniz..

Workbooks("kademe.xlsx").Sheets("KAD").Range("A1").Value =Textbox1.Value