1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,713
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Merhaba,
Excel dosyamı aşağıdaki kod ile, yine excel olarak yedekliyorum,
Aşağıdaki kodun düzenlenerek, dosyanın PDF olarak yedeklenmesini rica ediyorum.
Teşekkür ederim.
Excel dosyamı aşağıdaki kod ile, yine excel olarak yedekliyorum,
Aşağıdaki kodun düzenlenerek, dosyanın PDF olarak yedeklenmesini rica ediyorum.
Teşekkür ederim.
Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
yer = "D:\PDF_YEDEKLERİ"
If ds.FolderExists(yer) = False Then
ds.CreateFolder yer
End If
If ThisWorkbook.Path = yer Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then
dosyaadi = ThisWorkbook.FullName
uzanti = "." & ds.GetExtensionName(dosyaadi)
isim = Sheets("ANASAYFA").Cells(10, "b").Value
yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & "-" & isim & uzanti
ds.CopyFile dosyaadi, yol
End If
End Sub