Bir excel dosyasının başka bir klasöre kayıt edilmesi.

[gkcn33]

Merhaba,
Ortak ağda bulunan bir excel tablosu belirli kişilerin erişimine açılmıştır. Bu excel dosyasında işlem yapıldıktan sonra kaydedildiğinde güncel tarih saat ve başında to-do-list yazmasını istiyorum. Makro bilgisayarımda belgeler klasöründe istediğim formatta kayıt oluşturabiliyorken belirtilen ortak ağdaki klasöre kayıt yaparken hem yedek hemde başlıktaki yazı karakterini bozarak kayıt yapıyor.

Belgeler klasörüne atılan kayıt adı : To-do-list-03-07-24 10-39
Ortak ağdaki kayıt yaptığı isim: to-6o-li58t-03-06-2024 10-39 (1 tane de yedek oluşuyor yedek oluşmasını istemiyorum.)

komut aşağıdaki gibidir;

Sub DateiUnterTagesdatumAbspeichern()
Tagesdatum = Application.Text(Now(), "-mm-dd-yy hh-mm")
Sicherung = "To-do-list" & Tagesdatum & ".XLSM"
ActiveWorkbook.SaveAs Sicherung
Dim dname As String, strTest As String
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Application.Text(Now(), "mm-dd-yyyy hh-mm")
strTest = Dir(dname)
ActiveWorkbook.SaveCopyAs dname & ".xlsm" & Range("A1") & Range("a2")
ActiveWorkbook.Save
End Sub



yardımlarınızı rica eder iyi çalışmalar.

 

[muhasebeciyiz]

Sub DateiUnterTagesdatumAbspeichern()
Dim Tagesdatum As String
Dim Sicherung As String
Dim dname As String
Dim strTest As String

Tagesdatum = Format(Now(), "mm-dd-yy hh-mm")
Sicherung = "To-do-list_" & Tagesdatum & " "
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Sicherung

strTest = Dir(dname & "")
Do While strTest <> ""
Tagesdatum = Tagesdatum & ".xlsm"
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Sicherung
strTest = Dir(dname & ".xlsm")
Loop

ActiveWorkbook.SaveAs dname & ".xlsx"

If Err.Number <> 0 Then
MsgBox "Yedek alma işleminde hata oluştu: " & Err.Description
Else
MsgBox "Yedek alma işlemi başarıyla tamamlandı."
End If

ActiveWorkbook.Close
End Sub

Paylaşılan kodda yedek dosyası oluşturuluyor fakat boyutu 0 KB olarak gözüküyor.
Sorun, mevcut dosyanın üzerine yazılmasından kaynaklanıyor.
Çözüm için yedek dosyasını farklı bir uzantıyla kaydetmek gerekiyor.

 

[gkcn33]

Sub DateiUnterTagesdatumAbspeichern()
Dim Tagesdatum As String
Dim Sicherung As String
Dim dname As String
Dim strTest As String

Tagesdatum = Format(Now(), "mm_dd_yyyy_hh_mm")
Sicherung = "To-do-list_" & Tagesdatum & ".XLSM"

dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Tagesdatum

strTest = Dir(dname & ".xlsm")
Do While strTest <> ""
Tagesdatum = Tagesdatum & "_"
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Tagesdatum
strTest = Dir(dname & ".xlsm")
Loop

ActiveWorkbook.SaveAs dname & ".xlsm"
ActiveWorkbook.SaveCopyAs dname & ".xlsm"
ActiveWorkbook.Close
End Sub

Bu kod, dosya adında "-" karakterlerini "_" ile değiştirmekte ve aynı isme sahip başka bir dosya varsa dosya adını biraz değiştirerek kaydetmeyi sağlamakta.Ayrıca, klasördeki diğer dosyaları kontrol etmek için Dir fonksiyonunu kullanıyor.Denermisiniz

Cevabınız için teşekkür ederim, istediğim gibi Belgelerim klasörüne dosyayı kaydetmiyor fakat ortak ağdaki yere şuan sadece 07_03_2024_12_52 şeklinde kayıt yapıyor ve 1 tanede yedek_07_03_2024_12_52 oluşturuyor. Yedek oluşturmasını istemiyorum to_do_list_07_03_2024_12_52 bu şekilde olmasını istiyorum, yardımcı olursanız çok sevinirim

 

[muhasebeciyiz]

Düzenleme yapılmıştır. Deneyiniz

 

[gkcn33]

Düzenleme yapılmıştır. Deneyiniz

Göndermiş olduğunuz makroda biraz değişiklik yaptım, belirtilen ortak ağ klasörüne yedek atmaya devam ediyor, attığı yedek dosyanın boyutu 0 kb olarak gözüküyor. Yedek olmasını tamamen kaldırabilirmiyiz? Son makro aşağıdaki şekildedir. Teşekkür ederim ilginiz için

Sub DateiUnterTagesdatumAbspeichern()
Dim Tagesdatum As String
Dim Sicherung As String
Dim dname As String
Dim strTest As String

Tagesdatum = Format(Now(), "mm-dd-yy hh-mm")
Sicherung = "To-do-list_" & Tagesdatum & " "
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Sicherung

strTest = Dir(dname & "")
Do While strTest <> ""
Tagesdatum = Tagesdatum & ".xlsm"
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Sicherung
strTest = Dir(dname & ".xlsm")
Loop

ActiveWorkbook.SaveAs dname & ".xlsm"
ActiveWorkbook.Close
End Sub