txt uzantısı ile tarih ve saat olarak olarak kaydetmek

[chakistes]

Merhaba arkadaşlar
ben aşağıdaki kod ile dosya adında kayıt yapıyorum benim istediğim güncel tarih ve saat olarak txt uzantısı ile kaydetsin.
Sheets("veriaktar").Activate
kayıt_yeri = ThisWorkbook.Path & "\DOSYA.txt"
If Dir(kayıt_yeri) <> "" Then Kill kayıt_yeri
For i = 1 To Range("a65536").End(3).Row
With Worksheets("veriaktar")
evn = evn & .Cells(i, 1) & vbTab
evn = evn & .Cells(i, 2) & vbTab
evn = evn & .Cells(i, 4) & vbCrLf


End With
Next
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 2
adoStream.Open
adoStream.WriteText evn
adoStream.SaveToFile kayıt_yeri
End If

 

[Ömer BARAN]

Merhaba.

İgili kod satırını aşağıdakiyle değiştirerek deneyin.
.

[COLOR="Red"]kayıt_yeri[/COLOR] = ThisWorkbook.Path & "\" & Format(Now, "dd/mm/yyyy hh:mm") & ".txt"

 

[chakistes]

Teşşekkür ederim