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

老师好！执行导入Excel文件的这段代码后，好像经常要调出任务管理器，把所有的 Excel.exe 进程全部结束，这样才能导入成功。这样操作很麻烦，能有个彻底解决的方案吗？

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
   
    For Each f As String In dlg.FileNames
        Dim App As New MSExcel.Application
        try
            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 = "表Cd"
                ip.Format = "Excel"
                app.quit
                ip.Import()
            Next
        catch ex As exception
            app.quit
           
        End try
    Next
   
End If

谢谢老师！

老师，刚才我测试了一下，执行上面这段代码后，还是提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。

我不知道哪里有问题。

 

出这种问题，你就手动去删除excel.exe进程，代码是肯定没有问题的。

老师，我刚打开电脑，进程里没有看到Excel 啊。

老师，执行这段代码真的提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。
进程里没有看到Excel， 您再帮我看看，到底哪句有问题？

 

Dim dlg As new OpenFileDialog dlg.Filter = "Excel文件|*.xls;*xlsx" dlg.MultiSelect = True If dlg.ShowDialog = DialogResult.OK Then         For Each f As String In dlg.FileNames         Dim App As New MSExcel.Application         try             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 = "表Cd"                 ip.Format = "Excel"                 app.quit                 ip.Import()             Next         catch ex As exception             app.quit                     End try     Next     End If

 不可能有问题，测试没问题

怪了。

哈哈，老师，我测试出来了：首先把需要导入的Excel 文件打开，然后再执行这段代码，这样就导进去了。不知何故？