你可以用这个方法,获得第一个表的名称:
Dim Book As New XLS.Book("c:\data\订单.xls")Dim nm As String = Book.Sheets(0).nameoutput.show(nm)