2024年6月1日发(作者：)

代码如下：

Private Sub Command1_Click()

me = ""

= "*.xls|*.txt|*.rtf|*.pdf|*.*|*.*"

Title = "另存为"

me = "C:UsersshexiaohuiDesktop小型氨水吸收制冷

实验报表模板.xls" '需要保存的文件及文件路径

Error = True '捕获 取消 错误时得先设置为true 然后再

showsave

On Error GoTo ErrorHandler

ve

FileCopy "C:UsersshexiaohuiDesktop小型氨水吸收制冷实验报表模板.xls",

me '将文件保存到想要保存的的文件夹下

ErrorHandler:

Exit Sub

End Sub