用单元格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
End If
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-03-16
If Dir(Range("A1") + ".xls") = "" Then '先用DIR函数检查是否文件已存在
ActiveWorkbook.SaveAs Range("A1") + ".xls" '若不存在就另存为,注意,这是SaveAs是另存,你问题中的是另存一个考贝
Else '如已存在,打开另存对话框
ActiveWorkbook.SaveAs Range("A1") + ".xls" '若不存在就另存为,注意,这是SaveAs是另存,你问题中的是另存一个考贝
Else '如已存在,打开另存对话框
第2个回答 2009-03-16
Application.FileDialog(msoFileDialogSaveAs).InitialView = msoFileDialogViewDetails
Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "aaa.xls"
Application.FileDialog(msoFileDialogSaveAs).Show
End If
End Sub
Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "aaa.xls"
Application.FileDialog(msoFileDialogSaveAs).Show
End If
End Sub
