標題: [發問] 將excel檔import到Access table [打印本頁]

---

作者: zxcxz    時間: 2014-1-26 18:12     標題: 將excel檔import到Access table

以下程序會開啟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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)