Excel VBA新建工作簿并为其命名

2016-01-22 15:24 阅读 118 次 评论 2 条

Excel VBA新建工作簿并为其命名基本方法,详细代码如下

Sub newadd()

dim newbook as workbook
set newbook = workbooks.add
newbook.saveas filename:="工资簿.xls"

Sub newadd()

使用这段代码新建工作薄,工作薄的名称为工资簿,但此Excel工作薄的路径却是默认的D:\我的文档。

Excel VBA新建工作簿、命名并自定义保存路径,详细代码如下

Sub newadd()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:="F:\工作薄.xls"

Sub newadd()

使用这段Excel VBA代码新建工作簿名称为“工作薄”,保存路径为"F:\工作薄.xls"。当然这段代码基本上能满足需要了,但能不能让用户在前台窗体自定义工作簿的名称而不需要修改代码呢?

具体实现代码如下:

Sub newadd()

Dim WBookN as String, b as String

Workbooks.Add
WBookN = TextBox1.Text

b =  "E\" & WBookN & ".xls"
ActiveWorkbook.SaveAs Filename:=b

Sub newadd()

这段Excel VBA代码保存的路径是E盘,新建工作簿的名称由用户输入TextBox1文本框的字符决定。虽然说这段Excel VBA代码已经够人性化的了,但保存路径还需要在后台修改代码,保存路径如下想要在前台窗体中修改,请参照上述代码进行修改即可。下面讲讲更高级的Excel VBA代码:

Excel VBA新建工作簿、自定义命名并保存路径为当前工作薄的路径,详细代码如下

Private Sub CommandButton1_Click()
Dim WBookN As String, b As String

If TextBox1.Value = "" Then
MsgBox ("请输入工资簿名称")
Exit Sub '这是退出整个程序
End If

Workbooks.Add
WBookN = TextBox1.Text

b = ThisWorkbook.Path & "\" & WBookN & ".xls"
ActiveWorkbook.SaveAs Filename:=b

End Sub

本代码有两个特色,一是如果未输入文本框1的字符,将会报错并退出往下执行Excel VBA代码;二是新建工作薄保存的路径是当前工作薄所在的路径。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA新建工作簿并为其命名 | 猎微网
  1. 每天签到赚10元
    每天签到赚10元 【农民】

    嘘嘘下

  2. 集成灶
    集成灶 【农民】

    不错,来支持下

评论已关闭!