Text Dosyasına Dönüştürürken Tarih Formatı Ayarlanması

[shoca]

Merhaba Arkadaşlar,
Excel üzerinden text dosyası oluştururken dosya adının ve dosyadaki bir sütunun adının tarih formatında olması gerekiyor,aşağıdaki kodlarda aldığım sonuç örnek olarak dosya ad kısmında 100371421_06.05.2011.TXT ancak bana gereken 100371421_201105050052.txt yani tarih formatının "yyyymmddhhss" şeklinde olması yani aralarında "." , "/" gibi ayraçların olmaması lazım

Dim i, sat As Integer
sat = [A64000].End(3).Row
Open ThisWorkbook.Path & "\" & TextBox1.Text & "_" & [COLOR="Green"]Date[/COLOR] & ".TXT" For Output As #1
For i = 2 To Cells(5, 21).Text
Print #1, TextBox1.Text; "##" & [COLOR="Green"]Date[/COLOR]; "##" & Cells(i, 1); "####" & TextBox6.Text & "##"; "1"; "##############"; TextBox2.Text & "##"; TextBox5.Text & "##"; TextBox7.Text; "##" & Cells(i, 2) & "##" & Cells(i, 3) & "##" & Cells(i, 6); "##########??"
Next i
Close
MsgBox "Txt Dosyası Başarı İle Oluşturuldu", vbInformation, "Dikkat"
End Sub

 

[Orion1]

Sub fomatatarihsaat_59()
MsgBox Format(Now, "yyyymmddhhss")

End Sub

 

[shoca]

Eyvallah
Halloldu...