kapalı dosyaya textbox taki veriyi yükleme

[olymposss]

arkadaşlar kolay gelsin
çok basit bir kod ama bi türlü çalıştıramadım. yardımcı olacak bi arkadaş var mı acaba.

Workbooks.Open Filename:="d:\a.xls"
Windows("a.xls").Activate
Sheets("sayfa1").Select
TextBox1.Value = Range("a1")
ActiveWorkbook.Save
ActiveWorkbook.Close

tek istediğim a.xls dosyası kapalı iken çalıştığım userformdaki textbox değerini a.xls de sayfa1 de a1 e yazsın.
çok teşekkürler. elinize sağlık:yardim:
-----------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[alpi]

aşağıdaki şekilde deneyin

Workbooks.Open "d:\a.xls"
With Workbooks("a.xls")
.Sheets("sayfa1").Range("a1").Value = TextBox1.Value
.Save
.Close
End With

 

[olymposss]

Sn Alpİ

ne kadar teşekkür etsem azdır
elinize sağlık ve ilginize teşekkür ederim.
saygılar:hey: