MS Access将表复制到另一个表的VBA代码

Sub CopyTable()
    Dim db As Database
    Dim sourceTable As TableDef
    Dim destinationTable As TableDef
    
    ' 设置数据库对象
    Set db = CurrentDb
    
    ' 设置源表和目标表对象
    Set sourceTable = db.TableDefs("源表名称")
    Set destinationTable = db.TableDefs("目标表名称")
    
    ' 复制表结构
    destinationTable.Create sourceTable.Name
    
    ' 复制表数据
    db.Execute "INSERT INTO " & destinationTable.Name & " SELECT * FROM " & sourceTable.Name
    
    ' 清空对象变量
    Set db = Nothing
    Set sourceTable = Nothing
    Set destinationTable = Nothing
    
    MsgBox "表复制完成！"
End Sub

Set sourceTable = db.TableDefs("Customers")
Set destinationTable = db.TableDefs("Customers_Copy")