主题：如何读取外部数据源中表的名称？

做一个导入excel表的菜单，利用打开文件对话框获取了文件目录及名称，还需要获取文件中表的名称，无法实现。就像使用功能中导入时打开了一个excel文件，下拉框中自动列出了所有表的名称、列的名称。

Dim Book As New XLS.Book("C:\Users\lenovo\Desktop\基础数据收集模板.xls")

Dim str As String = ""

Dim str1 As String

Dim Sheet As XLS.Sheet

For Each sheet In book.Sheets

str = str & "|" & sheet.name

Next

str1 = str.SubString(1)

Output.Show(str1)

输出结果：职员|职员 (2),可以作为下拉框项目值赋值了。