【EXCEL】EXCELVBASQLUPDATE：操作必须使⽤⼀个可
更新的查询
Public Sub UpdateDataBySQL(sFile As String, strSQL As String)
Dim cnn As New ADODB.Connection
Dim strCn  As String '声明链接字符串，设置ADODB的参数
Set cnn = New ADODB.Connection  '初始化ADODB链接
cnn.CursorLocation = adUseClient '设置ADODB链接参数
cnn.Mode = adModeReadWritesql中update什么意思
strCn = "Provider=Microsoft.ace.Oledb.12.0;" _
& "Extended Properties='Excel 12.0;HDR=YES;IMEX=1';" _
& "Data Source=" & sFile
cnn.Open (strCn) '打开ADODB链接，即将Excel⽂件作为数据库链接打开
cnn.Execute (strSQL)
cnn.Close
Set cnn = Nothing
End Sub
执⾏时报“操作必须使⽤⼀个可更新的查询”
在⽹上查相关情况，
1、IMEX=1  改成 IMEX=2  2是读写      试验⽆效
2、修改  ⼯具-⽂件夹选项-⽂件夹简单共享 勾去掉    XLS属性everyone权限  试验⽆效
3、UPDATE 语句错误也会报这个错    确实存在这种情况，update语句有问题时也报了这个。
想想会不会HDR=YES;IMEX=1还有其他限制，删除HDR=YES;IMEX=1⼀试，OK了。原理不清楚。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。