主题：[求助] 合并数据公式

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.Format = "excel" '指定格式
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "Sheet1$"      
    mg.DataTableName = "Itellin用户数据表"
    mg.Merge()
End If

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "Itellin用户数据表" '指定导出表
    ex.NewTableName = "excel表"
    ex.FilePath = dlg.FileName
    ex.Format = "Excel" '导出格式为Excel
    ex.Export() '开始导出
End If

你这种，需要编写代码才能合并，因为数据格式不一致

 

http://www.foxtable.com/help/topics/2334.htm

 

 一样可以啊，你定义一个OpenFileDialog就行

 你写的代码跟帮助文档的差好远啊

 

Dim dlg As New OpenFileDialog '定义一个新的
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("订单").StopRedraw()
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("订单").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("订单").ResumeRedraw()
End If