1
2
3
4
5
6
7
Sub test()
Dim iFile As String
iFile = ThisWorkbook.Path & "\" & "技术质量.xls"
Workbooks.Add
ActiveWorkbook.SaveAs iFile, True
MsgBox "新建Excel工作薄完成," & vbCrLf & "完整路径及名称:" & vbCrLf & iFile
End Sub
录制宏改一改就行了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024