[發問] 將excel檔import到Access table

zxcxz

以下程序會開啟C:\Access test\db1.accdb
我需要將C:\Book1.xlsx sheet(1) import成為db1.accdb的Table(Table名為"Book1"，原有的"Book1" table改名為"Book1_backup")
要怎樣做？感謝！

Sub Connect_Access()

'Dim cnn As ADODB.connection
db1_path = "C:\Access test\"
db1_name = "db1.accdb"
Dim MyAccess As Object

   Set MyAccess = CreateObject("Access.Application")
   MyAccess.Visible = True
   MyAccess.OpenCurrentDatabase (db1_path & db1_name)
'----------------------------


'----------------------------
   Set MyAccess = Nothing
End Sub