急！！怎样实现Access表的复制？

Question

select * from bbb as select * from aaa

Answer 1

先在BBB里建立一个同AAA同样结构的表BBB。Dim conn1 As New ADODB.Connection
Dim conn2 As New ADODB.Connection
Dim str As String
str="Provider=Microsoft.Jet.4.0;Database=" & $PATH$ & "\AAA.mdb;PWS=;"
conn1.open str
str="Provider=Microsoft.Jet.4.0;Database=" & $PATH$ & "\BBB.mdb;PWS=;"
Dim rs As New ADODB.Recortset
str="select * from table"
rs.Open str,conn,3,4
Dim i As Integer
For i = 1 To rs.RecordCount
    str="insert into table(" & $FIELD1$ & …… & $FIELDn$ & ") " & _
        "values('" & rs("field1") & "','" & …… & rs("field1") & _
        "')"
    conn2.Execute(str)
    rs.MoveNext
Next i比较苯，不过肯定行。

Answer 2

line9: rs.Open str,conn1,3,4

Answer 3

可以使用Select into语句来实现下面是用DAO将Excel导入Access的例子，修改一下应该能实现
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub

Answer 4

select * into TableCopy from TableSource

Answer 5

to CityBird(鹰扬九州)
FROM [" & sSheetName & "$]")中的sheetname用什么代替？