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

2016-01-15 18:50 阅读 677 次 评论 1 条

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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA 在当前工作薄所在路径创建新工作簿的方法 | 猎微网
  1. 安装网络电话
    安装网络电话 【农民】

    学习了

评论已关闭!