VB关闭excel问题

momocom 2003-09-14 09:24:04

如何关闭所有已经运行了的excle

如何判断某sheet是否存在。如存在删掉该sheet（删掉的时候不出现那个提示框）。

...全文

79 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

easydone 2003-09-24

打赏
举报

'删除多余的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

End If

momocom 2003-09-20

打赏
举报

胡来。。。。～～～～

sayboy 2003-09-20

打赏
举报

c=.sheets.count
for i=1 to c
if .sheets(i).name="my name" then
'存在
end if
next

qifanghcy 2003-09-14

打赏
举报

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