Yeni excel dosyası kaydetme

[tamer42]

Merhaba,
Aşağıdaki kodla yeni bir excel dosyası oluştururken,

Eğer oluşturulacak dosya adı klasörün içinde mevcut ise; herhangi bir soru sormadan direkt üzerine yazması nasıl sağlanabilir?

iyi Çalışmalar.

Dim objxl As Excel.Application
Dim yeniexcel As Excel.Workbook

MyPath = ThisWorkbook.Path & "\Rapor"

fName ="abc1234"
Set yeniexcel = Workbooks.Add

With yeniexcel

.SaveAs FileName:=MyPath & "\" & fName & ".xlsx"
.Close

End With

 

[muygun]

Merhaba;
kodun başlangıcına;

Application.DisplayAlerts = False’ pc sorgusunu pas geçme
ekleyerek deneyin.
sonuç alamazsanız;

Sub kaydet()
Application.ScreenUpdating = False
Set flk = CreateObject("Scripting.FileSystemObject")
klasor = ThisWorkbook.Path
fName = "abc1234"
MyPath = ThisWorkbook.Path & "\Rapor\"
Kayıt_Yeri = MyPath & fName & ".xls"
ActiveWorkbook.Save
flk.CopyFile ThisWorkbook.FullName, Kayıt_Yeri
End Sub

Kodları ile deneyin.
İyi çalışmalar.

 

[tamer42]

Merhaba;
kodun başlangıcına;

Application.DisplayAlerts = False’ pc sorgusunu pas geçme
ekleyerek deneyin.
sonuç alamazsanız;

Sub kaydet()
Application.ScreenUpdating = False
Set flk = CreateObject("Scripting.FileSystemObject")
klasor = ThisWorkbook.Path
fName = "abc1234"
MyPath = ThisWorkbook.Path & "\Rapor\"
Kayıt_Yeri = MyPath & fName & ".xls"
ActiveWorkbook.Save
flk.CopyFile ThisWorkbook.FullName, Kayıt_Yeri
End Sub

Kodları ile deneyin.
İyi çalışmalar.

teşekkürler Hocam
iyi akşamalar.