【一步一步学习VBA】Excel VBA 在当前目录创建一个excel表

首先我们新建一个EXcel表，然后调用出Visual Basic，同时写入代码：

Sub AddNew()
Dim path As String, filepath As String
filepath = ThisWorkbook.path
path = filepath + "\Allsales.xls"

Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"
        .Subject = "Sales"
        .SaveAs Filename:=path
    End With
End Sub

上面一段代码执行后，那我们当前文件夹下面就会新建出一个Excel文件:Allsales.xls，如下图：