Excel文件里sheet的删除

VBA里面新建了一个excel文件
然后这时文件一般自动会生成三个sheet
程序里面
Set foXls = GetObject(, "Excel.application")
Set foWorkbookDest = foXls.Workbooks.Add
'いらないシートの削除
foWorkbookDest.Worksheets(4).delete
foWorkbookDest.Worksheets(3).delete
foWorkbookDest.Worksheets(2).delete
追加一个sheet然后把原来的删除
但是不是一定会自动生成3个的，这个设置可以改
如果删除必须换一种方法，从第二个开始全部删除