主题：要合并的表名称不固定但有规律，应该怎么合？

Dim  dlg As New  OpenFileDialog

dlg.Filter=  "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx"

If dlg.ShowDialog =  DialogResult.Ok Then

dim arr() as string = {"8月工资表$","9月工资表","10月工资表")

for each ar as string in arr

    Dim mg As New Merger

    mg.SourcePath =   dlg.FileName

    mg.Format =  "excel"

    mg.SourceTableName =  ar

    mg.DataTableName =  "工资表"   '指定接收数据的表

    mg.Merge()  '开始合并

next

End If

MessageBox.Show("导入完成" )