主题：两个表通过三个关联列合并后，形成新表，请问：加一句什么代码做到某个条件下自动求和？

好了。导入了。非常感谢老师的指导！！

老师，你这段代码中ip.NewTableName = s.Name & Format(Date.Now, "yyyyMMddHHmmssfff")的文件名是否能改成一个固定的问件名？以便于后续的代码执行？

 呃，你现在是新增一个表，固定的话，表名重复是不能导入的。

也就是说不要用年、月、日、时、分、秒即“yyyyMMddHHmmssfff”来命名TableName,而是用一个固定的名字。如：C

 重复的名字不行啊

 要么你就用合并，不要用导入

 

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

 

没事的，我会先删除。主要为了后续代码的执行，代码不可能每次都去改，所以要个固定的TableName

 

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        For Each f As String In dlg.FileNames
           
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
           
            For Each s As object In Wb.WorkSheets
                Dim ip As New Importer
                ip.SourcePath = f
                ip.SourceTableName = s.Name & "$"
                ip.NewTableName = s.Name 

                ip.Format = "Excel"
                ip.Import()
            Next
        Next
    catch ex As exception
       
    finally
        app.quit
    End try
End If

或者

 

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        For Each f As String In dlg.FileNames
           
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
           
            For Each s As object In Wb.WorkSheets
                Dim ip As New Importer
                ip.SourcePath = f
                ip.SourceTableName = s.Name & "$"
                ip.NewTableName = "表C"
                ip.Format = "Excel"
                ip.Import()
            Next
        Next
    catch ex As exception
       
    finally
        app.quit
    End try
End If

老师，还有个问题：想把对两个文件分别分组统计的代码同时执行，中间要加什么代码呢？比如以下两段分组统计的代码，如何做到同时执行呢？

 

Dim g As New GroupTableBuilder("hju", DataTables("ikju"))
g.Groups.AddDef("管理员")
g.Groups.AddDef("单价")
g.Totals.AddDef("数量")
g.VerticalTotal = True
g.Build()
MainTable = Tables("hju")

 

 

Dim g As New GroupTableBuilder("wefd", DataTables("bhji"))
g.Groups.AddDef("仓位")
g.Groups.AddDef("单价")
g.Groups.AddDef("管理员")
g.Totals.AddDef("数量")
g.VerticalTotal = True
g.Build()
MainTable = Tables("wefd")