主题：Merger 合并Excel表名的问题

下面试帮助中：

 

合并Excel文件:

Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并

一些Excel文件，可能需要在表名后加上符号$才能正常导入，例如：

Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单$" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并

 

请问： 有没有办法判断一下要合并的表 如果不是“订单” 就选择“订单$"  或者 跳过系统的提示～  

此主题相关图片如下：未命名.jpg

这个不能判断吧。

不知道都加上$行不行（反正我的电脑一定得加，不然就出错）

从系统菜单的导入和合并来看，老六应该是可以让它能判断的，因为这两个功能的选择指定的表都带$符号。

附件中两个excel文件, 销售管理.xls 有带$符合, 销售管理1.xls 就没有$这个符合......

 

Dim mg As New Merger
mg.SourcePath = "销售管理1.xls"
mg.Format = "excel"     '指定格式
mg.SourceTableName = "订单"    '指定要合并的表  不需加 $ 符合
mg.DataTableName = "订单"      '指定接收数据的表
mg.Merge() '开始合并

 

Dim mg As New Merger
mg.SourcePath = "销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单$"    '指定要合并的表 必须加 $ 符号
mg.DataTableName = "订单"    '指定接收数据的表
mg.Merge() '开始合并

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:data.rar

 

 

问题是我们不能用代码获取Excel工作表带$符号的名称。

 

如下面两种方式返回的都是不带$符号的工作表名称：

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "销售管理.xls")
For Each Ws As MSExcel.WorkSheet In Wb.Sheets
    Output.Show(Ws.Name)
Next
App.Quit

 

 

 

Dim Book As New XLS.Book(ProjectPath & "销售管理.xls")
Dim Sheet As XLS.Sheet
For i As Integer = 0 To Book.Sheets.Count -1
    Output.Show(Book.Sheets(i).Name)
Next

建立一个Excel数据源，然后：

 

 

Dim lst As List(Of String)
lst = Connections("数据源名称").GetTableNames
For Each nm As String In lst
    Output.Show(nm)
Next

 

这方法可行。

ok  有点迂回的感觉······

 

其实就是多了个系统提示，为何用 ：

 

Try
   代码一
Catch ex As Exception
   代码二
End Try
代码三

 

也不能避免那个提示，