VBA 复制和重命名 Access 数据库 - 完整指南

以下是使用 VBA 复制 Access 数据库并重命名的示例代码：

Sub CopyAndRenameDatabase()
    Dim sourcePath As String
    Dim destinationPath As String
    Dim sourceDatabase As String
    Dim destinationDatabase As String
    
    sourcePath = 'C:\SourceFolder\'
    destinationPath = 'C:\DestinationFolder\'
    sourceDatabase = 'SourceDatabase.accdb'
    destinationDatabase = 'DestinationDatabase.accdb'
    
    ' 复制数据库文件
    FileCopy sourcePath & sourceDatabase, destinationPath & destinationDatabase
    
    ' 重命名数据库对象
    Dim db As DAO.Database
    Set db = OpenDatabase(destinationPath & destinationDatabase)
    db.Name = 'NewDatabaseName'
    db.Close

    ' 删除原始数据库文件
    Kill sourcePath & sourceDatabase
End Sub

在此示例中，我们首先定义源路径和目标路径，以及源数据库和目标数据库的名称。然后，我们使用 VBA 的 FileCopy 函数将源数据库文件复制到目标路径中，并使用 DAO.Database 对象打开目标数据库。接下来，我们使用 db.Name 属性来重命名数据库对象，然后关闭数据库对象。最后，我们使用 Kill 函数删除原始数据库文件。