主题：两个表同时导出的问题

 回复9楼，提示的意思是，你定义的变量名字重复了。把dlg对应的改成另一个名字。

 回复10楼，

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")

End With
Builder.Close()

Syscmd.Project.Open(ProjectFile)

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

Dim tnames() As String = {"表A", "表B"}
Dim dlg2 As new SaveFileDialog
dlg2.Filter = "Excel|*.xls"
For Each tname As String In tnames
    If dlg2.ShowDialog = DialogResult.OK Then
        Dim ex As New Exporter
        ex.FilePath = dlg2.FileName
        ex.SourceTableName = tname
        ex.Format = "Excel"
        ex.Export()
    End If
Next
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()
Syscmd.Project.Open(ProjectFile)

 这样写

DataTables.Unload("表C")
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()

1、只有开发版才能编译成可直行车；

2、你可以弄一个窗口，弄一个按钮，把代码拷贝进去； http://www.foxtable.com/help/topics/0698.htm

3、若过期，在前几天会提示你激活foxtable的

明明你代码就包含表A表B的引用啊。

不懂，就请想去看一下帮助文档。你要有表B才能对它操作啊