好看的站点千篇一律,有趣的U站万里挑

Excel VBA 在当前工作薄所在路径创建新工作簿的方法

如何在当前工作薄所在路径创建新的工作簿呢?要解决这一问题,需要先参考前面猎微网分享的两篇文章《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

赞(0) 打赏
未经允许不得转载:U站 » VBA控件教程:调试类模块

U站丨好看的站点千篇一律,有趣的U站万里挑一

联系我们联系我们

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏