Kapalı olan dosyaya veri yazmak

[heft]

Merhaba
Private Sub Workbook_Open()
Workbooks(“a.XLS”).Worksheets(“Sayfa1”).Range(“A1”).Value = 1
UserForm1.Show
End Sub


yukardaki kodu siteden bir örnekten almıştım
neden çalışmıyor acaba
neyi yanlış yazdımmm?? :?

 

[isakarakus]

bu koda göre A.XLS nin açık olması grekiyor..
eğer açıksa çalışacaktır.


kapalı dosyaya veri aktarma hakkında örnekler mevcut,

http://www.excel.web.tr/viewtopic.php?t=12737

 

[heft]

ilginize teşekkür
inceledim ama işin içinden çıkamadım

yapmak istediğim şu,
b.xls açıldığında a.xls yi açmadan a.xls Sayfa1 a1 e 1 yazdırmak

sabahtan beri uğraşıyorum kafam çorba oldu

tam olarak kod ne yazmam gerekiyor diye sorsam ileri gitmem değil mi?

 

[Haluk]

O zaman, daha basit olan aşağıdaki kodu deneyin.

Yeni bir modül ilave edip, aşağıdakileri yapıştırın. Dosyayı kaydedin, kapatın ve tekrar açın.

Sub Auto_Open()
    MyWB = "C:\A.xls"
    Set NewXL = New Excel.Application
    NewXL.Workbooks.Open MyWB
    NewXL.Workbooks(Dir(MyWB)).Sheets(1).Range("A1") = 1
    NewXL.Workbooks(Dir(MyWB)).Close SaveChanges:=True
    NewXL.Quit
    Set NewXL = Nothing
End Sub

 

[heft]

teşekkürler sn haluk & isakarakuş