建立一个Excel数据源,然后:
Dim lst As List(Of String)lst = Connections("数据源名称").GetTableNamesFor Each nm As String In lst Output.Show(nm)Next