新手求助，谁能帮我写个for循环，把excel数据全部写入access，上传有半成品附件！！

b0424111

新手求助，谁能帮我写个for循环，把excel数据全部写入access，上传有半成品附件！！

万分感谢





需要把 ，演示，演员，导演，这几个表，统一上传至access当中

abc123281

Private Sub CommandButton2_Click()
t = Timer
Dim cnn As Object, sql$
Set cnn = CreateObject("adodb.connection")
On Error GoTo errmsg
cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\2e1q.accdb"
sql = "insert into test select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"
cnn.Execute sql
MsgBox "数据已经添加到数据库！" & Chr(10) & "用时" & Timer - t & "秒", vbInformation
cnn.Close
Set cnn = Nothing
End
errmsg:
  MsgBox "数据已经添加到数据库了!" & Chr(10) & Chr(10) & "详细说明:" & Chr(10) & Err.Description, , "错误报告"
End Sub

abc123281

excel连接access上传下载第一版本.rar (41.48 KB, 下载次数: 24)

2019-7-20 14:05 上传

点击文件名下载附件

b0424111

abc123281 发表于 2019-7-20 14:05

谢谢老师，辛苦了