Excel VBA 创建新工作簿的方法

2016-01-15 18:33 阅读 30 次 评论关闭

如何使用Excel VBA创建新的工作簿,前几天猎微网已经分享过了VBA创建新的工作簿的经验,详情《用VBA创建新的工作簿》。那么今天继续来分享VBA创建新工作簿的问题,具体如下:

设计需求:输入新工作簿的名称,点击创建按钮,在固定文件夹下创建新工作簿。

需要工具:标签、文本框和命令按钮。

样式设计:

实现代码:

Private Sub CommandButton1_Click()

Dim WBookN As String, b As String

Workbooks.Add
WBookN = TextBox1.Text
b = "F:\" & WBookN & ".xls"
ActiveWorkbook.SaveAs Filename:=b

End Sub

常见错误代码:

Private Sub CommandButton1_Click()

Dim WBookN As String,

Workbooks.Add
WBookN = TextBox1.Text
ActiveWorkbook.SaveAs Filename:="F:\WBookN.xls"

End Sub

虽然变量WBookN已经获取了TextBox1的值,但是ActiveWorkbook.SaveAs Filename:="F:\WBookN.xls"输出的则是F:\这个路径和WBookN这个文件名。在“”号下不能实现变量的取值,因此需要新命名一个String变量。

还有一种典型的错误是ActiveWorkbook.SaveAs Filename:="b",如果b是变量,那么不能带上“”,否则会出错。正确的表达方法是ActiveWorkbook.SaveAs Filename:=b。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA 创建新工作簿的方法 | 猎微网

评论已关闭!