主题：如何把易表的库结构快速迁移到狐表

想把易表的程序转换成狐表

第一步，就是建立和易表对应的数据库。

我的易表有二十多张表，有的表有七八十列。现在发现重建这个库都很繁琐。

不知大家有什么好的方法，快速“复制”一个狐表格式的数据库出来。

将易表导出  然后在狐表导入

 楼上正解...

高速导入的时候，只能一张一张表导入，如果有100多张表，也挺繁琐，希望增加一个选项，导入所有表

 写一个导入例子吧，以Excel格式为例。

SystemReady = False
Dim book As New XLS.Book("d:\test.xls")
For Each sheet As XLS.Sheet In book.Sheets
    Dim ip As New Importer
    ip.SourcePath = "d:\test.xls" '指定数据文件
    ip.SourceTableName = sheet.Name '指定要导入的表
    ip.NewTableName = sheet.Name '导入后的表名
    ip.Format = "Excel" '指定导入格式
    ip.Import()
Next
SystemReady = True

如果是access格式呢？

 循环的内容相同，关键是取得表的名字。
 
 Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;Persist Security Info=False")

 Connections(test).GetTableNames

 Connections.Delete("test")

导出Microsoft Excel 工作表.xls然后狐表导入，或许可以，我也是新手