1. 程式人生 > >【一步一步學習VBA】Excel VBA 在當前目錄建立一個excel表

【一步一步學習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,如下圖: