我创建的工作簿出现问题,该工作簿嵌入了VBA代码以刷新OLEDB与SQL Server的连接。这一切在使用Excel 2013的计算机上都可以正常运行,但是我有一个使用Excel 2010的用户,并且在他们的计算机上不起作用。
错误消息是:
"Run time error: '-2147417848 (80010108)': Method 'Refresh' of object 'WorkbookConnection' failed"
代码是:
With ActiveWorkbook.Connections("worksheet").OLEDBConnection
.Connection = Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=User;Password=Password;Initial Catalog=InitialTable;Data Source=ServerName;" _
, _
"Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=A1234;Use Encryption for Data=False;Tag with " _
, "column collation when possible=False")
.SavePassword = True
.CommandText = "select * from query"
ActiveWorkbook.Connections("worksheet").Refresh
End With
任何帮助或建议表示赞赏。
谢谢。