关于创建Excel的几个问题

Question

Dim appXls As Excel.Application
    Dim sht As Excel.Worksheet
    Set appXls = New Excel.Application
    appXls.Workbooks.Add
    appXls.Worksheets(1).Name = "Test"
    appXls.Visible = True
    Set appXls = Nothing

Answer 1

然后：appxls.saveas excel表格名称

Answer 2

第一个问题：
Worksheets(1).Name = "Test"
Worksheets(2).Visible = False      '隐藏第2张工作表
Worksheets(3).Visible = False
第二个问题
Dim wObj  As Object, dObj As Object
Set wObj = CreateObject("excel.application")
Set dObj = wObj.Workbooks.Add
dObj.SaveAs (App.Path & "\工作计划.xls")
wObj.Quit
Set wObj = Nothing