使用QueryTables生成Excel資料時發生錯誤

在一個項目中使用了 QueryTables 方法生成Excel，結果在用戶端安裝Excel2003時正常，安裝Excel2007時發生錯誤，無法生成Excel。

查了下MSDN 得知，與引用的MS 元件有關系。

詳情說明：http://support.microsoft.com/kb/263498/zh-cn

下面的步驟示範了自動化 Excel 從 Visual Basic 用戶端的同時，您就可能會收到此錯誤。但是，您應注意此問題可能出現的任何用戶端的自動化 Excel 并不是特定于 Visual Basic 自動化用戶端。

在 Visual Basic 中建立一個新的 <b>标準 EXE</b> 項目。預設情況下建立 <b>Form1</b>。

向 <b>Form1</b> 添加一個 <b>指令按鈕</b> 控件。

在 <b>項目</b> 菜單上單擊 <b>引用</b>。

單擊對象庫，您的 Excel 版本。例如對于單擊下列選項之一：

選擇 Microsoft Office Excel 2007 年的 Microsoft Excel 12.0 對象庫。

選擇 Microsoft Office Excel 2003 年的 Microsoft Excel 11.0 對象庫。

對于 Microsoft Excel 2002，選擇 Microsoft Excel 10.0 對象庫。

對于 Microsoft Excel 2000 中，選擇 Microsoft Excel 9.0 對象庫。

選擇下列選項之一：

Microsoft ActiveX 資料對象 2.6

Microsoft ActiveX 資料對象 2.5

單擊 确定 以關閉 引用 對話框。

将下面的代碼添加到 <b>指令按鈕</b> 的 <b>Click</b> 事件：

<b>注</b>： 此代碼示例從生成的記錄集上 SQL Server 羅斯文資料庫。在連接配接字元串"YourServer"改為您 SQL Server 的名稱。

按 F5 鍵運作該的應用程式，然後單擊 <b>指令按鈕</b>。

結果： 嘗試添加 <b>查詢表</b> 的代碼的行生成運作時錯誤消息"5。

若要更正此錯誤，修改代碼，以使記錄集使用用戶端遊标。在代碼示例中更改以下

到：