Log dosyası kayıdı yapmak.

[hezarpare]

Üstadlar ekte bir çalışma kitabı verdim. Açtığınızda göreceksiniz $a$4:$b$9 da son durum kayıtlarını veren bir küçücük tablo var. Benim istediğim dosyayı her açtığımda otomatik olarak bu tablodaki verileri adresini belirlediğim bir txt dosyasına sırasıyla kayıt etsin. Bu konuyla ilgili forumda aramalar yaptım ancak bulduğum örnekleri bu dosyaya bir türlü uygulayamadım. Bunu nasıl yapabilirim?

 

[Orion1]

Dosyayı 2003 formatında yollarsanız yaparım.Bende 2007 yok.Çoğu arkadaştada yok zaten.

 

[hezarpare]

Üstad dosyayı 2003'e çevirdim. Açınca bazı hatalarla karşılaşman mümkünüdür. Dosyayı yaptıktan sonra eğer kodları 2007'ye uyarlıyabileceğim şekilde belirtirseniz memnun olurum. Teşekkrüler.

 

[Orion1]

Dosya açılışında makroları etkinleştirin diye mesajınızı iptal ettim.Zaten makrolar etkin değilse bu mesaj çıkamayacaktır.Bu anlmasız olur.
İsterseniz yine koyabilirsiniz.
Dosyanız ekte.Dosyanızın bulunduğu klasöre log dosyası çıkarıyor.

Private Sub Workbook_Open()
Dim isim As String
isim = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - (InStr(ThisWorkbook.Name, ".") - 2))
Open ThisWorkbook.Path & "\" & isim & ".log" For Output As #1
Print #1, Format(Sheets("Index").Range("B4").Value, "hh:mm")
Print #1, Format(Sheets("Index").Range("B5").Value, "dd.mm.yyyy")
Print #1, Format(Sheets("Index").Range("B6").Value, "hh:mm")
Print #1, Format(Sheets("Index").Range("B7").Value, "dd.mm.yyyy")
Print #1, Range("B8").Value
Print #1, Range("B9").Value
Close #1