[發問] EXCEL批次新增資料至ACCESS失敗

yifan2599

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

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

下載 (55.22 KB)
說明

2018-10-22 22:04

yifan2599

補上異常畫面

[

下載 (13.11 KB)

2018-10-22 22:14

GBKEE

回復 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

複製代碼