ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥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

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD