2楼的方法正确,还有另一种方法
Dim Book As New XLS.Book("d:\test.xls")Dim sheet As XLS.Sheettry sheet = book.Sheets("abc") msgbox("有这个表")catch ex As Exception msgbox("没有这个表")End try