insert into插入数据到其他工作簿中提示“不能更新，数据库或对象为只读”如何解决？

zhang880113

insert into插入数据到其他工作簿中提示“不能更新，数据库或对象为只读”如何解决？

zhang880113

顶一下，求帮忙！

chxw68

zhang880113 发表于 2017-7-8 18:28
顶一下，求帮忙！

上传有关附件方便大家帮你解决。

zhang880113

chxw68 发表于 2017-7-8 19:57
上传有关附件方便大家帮你解决。

数据 - 副本.rar (116.96 KB, 下载次数: 23)

2017-7-8 20:04 上传

点击文件名下载附件

老师你好，帮忙看下，谢谢!

zhang880113

chxw68 发表于 2017-7-8 19:57
上传有关附件方便大家帮你解决。

Sub 从工作表中向工作表插入纪录()
    Dim cnn As Object, rs As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;imex=0';Data Source=" & ThisWorkbook.Path & "\数据库.xlsx"
    SQL = "INSERT INTO [Sheet1$] SELECT 序号,姓名,cdate(CDbl(cdate(日期))) as 日期 FROM [Excel 12.0;Database=" _
        & ThisWorkbook.FullName & ";].[Sheet1$" & Range("A1").CurrentRegion.Address(0, 0) & "]"
    Set rs = cnn.Execute(SQL)
    MsgBox "数据已录入到数据库。", vbInformation
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub
在网上找了段代码和我要的是一样的原理，但是我这不能用。不知道是什么情况。

chxw68

1. Sub 插入数据()
   
2.   Set Cnn1 = CreateObject("ADODB.connection")
   
3.   Cnn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';Data Source=" & ThisWorkbook.Path & "\数据库.xlsx"
   
4.   SQL = "insert into [数据$] select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[统计表-设计$a3:k1000]"
   
5.   Cnn1.Execute SQL
   
6.   Cnn1.Close
   
7.   Set Cnn1 = Nothing
   
8. End Sub
   

复制代码

chxw68

详见附件。

LMY123

insert into

补充内容 (2018-10-28 08:52):
跨薄

happy_109

chxw68 发表于 2017-7-8 20:45
详见附件。

大侠，请教下，如果把EXCEL数据批量导入到ORACLE数据库，同样的代码，我修改了连接字符串，为什么就不行呢，提示表名不存在？