'删除多余的worksheet
'xlApp为Application对象(将Excel的警告去掉)
xlApp.DisplayAlerts = False
'xlBook为WorkBook对象
If xlBook.Worksheets.count > 1 Then
j = xlBook.Worksheets.count
xlApp.DisplayAlerts = False
For I = j To 2 Step -1
xlBook.Worksheets(I).Delete
Next I
1、关闭EXCEL:
vb_Excel.Quit
Set vb_Excel=NOthing
2、判断某Sheet是否存在:
if vb_Excel.Sheets("Sheet1").Activate then '好像是这样吧,没试过,呵呵。。。
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
endif