作者：绿色风
分类：
时间：2022-08-17
浏览：96
楼主
水星钓鱼 |
Q:同样是用ADO连接Excel文件，为什么会有多种格式完全不同的连接字符串？
以下假设sConStr变量是用于存放连接字符串的变量
第一种是sConStr = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & ThisWorkbook.FullName
第二种是sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
A：这是因为用ADO连接Excel文件，可以有不同的OLE DB 提供程序，而不同的OLE DB提供程序有对应的格式的连接字符串
其中第一种用的OLE DB提供程序是Microsoft OLE DB Provider for ODBC Drivers
第二种用的OLE DB提供程序是Microsoft Jet OLE DB Provider
其中Microsoft OLE DB Provider for ODBC Drivers要求的连接字符串格式是Driver名称和要连接的工作簿的路劲和文件名，即"Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & ThisWorkbook.FullName
第二种Microsoft Jet OLE DB Provider要求的连接字符串格式是Jet的版本号“Microsoft.Jet.OLEDB.4.0”，要连接的工作簿的路劲和文件名Data Source=" & ThisWorkbook.FullName，Excel的版本号Extended Properties='Excel 8.0，（8.0表示Excel2003格式的文件)
另外从Excel 2007开始，新加一个OLE DB提供程序“Microsoft.ACE.OLEDB.12.0”，所以还有一种连接字符串
sConStr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
利用Microsoft.ACE.OLEDB.12.0作为提供程序连接Excel文件还可以连接Excel 2007格式的文件，这时要将Excel版本号设置为12.0，如下所示
sConStr = sConStr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES'"
列出第一种和第二种的代码例子
第一种：- Sub xyf()
- Dim oRecrodset
- Dim sConStr As String
- Dim sSql As String
- Dim oWk As Worksheet
- Dim i As Integer
- Set oWk = ThisWorkbook.Worksheets.Add
- sConStr = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & ThisWorkbook.FullName
- sSql = "select * from [一月$]"
- Set oRecrodset = CreateObject("ADODB.Recordset")
- With oRecrodset
- .Open sSql, sConStr
- '循环导入字段名
- For i = 1 To .Fields.Count
- oWk.Cells(1, i) = .Fields(i - 1).Name
- Next
- oWk.Cells(2, 1).CopyFromRecordset oRecrodset
- End With
- Set oRecrodset = Nothing
- End Sub
第二种：- Sub xyf()
- Dim oRecrodset
- Dim sConStr As String
- Dim sSql As String
- Dim oWk As Worksheet
- Dim i As Integer
- Set oWk = ThisWorkbook.Worksheets.Add
- sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
- sSql = "select * from [一月$]"
- Set oRecrodset = CreateObject("ADODB.Recordset")
- With oRecrodset
- .Open sSql, sConStr
- '循环导入字段名
- For i = 1 To .Fields.Count
- oWk.Cells(1, i) = .Fields(i - 1).Name
- Next
- oWk.Cells(2, 1).CopyFromRecordset oRecrodset
- End With
- Set oRecrodset = Nothing
- End Sub
以上两种方法都是可行的。 |
2楼
xyf2210 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一