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"
    
    ' Copy the database file
    FileCopy sourcePath & sourceDatabase, destinationPath & destinationDatabase
    
    ' Rename the database object
    Dim db As DAO.Database
    Set db = OpenDatabase(destinationPath & destinationDatabase)
    db.Name = "NewDatabaseName"
    db.Close

    ' Delete the original database file
    Kill sourcePath & sourceDatabase
End Sub

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