如何在当前工作薄所在路径创建新的工作簿呢?要解决这一问题,需要先参考前面猎微网分享的两篇文章《Excel VBA 创建新工作簿的方法》和《Excel VBA如何获取当前EXCEL文件的路径?》。
只需要把绝对路径"F:\" 改为ThisWorkbook.Path & "\"即可,注意,如果少了代码& "\"是不会成功的!!!
实现代码如下:
Private Sub CommandButton1_Click()
Dim WBookN As String, b As String
Workbooks.Add
WBookN = TextBox1.Text
b = ThisWorkbook.Path & "\" & WBookN & ".xlsm"
ActiveWorkbook.SaveAs Filename:=b
End Sub