以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么判断一个Excel文件中是否含某指定名称的工作表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119306)

--  作者:zhutangxin
--  发布时间:2018/5/22 15:05:00
--  怎么判断一个Excel文件中是否含某指定名称的工作表
老师,你好,
怎么判断一个Excel文件中是否含某指定名称的工作表,如在c:\\test\\test.xls中是否包含名为“Sheet1"的工作表,如有删除该表。用代码怎么实现?

在帮助文件中,Sheets下面没有Contain方法。 谢谢!

--  作者:有点甜
--  发布时间:2018/5/22 15:46:00
--  
Dim Book As New XLS.Book \'定义一个Excel工作簿
book.Sheets.Add("test1")
book.Sheets.Add("sheet2")
book.Sheets.Add("test2")
For i As Integer = book.Sheets.Count-1 To 0 Step -1
    If book.sheets(i).Name = "sheet2" Then
        msgbox(1)
        book.Sheets.RemoveAt(i)
    End If
Next
book.save("d:\\123.xls")