发布网友 发布时间:2022-04-22 02:45
共2个回答
热心网友 时间:2024-03-30 06:19
Sub savecopy()
Workbooks.Item("打开的源文件名").SaveCopyAs "目标路径及文件名"
End Sub
热心网友 时间:2024-03-30 06:20
Option Explicit
Sub test()
ThisWorkbook.SaveCopyAs "d:\test.xlsm"
End Sub
热心网友 时间:2024-03-30 06:20
Sub savecopy()
Workbooks.Item("打开的源文件名").SaveCopyAs "目标路径及文件名"
End Sub
热心网友 时间:2024-03-30 06:20
Option Explicit
Sub test()
ThisWorkbook.SaveCopyAs "d:\test.xlsm"
End Sub