谢谢各位围观
已在别处找到答案
Sub Macro1() '引用Microsoft AD0 Ext 2.8 for DDL and Security
Dim cnn As Object, SQL$
Dim myCat As New ADOX.Catalog
On Error Resume Next
myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\数据库2.mdb;Jet OLEDB:Database Password=123456"
myCat.Tables.Delete "表1"
Set myCat = Nothing
On Error GoTo 0
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\数据库2.mdb;Jet OLEDB:Database Password=123456"
SQL = "select * into 表1 from [;pwd=123456;database=" & ThisWorkbook.Path & "\数据库1.mdb].表1"
cnn.Execute SQL
MsgBox "将数据表复制到了数据库2.mdb", vbInformation
cnn.Close
Set cnn = Nothing
End Sub
