主题：[求助]BIN老师、甜老师要合并的表名称不固定但有规律，应该怎么合？

Dim  dlg As New  OpenFileDialog dlg.Filter=  "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx" If dlg.ShowDialog =  DialogResult.Ok Then     Dim mg As New Merger     mg.SourcePath =   dlg.FileName     mg.Format =  "excel"     mg.SourceTableName =  "8月工资表$"or"9月工资表"or"10月工资表"(可以这样写吗？如果不对应该怎么写？请老师指点）     mg.DataTableName =  "工资表"   '指定接收数据的表     mg.Merge()  '开始合并 End If MessageBox.Show("导入完成" )

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0

并不是在同一个excel文件中，而是有12个excel文件，每个excel文件的工作薄名称分别为“1月工资表“，“2月工资表”.......“12月工资表”。

Dim  dlg As New  OpenFileDialog
dlg.Filter=  "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx"
If dlg.ShowDialog =  DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    For Each sheet As XLS.Sheet In Book.Sheets
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.Format =  "excel"
        mg.SourceTableName = sheet.Name.Replace("$", "") & "$"
        mg.DataTableName =  "工资表"   '指定接收数据的表
        mg.Merge()  '开始合并
    Next
End If
MessageBox.Show("导入完成" )

谢谢甜老师