以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]BIN老师、甜老师要合并的表名称不固定但有规律，应该怎么合？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56918)
--  作者：xiaoyongxg2
--  发布时间：2014/9/15 13:28:00
--  [求助]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("导入完成" )
--  作者：Bin
--  发布时间：2014/9/15 14:06:00
--  
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0
Sheet.name \'可以获取第一个表的表名
--  作者：xiaoyongxg2
--  发布时间：2014/9/15 14:12:00
--  
并不是在同一个excel文件中，而是有12个excel文件，每个excel文件的工作薄名称分别为“1月工资表“，“2月工资表”.......“12月工资表”。
--  作者：有点甜
--  发布时间：2014/9/15 14:16:00
--  
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("导入完成" )
--  作者：xiaoyongxg2
--  发布时间：2014/9/15 15:13:00
--  
谢谢甜老师