Question

用vba 新建命名工作簿

一、我本身有两个wps文件分别名为“JWAX3630下午场”和"JWAX4504下午场"。想利用vba根据这两个文件的名字，分别新建两个名为"JWAX3630"和"JWAX4504"的csv文件并保存在其他文件夹内。
二、如何推广到其他文件名为"JWAX"+"四个数字"+"几个文字符号"的文件名，新建为"JWAX"+"四个数字"的csv文件？

Answer 1

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

Answer 2

录制宏改一改就行了