如何使用 VBA 创建 CurrentDb 的副本

Posted 2023-04-19

【中文标题】如何使用 VBA 创建 CurrentDb 的副本

【英文标题】：How do I create copies of CurrentDb using VBA

【发布时间】：2016-08-30 08:24:54

【问题描述】：

我需要使用 VBA 创建 CurrentDB 的副本（大约 12 个副本）。副本需要是主数据库的克隆，包含所有相同的表单、查询等，但只有有限的数据集。

DoCmd.CopyDatabaseFile 似乎是为此而设计的，但只有在您使用它将数据库复制到 MS SQL Server 时才有效。正如 MS 在其网站上所说：

将连接到当前项目的数据库复制到 Microsoft 用于导出的 SQL Server 数据库文件。

docmd.TransferDatabase只导出数据本身，不导出结构、表格等

我在网上找到并改编的代码不起作用，并在.CopyFile 行抛出错误：

运行时错误 52：错误的文件名或编号

这是代码

Sub CopyDB()
Dim external_db As Object
Dim sDBsource As String
Dim sDBdest As String

sDBsource = "\\group\bsc\groups\L\BDTP\Compliance\ComplianceData\Compliance Group Reporting.accdb"
sDBdest = "\\group\bsc\groups\L\BDTP\Compliance\ComplianceData\Compliance Group Reporting_2.accdb"""

Set external_db = CreateObject("Scripting.FileSystemObject")
external_db.CopyFile sDBsource, sDBdest, True
Set external_db = Nothing

End Sub

我怎样才能修复上面的行？或者，Access 中是否有直接命令来创建副本？ “创建备份”功能将为此量身定制，但我在 VBA 中找不到。

【参考方案1】：

看起来您在 sDBdest accdb""" 中有一个额外的报价 对于数据库副本，您还可以使用

FileCopy sDBsource, sDBdest

代替脚本对象

【讨论】：

只要系统允许我就会接受作为答案。