[µo°Ý] ±NexcelÀÉimport¨ìAccess table

zxcxz

¥H¤Uµ{§Ç·|¶}±ÒC:\Access test\db1.accdb
§Ú»Ý­n±NC:\Book1.xlsx sheet(1) import¦¨¬°db1.accdbªºTable(Table¦W¬°"Book1"¡A­ì¦³ªº"Book1" table§ï¦W¬°"Book1_backup")
­n«ç¼Ë°µ¡H·PÁ¡I

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