【源码示例】判断一个EXECEL文件中是否存在指定的工作表

todaynew

遍历后面的代码太罗嗦，可以：
oExcelApp.quit false
Set oExcelSheet = Nothing
Set oExcelBook = Nothing
Set oExcelApp = Nothing

todaynew

鱼儿游游 发表于 2011-10-14 18:10
多谢，这样的话，会提示是否存盘的。

存盘用ture，放弃存盘用false。
你这段代码没涉及到数据操作，不带后面的参数应该也不会提示存盘消息吧？

此外这个函数没什么价值吧？如果修改成带入参数为Book对象的话，才应该有实用价值。因为判断总是在某段涉及到已经打开的Book中进行某些操作时进行的。否则的话，仅仅为了判断是否存在某个sheet而打开关闭一次Excel对象，太不值得了，目的性也不强，有点为判断而判断的味道。呵呵

还有一个思路是枚举出一个book的sheet，作为列表框或者组合框的来源，这也有价值。

以上意见仅作参考。呵呵

Public Function IsExcelSheetExist(oExcelBook  As Excel.book,strSheetName as string) As Boolean
Dim oExcelSheet as Excel.Worksheet
For Each oExcelSheet In oExcelBook.Worksheets
      If oExcelSheet.Name = strSheetName Then
           IsExcelSheetExist = True
           Exit For
      End If
Next
set oExcelSheet=nothing
End Function