Kapalı dosyaya veri yazma hk.

[mumugul]

Merhaba,

Kapalı bir dosya da belli bir hücreye ya da değişken hücrelere nasıl veri yazabilirim?
Aşağıdaki gibi bir örnek buldum ama dosya açılıp kapanıyor.
Dosyayı böyle fiziksel açmadan yazamaz mıyız?
Yardımcı olur musunuz?

Saygılarımla...

Sub Dosyaya_Yaz()
Dosya = "kitap1.xlsx"
Workbooks.Open (ThisWorkbook.Path & "\kitap1.xlsx")
Workbooks(Dosya).Sheets(1).Cells(2, 1) = "1"
Workbooks(Dosya).Sheets(1).Cells(2, 2) = "2"
Workbooks(Dosya).Sheets(1).Cells(2, 3) = "3"
Workbooks(Dosya).Save
Workbooks(Dosya).Close
End Sub

 

[Erdem Akdemir]

Merhaba

Örnek dosya ekleyebilir misiniz.
ADO konusunu'da araştırabilirsiniz.

 

[mumugul]

Teşekkürler...