[發問] 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

樓主熱帖

人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

yifan2599

　暱稱: Mick

贊助會員 Rank: 2

帖子: 37
主題: 10
精華: 0
積分: 55
點名: 0
作業系統: Win10(x64)
軟體版本: Office 2016 (x64)
閱讀權限: 30
性別: 男
註冊時間: 2011-1-31
最後登錄: 2021-9-15

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-10-22 22:14 | 只看該作者

補上異常畫面

[

人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2018-10-24 05:20 | 只看該作者

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

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP