以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如果判断一个表是否在EXCEL中？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84699)
--  作者：linshengqi
--  发布时间：2016/5/8 8:28:00
--  [求助]如果判断一个表是否在EXCEL中？
现有一个EXCEL表，内里有sheet(1)="A" 、sheet(２)="Ｂ"、sheet(３)="Ｃ"，如果通过编码去判断这个ＥＸＣＥＬ中是否有个名为“d”的sheet？
--  作者：wyz20130512
--  发布时间：2016/5/8 10:35:00
--  
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
    If Ws.Name = "D" Then
        MessageBox.Show("存在工作表D")
    End If
Next

改动红色的部分即可.
[此贴子已经被作者于2016/5/8 10:53:36编辑过]
--  作者：大红袍
--  发布时间：2016/5/8 10:59:00
--  

2楼的方法正确，还有另一种方法

 

Dim Book As New XLS.Book("d:\\test.xls")
Dim sheet As XLS.Sheet
try
    sheet = book.Sheets("abc")
    msgbox("有这个表")
catch ex As Exception
    msgbox("没有这个表")
End try