(20/02/2021, 19:38)userx yazdı: Sayın hturkavci03
2 Nolu mesajdaki dosyayı güncelledim. Tekrar indirip inceler misiniz?
Sayın userx, kodlarınıza koyu kırmızı kısımları ekleyerek Excel sayfa1 adını değiştirebildim ancak uygulamanın bulunduğu klasöre Dosya adına tarih ve saat verdirerek kayıt ettiremedim. Yanlışım nerede.
Excl.Visible = True
Excl.Sheets("Sayfa1").Name = "MEVCUT"
Excl.ActiveDocument.SaveAs2 FileName:=CurrentProject.Path & "\Mevcut " & Format(Date, "dd mmmm yyyy") & "_" & Format(Time, "hh mm") & ".xlsx", FileFormat:=wdFormatxlsx '*** Uygulamanın bulunduğu klasörekayıt
Set Excl = Nothing