VB----EXCEL利用宏保存文件

来源：百度知道 编辑：UC知道 时间：2024/09/23 06:37:17
用单元格A1的内容作为文件名保存当前工作簿的宏，并且保存时遇到重名时提醒。前者代码为 Sub b()
ActiveWorkbook.SaveCopyAs Range("A1") + ".xls"
End Sub
如何把后者加上
谢谢 chenxfsoft的回答 但问题还没解决
保存到指定文件夹

Sub b()

If Dir(Range("A1") + ".xls") = "" Then '先用DIR函数检查是否文件已存在
ActiveWorkbook.SaveAs Range("A1") + ".xls" '若不存在就另存为,注意,这是SaveAs是另存,你问题中的是另存一个考贝
Else '如已存在,打开另存对话框
Application.FileDialog(msoFileDialogSaveAs).InitialView = msoFileDialogViewDetails
Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "aaa.xls"
Application.FileDialog(msoFileDialogSaveAs).Show

End If

End Sub

If Dir(Range("A1") + ".xls") = "" Then '先用DIR函数检查是否文件已存在
ActiveWorkbook.SaveAs Range("A1") + ".xls" '若不存在就另存为,注意,这是SaveAs是另存,你问题中的是另存一个考贝
Else '如已存在,打开另存对话框

Application.FileDialog(msoFileDialogSaveAs).InitialView = msoFileDialogViewDetails
Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "aaa.xls"
Application.FileDialog(msoFileDialogSaveAs).Show