以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  Excel合并不能实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56702)

--  作者:sxqq123
--  发布时间:2014/9/11 8:43:00
--  Excel合并不能实现
If MainTable.Name = "分解数据二" Then
    Dim dlg As New OpenFileDialog
    dlg.Filter = "excel文件|*.xls"
    dlg.MultiSelect = True \'允许选择多个文件
    If dlg.ShowDialog =DialogResult.OK Then
        For Each fl As String In dlg.FileNames
            Dim mg As New Merger
            mg.SourcePath = fl
            mg.SourceTableName = "液相表2$"
            mg.DataTableName = "分解数据二"
            mg.Merge()
        Next
    End If
End If

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140911084234.jpg
图片点击可在新窗口打开查看
请教如何处理?
--  作者:Bin
--  发布时间:2014/9/11 8:50:00
--  
http://www.foxtable.com/help/topics/0685.htm

mg.Format = "excel" \'指定格式