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

鱼儿游游

如题：判断一个EXECEL文件中是否存在指定的工作表

游客，如果您要查看本帖隐藏内容请回复

xuwenning

谢谢分享
收藏了

yanghua1900363

yehf

另外一个方法,用DAO+错误陷阱


Function b(filename As String, sheetname As String) As Boolean
    Dim rst    As DAO.Recordset
    On Error Resume Next
    Set rst = CurrentDb.OpenRecordset("SELECT *  FROM [excel 8.0;database=" & filename & "].[" & sheetname & "$]")
    'b = (Err.Description <> "'" & sheetname & "$' 不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。")
    b = (Err = 0)
    rst.Close
    Set rst = Nothing
End Function

todaynew

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

鱼儿游游

todaynew 发表于 2011-10-14 17:10
遍历后面的代码太罗嗦，可以：
oExcelApp.quit false
Set oExcelSheet = 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

安庆_吴老铁

学生来也

ycxchen

谢谢分享！楼主精神可喜！

koutx

收藏了