Aşağıdaki kod ile excel vba da dosyayı istediğimiz yere farklı kaydetmek için gereken kod aşağıdadır. Bu kod ile açılan pencere ile dosyamızı nereye kaydedeceğimizi seçebiliyoruz.
Dim fd As FileDialog, ret As Long, sFile
Set fd = Application.FileDialog(msoFileDialogSaveAs)
ret = fd.Show
If Not ret = -1 Then Exit Sub
fd.Execute
MsgBox "Save Accomplished!", vbInformation, "Success"
Yorumlar
Yorum Gönder
Görüş yorum paylaşabilirsin