Sql 运行时错误'-2147467259(80004005)odbc--调用失败

Sql 运行时错误'-2147467259(80004005)odbc--调用失败,sql,excel,odbc,vba,Sql,Excel,Odbc,Vba,我正在使用vba将excel 2007中的记录上载到sql2012数据库。 在过去的3个月里,我成功地使用了以下代码,但现在失败了,错误如下 运行时错误'-2147467259 80004005 odbc调用失败 我在VBA中的代码: 子可更新 将cnn作为对象 将wbkOpen设置为工作簿 Dim objfl作为变体 暗rngName As范围 设置wbkOpen=ActiveWorkbook 活动表。选择 设置rngName=RangeA1,RangeA1.EndxlToLeft.Endxl

我正在使用vba将excel 2007中的记录上载到sql2012数据库。 在过去的3个月里,我成功地使用了以下代码,但现在失败了,错误如下

运行时错误'-2147467259 80004005 odbc调用失败

我在VBA中的代码:

子可更新 将cnn作为对象 将wbkOpen设置为工作簿 Dim objfl作为变体 暗rngName As范围 设置wbkOpen=ActiveWorkbook 活动表。选择 设置rngName=RangeA1,RangeA1.EndxlToLeft.EndxlDown rngName.Name=TempRange strFileName=wbkOpen.FullName 设置cnn=CreateObjectADODB.Connection cnn.openprovider=Microsoft.ACE.OLEDB.12.0;数据源=&strFileName&;扩展属性=Excel 12.0 Xml;HDR=是; nsql=插入[odbc;驱动程序=SQL Server;服务器=dedr;Uid=pmac;Pwd=123456;数据库=dpgrt].stmt nJOIN=从[TempRange]中选择* cnn.执行nsql和nJOIN