Yedek Almada Problem

[captan]

Arkadaşlar hepinize kolay gelsin,

Aşağıdaki kodlarla çalışma kitabından çıkarken yedek aldırıyordum, benim bilgisayırmda sorunsuz çalışıyor ama başka bilgisayardan aynı dosyada bu kodlar çalıştırıldığında " . , : / " butür karekterler kullanılamaz diye uyarı veriyor.

'ActiveWorkbook.SaveAs Filename:="\\(AĞDAKİ BİLGİSAYAR YOLU)\" & Date & ".xls"

Yardımlarınızı bekliyorum arkadaşlar.

 

[alpi]

Muhtemelen sizin bilgisayarınızda tarih ayracı olarak Nokta(.) kullanılıyor bu yüzden hata vermiyor.

Birde şöyle deneyin

Dim Tarih As String
Tarih = Day(Date) & "." & Month(Date) & "." & Year(Date)
ActiveWorkbook.SaveAs Filename:="[URL="file://(AĞDAKİ/"]\\(AĞDAKİ[/URL] BİLGİSAYAR YOLU)\" & Tarih & ".xls"

 

[captan]

Teşekkürler

Sayın Alpi yardımın için teşekkürler,

Tarih olarak bir problem yaşamıyorum.
Problem zaman da Saatakika:Saniye için aralardaki krakterlerden sorun oluyor.

Bunun için nasıl bir çözüm üretebiliriz acaba,

 

[alpi]

Herhalde onuda şu şekilde çözebiliriz

Dim Saat As String
Saat = Hour(Now) & "." & Minute(Now)

 

[captan]

Sayın Alpi

Çok teşekkür ederim.