標題: [發問] EXCEL批次新增資料至ACCESS失敗 [打印本頁]

---

作者: yifan2599    時間: 2018-10-22 22:06     標題: EXCEL批次新增資料至ACCESS失敗

您好，小弟將書本範例套至個人檔案時，發現一直跑到底下程式就斷掉..
但一直不解原因，再麻煩幫忙解惑。

OFFICE版本：2010
ACCESS資料表名稱：DATA
EXCEL資料表名稱：ACC

Sub 匯入Access()

Dim AdoConn As New ADODB.Connection
Dim strConn As String
Dim DataAddr As String
Dim strSQL As String
Dim strVer 'As String


strVer = Worksheets("Main").Cells(3, 16)
DataAddr = Sheets("ACC").Range("A1:O" & Sheets("ACC").Range("A" & Cells.Rows.Count).End(xlUp).Row).Address(0, 0)
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
          "Data source= C:\Users\OO\Desktop\OO.accdb"
AdoConn.Open strConn
DataAddr = Sheets("ACC").Range("A1:O" & Sheets("ACC").Range("A" & Cells.Rows.Count).End(xlUp).Row).Address(0, 0)
strSQL = "Insert Into [DATA] Select *," & strVer & "As 版本 From [Excel 12.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "].[ACC$" & DataAddr & "]"
AdoConn.Execute strSQL
strSQL = "Select 版本,月份,數量 from [DATA] where 版本=" & strVer & "Order By 月份"
Sheets("ACC2").Range("A1").CopyFromRecordset AdoConn.Execute(strSQL)
AdoConn.Close
MsgBox "資料已儲存"

End Sub


[attach]29577[/attach]

---

作者: yifan2599    時間: 2018-10-22 22:14

補上異常畫面

[[attach]29578[/attach]

---

作者: GBKEE    時間: 2018-10-24 05:20

回復 2# yifan2599
你的程式碼 加上 Debug.Print  在即世運算視窗,查看你的式子錯在哪裡

1. strSQL = "Insert Into [DATA] Select *," & strVer & "As 版本 From [Excel 12.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "].[ACC$" & DataAddr & "]"
   
2. Debug.Print strSQL   
   
3. Stop
   
4. AdoConn.Execute strSQL

複製代碼

---

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