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

发布网友发布时间：2022-05-01 17:11

共3个回答

热心网友时间：2022-06-20 03:00

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

热心网友时间：2022-06-20 03:01

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

热心网友时间：2022-06-20 03:01

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

End If

End Sub