如何将导入/导出规格从一个数据库复制到另一个数据库？

Question

我的 Access 数据库遇到了损坏问题，无法再压缩/修复或更改密码。 经过一些研究，解决方法是废弃现有文件并将内容迁移到新文件。 我设置了一个函数来负责移动所有访问对象，但是我的一个脚本使用了一个导入/导出规范，我无法弄清楚如何通过 VBA 进行迁移。 除了手动干扰之外，是否有其他方法可以移动导入/导出规范，或者如果我将来需要再次挽救我的数据库，是否有更好的方法来保存和引用这些规范？

Answer 1

您可以使用

CurrentProject.ImportExportSpecifications

来处理导入/导出规范。它们存储为 XML。

伪代码是这样的：

对于损坏的数据库，假设它仍然可以运行代码：

Dim imexspec As Object
For Each imexspec In CurrentProject.ImportExportSpecifications
    ' Do not actually print but write to a place where the other database can access it
    Debug.Print imexspec.Name; imexspec.XML
End For

对于新数据库：

'Obtain array of names and array of XMLs somehow
For i = LBound(NameArray) To UBound(NameArray)
    CurrentProject.ImportExportSpecifications.Add NameArray(i), XMLArray(i)
Next