在Excel中运行VBA脚本时出现自动化错误
我在Excel 2007中运行VBA代码时收到一个自动化错误。我尝试连接到远程SQL Server数据库并将数据从Excel加载到SQL Server。
我得到的错误是，
“运行时错误”-2147217843（80040e4d）：“自动化错误”。
我检查了MSDN网站，它提示这可能是由于与sqloledb提供程序相关的错误，并且减轻这种情况的一种方法是使用ODBC。 那么我改变了连接string，以反映ODBC提供者和相关的参数，我仍然得到相同的错误。
以下是ODBC作为提供程序的代码：
Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim stSQL As String Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Public Sub loadData() 'This was set up using Microsoft ActiveX Data Components version 6.0. 'Create ADODB connection object, open connection and construct the connection string object. Set cnt = New ADODB.Connection cnt.ConnectionString = _ "Driver={SQL Server}; Server=onlineSQLServer2010.foo.com; Database=fooDB Uid=logonalready;Pwd='helpmeOB1';" cnt.Open On Error GoTo ErrorHandler 'Open Excel and run query to export data to SQL Server. strSQL = "SELECT * INTO SalesOrders FROM OPENDATASOURCE('Microsoft.ACE.OLEDB.12.0', & _ "'Data Source=C:\Database.xlsx; Extended Properties=Excel 12.0')...[SalesOrders$]" cnt.Execute (strSQL) 'Error handling. ErrorExit: 'Reclaim memory from the connection objects Set rst = Nothing Set cnt = Nothing Exit Sub ErrorHandler: MsgBox Err.Description, vbCritical Resume ErrorExit 'clean up and reclaim memory resources. cnt.Close If CBool(cnt.State And adStateOpen) Then Set rst = Nothing Set cnt = Nothing End If End Sub 从你的post（和你的）答复看来你的连接string是错误的？ 连接string可能会导致一个真正的头痛。 我知道。 试试Robert Gelb的方法： http ://www.vbrad.com/article.aspx? id= 81每次都适合我。