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

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

 

 回复10楼，

 

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

End With
Builder.Close()

Syscmd.Project.Open(ProjectFile)

 

 

谢谢甜老师！

老师，你是说前后的dlg后面的变量冲突，下面的代码要怎么改呢？

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)

 

哦，是前后的dlg后面加个序号就行了，不是改成另一个名字。谢谢老师！
老师，下面这段代码的意思就是: 想要删除数据表C（包括其表名）和临时表A、B，只要把数据表C删除再重新打开项目就行了，最后两句删除临时表的代码不用执行，但这时出现一个“提示”窗口：保存修改吗？，用什么代码把这个窗口关闭掉？

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()
Syscmd.Project.Open(ProjectFile)

DataTables.delete("表A")
DataTables.delete("表B")

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()
DataTables.Save
Syscmd.Project.Open(ProjectFile)

老师，执行这段代码后还出现“用户登录”窗口，如何关闭它呀？

 这样写

 

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

哈哈，谢谢老师！我加了下面两句，一切都OK啦！谢谢！请问一下，我这段代码完成了，达到了我的要求，算是完成了一个项目了吧？能把这段代码做成一个按钮或可执行程序吗？Foxtable软件三个月试用期到后会有怎样的提示？一定要购买才能用吗？

DataTables.delete("表A")

DataTables.delete("表B")

 

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

 

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

 

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