測試成功，原碼：

Dim xlapp As Excel.Application "Excel物件Dim xlbook As Excel.Workbook "工作簿Dim xlsheet As Excel.Worksheet "工作表Dim xlrange As Excel.rangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") "第一層Set xlbook = xlapp.Workbooks.Addxlapp.Visible = Truexlbook.sheets(1).range("a1") = "新建成功"xlbook.SaveAs App.Path & "/測試.xls"xlbook.CloseEnd Sub

Excel中的VB語言叫做VBA，在VBE中使用程式碼新建即可

Excel版本參考：2010

演示：新建一個表名為test的工作表

1、ALT+F11，進入VBE視窗

2、右擊工作表標籤-插入-模組

3、輸入程式碼：

Sub test()

Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "test"

End Sub

4、按下F5執行，檢視工作表，新建的test表 已新建好