自动将EXCEL以A1单元格内容为名字另存为到D盘中

发布网友发布时间：2022-04-21 13:34

共2个回答

热心网友时间：2023-09-15 00:56

直接在代码里先运行打印，再另存不行吗

Sub test()
ActiveWindow.SelectedSheets.PrintOut '打印活动工作表
ActiveWorkbook.SaveAs Filename:="D:\" & Range("A1") & ".xls" '另存
End Sub

热心网友时间：2023-09-15 00:57

ActiveWorkbook.SaveAs Filename:="D:\" & range("A1")追问运行的条件是点击了打印按钮，我需要这整段的代码，谢谢

热心网友时间：2023-09-15 00:56

直接在代码里先运行打印，再另存不行吗

Sub test()
ActiveWindow.SelectedSheets.PrintOut '打印活动工作表
ActiveWorkbook.SaveAs Filename:="D:\" & Range("A1") & ".xls" '另存
End Sub

热心网友时间：2023-09-15 00:57

ActiveWorkbook.SaveAs Filename:="D:\" & range("A1")追问运行的条件是点击了打印按钮，我需要这整段的代码，谢谢