Excel 2007 - 1004运行时错误刷新查询表

Question

看来，此错误非常普遍，以至于许多现有解决方案都会解决不同的问题。

在我来说，我已经创建了在Excel 2010工作和在Excel 2007

这里不起作用是代码的摘要宏：

cn = "ODBC;Driver={SQL Server Native Client 10.0};Server=serverName;Database=dbName;Trusted_Connection=yes;" 
sql = "select top 10 * from tableName" 

Dim S As Worksheet 
Set S = ActiveWorkbook.Sheets("Medical") 

With S.QueryTables.Add(Connection:=cn, Destination:=S.Range("B1")) 

     .CommandText = sql 
     .Refresh BackgroundQuery:=False 

    End With 

此代码完全执行在Excel中2010，但在Excel 2007中出错。

我是否需要更改2007年的连接字符串结构，还是存在另一个工作问题？

Answer 1

解决方案：

我用用Excel 2010中的所有机器都有的 “SQL Server Native Client的10.0” 作为ODBC数据源可能的驱动程序。 Excel 2007的机器只有“SQL Server”。

我改变了我的连接字符串是：

cn = "ODBC;Driver=SQL Server;Server=serverName;Database=dbName;Trusted_Connection=yes;" 

和它的工作就像一个魅力。

感谢那些回复。

Answer 2

更改属性.Refresh BackgroundQuery:=False为.Refresh。在这方面，从2007年到2010年没有任何变化，所以如果更改属性并不能解决问题，那么还有其他问题正在发生，例如部分工作簿已损坏。

Answer 3

从宏调用存储过程时，我遇到同样的问题。在搜索互联网寻找解决方案之后浪费了一整天的时间，我终于找到了解决方案。

我用SET NOCOUNT ON;

它的工作！

Answer 4

无法添加评论，所以这是为了解决上面提出的问题。

这个答案为我节省了很多时间。在这个

MSFT文档： https://docs.microsoft.com/en-us/sql/t-sql/statements/set-nocount-transact-sql

下面是一个实现。

create proc yourSproc 

as 

set nocount on; 

begin 

    --Contents of sproc 

end