BlogJava-WEB开发 de 点滴-随笔分类-vba开发http://www.blogjava.net/sanwish/category/32213.htmlby sanwishzh-cnMon, 16 Jun 2008 03:13:15 GMTMon, 16 Jun 2008 03:13:15 GMT60判断一个工作表(名)是否存在http://www.blogjava.net/sanwish/archive/2008/06/14/207909.htmlsanwishsanwishSat, 14 Jun 2008 08:05:00 GMThttp://www.blogjava.net/sanwish/archive/2008/06/14/207909.htmlhttp://www.blogjava.net/sanwish/comments/207909.htmlhttp://www.blogjava.net/sanwish/archive/2008/06/14/207909.html#Feedback0http://www.blogjava.net/sanwish/comments/commentRss/207909.htmlhttp://www.blogjava.net/sanwish/services/trackbacks/207909.html1，第一种，当参数是workbook时

Function WorksheetExists(wb As Workbook, sName As String) As Boolean
  Dim s As String
  On Error GoTo ErrHandle
     s = wb.Worksheets(sName).Name
     WorksheetExists = True
     Exit Function
  ErrHandle:
     WorksheetExists = False
End Function


或者当第一个参数是文件名的时候
Function WorksheetExists(wb As String, sName As String) As Boolean
  Dim s As String
  On Error GoTo ErrHandle
     Windows(GetNoPathFile(wb)).Activate
     ActiveWorkbook.Sheets(sName).Select
     WorksheetExists = True
     Exit Function
  ErrHandle:
     WorksheetExists = False
End Function

sanwish 2008-06-14 16:05 发表评论
]]>