Question

用VBA建立与2003版工作簿的SQL连接出错。提示“指定的初始化字符串不符合OLE DB规定。”程序如下。

错误出在AdoConn.Open strConn。请问是哪里出错？怎样改？

Sub startSQL()

Dim AdoConn As New ADODB.Connection

Dim strConn As String

Dim strSQL As String

'与Excel 2003版本连接

strConn = " Provider= Microsoft.jet.oledb.4.0; data source=C:\HLD2.xls; extended properties=""excel 8.0; hdr=yes"":"

strSQL = "select * from 工作表1”"

AdoConn.Open strConn

ActiveSheet.Range("A1").CopyFromRecordset AdoConn.Execute(strSQL)

AdoConn.Close

End Sub

Answer 1

去掉引号
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\HLD2.xls;Extended Properties=Excel 8.0;hdr=yes;

追问

不好意思，前两天上不了网。今天把双引号去掉了，还是同样问题。请问这句是改成这样吗？非常感谢。
strConn = "Provider=Microsoft.jet.oledb.4.0;data source=C:\HLD2.xls;extended properties=excel 8.0;hdr=yes;"

追答

是的，这样是没问题，我一直在用。

追问

大侠，我发现要去掉HDR=YES后才可以正常跑（见下面），但导出来没有第一行的变量名。请问怎样才能有第一行变量名？谢谢。
strConn = "Provider=Microsoft.jet.oledb.4.0;data source=" & filName & ";extended properties=excel 8.0;"

追答

系统默认的是YES，所以如果你第一行有数据的话，就要用hdr=no。这所以原来你用着有问题可能就和你第一行的数据有关系，仔细测试一下。
参数HDR的值：
HDR=Yes，这代表第一行是标题，不做为数据使用 ，如果用HDR=NO，则表示第一行不是标题，做为数据来使用。