Farklı Kaydet

[mrt]

Selamlar,

Aşağıdaki kodda bugün yazan yere Kod ile Şimdiki zamanı nasıl eklerim ?

İstediğim; Dosya adı Sipariş ile başlasın ve şimdiki zamanı göstersin.

Örnek: Siparis_15.01.2010 08:41:22



Sub Makro8()
'
' Makro8 Makro
'

'
Rows("1:1").Select
Selection.Delete Shift:=xlUp
ActiveWorkbook.SaveAs Filename:= _
"D:\CALISMALAR\MRT\calismalar\Siparis_bugun.txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub

 

[Ömer]

Merhaba,

İlgili satırı aşağıdaki gibi değiştirerek deneyiniz.

"D:\CALISMALAR\MRT\calismalar\Siparis_" & _
Format(Date, "dd.mm.yyyy hh:mm:ss") & ".tx t"

.

 

[mrt]

Teşekkürler.

hh:mm:ss çalışmıyor.

Bu alanı silersem sorun yok.

"D:\CALISMALAR\MRT\calismalar\Siparis_" & _
Format(Date, "dd.mm.yyyy") & ".txt"

olarak kullanırsam çalışıypr saat bilgisi gelmiyor.

Kullandığım office 2007 versiyonu.

 

[Ömer]

Haklısnız. Denemediğim için bir detayı atlamışım. Çalışma adlarında : karakteri kullanılamaz. Bu yüzden olmamıştır.

"D:\CALISMALAR\MRT\calismalar\Siparis_" & _
Format(Date, "dd.mm.yyyy hh[COLOR=red][B].[/B][/COLOR]mm[COLOR=red][B].[/B][/COLOR]ss") & ".tx t"

Bu şekilde denermisiniz..

.

 

[mrt]

Teşekkürler