VBA备份数据时保存路径和文件名能不能使用弹窗手动选择

15250150627

如题：
下面有段备份数据的代码
myPath = "c:\0914"   mybackupname = InputBox("请输入备份文件名")
上面这两代码能能合并成一个弹窗，手动选择保存路径和指定文件名，实现新增或替换功能。类似二EXCEI另存！                                                           

1. Sub zidongbaocun()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False 瑞轩条码转换数据库.rar (54.71 KB, 下载次数: 0)
   2020-9-28 18:40 上传

   点击文件名下载附件
   
   
4. Dim myPath As String
   
5.          mybackupname = InputBox("请输入备份文件名")
   
6.      If mybackupname = "" Then Exit Sub
   
7.      myPath = "c:\0914"
   
8.      Sheets(Array("PCB条码", "TRAY盘标签", "PE袋标签", "外箱标签")).copy
   
9.      ActiveWorkbook.SaveAs Filename:=myPath & "" & mybackupname & ".xls", FileFormat:=xlNormal _
   
10.          , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    
11.          CreateBackup:=False
    
12.      ActiveWorkbook.Close
    
13. Application.ScreenUpdating = True
    
14. Application.DisplayAlerts = True
    
15. End Sub

复制代码