通过oledb驱动读取excel、csv数据丢失解决方案

转载：http://www.cnblogs.com/zsy/p/6431047.html

1、问题出现

      在开发应用程序的过程中，比较常用一功能就是通过oledb驱动读取excel、csv、text等文件；而最近有客户反映，在使用短信平台（下载地址：http://www.sms1086.com/product/detail-150.html），发现出现以下问题：

    还有一种情况，excel只能导入部分，而其他的导入不进去。

    而其他excel或text文件，不会出现此类问题。但是将有问题的excel粘贴到新建的文件中，还会出现类似问题。

2、网上解答

    在博客园http://www.cnblogs.com/clare-zhang/archive/2012/05/30/2525884.html给出了解决方案：

    查询注册表，将TypeGuessRows=8 修改为 TypeGuessRows=0

    下图是Win10 64位企业版的修改位置，操作系统不通，修改地方不通；建议查询注册表，修改所有TypeGuessRows为0

    按照此方法，可解决Excel数据丢失问题。棒棒的~~~~~~~~

3、读取Text文件数据丢失

    Excel文件问题解决了，但是在读取csv、text文件，仍然出现数据丢失的问题，是什么原因引起的呢？与excel对比，不难发现，还是注册表配置的问题。

    通过查询注册表，找到Text的驱动：

    修改MaxScanRows=0即可解决问题。（路径： 计算机HKEY_LOCAL_MACHINESOFTWAREWOW6432NodeMicrosoftOffice14.0Access Connectivity EngineEnginesText）

4、TypeGuessRows详解

    要使用 Jet OLE DB 提供程序访问 Excel 工作簿，请使用具有下列语法的连接字符串：

    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:sms.xls;Extended Properties="Excel 8.0;HDR=YES;"

    在连接字符串中，用 Data Source 参数指定工作簿的完整路径和文件名。Extended Properties 参数可包含两种属性：一个属性用于 ISAM 版本，一个属性用于指示表是否包括标题。
    使用 Excel 工作簿时，默认情况下，区域中的第一行是标题行（或字段名称）。如果第一个区域不包含标题，您可以在连接字符串的扩展属性中指定 HDR=NO。如果您在连接字符串中指定 HDR=NO，Jet OLE DB 提供程序将自动为您命名字段（F1 表示第一个字段，F2 表示第二个字段，依此类推）。

    与传统的数据库不同，在 Excel 表中没有指定列的数据类型的直接方式。而是，OLE DB 提供程序通过对一列中的八行进行扫描来猜测 该字段的数据类型。您可以通过为连接字符串的扩展属性中的 MAXSCANROWS 设置指定一个一 (1) 至十六 (16) 之间的值，来更改要扫描的行数。

    而注册表中TypeGuessRows=8，默认从前8行进行扫描来猜测该字段的数据类型，设置TypeGuessRows=0表示不猜测数据类型。

5、MaxScanRows详解

    与Excel注册表参数雷同，MaxScanRows=19（16进制）表示从前25行进行扫描猜测该字段的数据类型。

    在不修改注册表的情况下，可通过以下连接字符串实现（VB代码）:

strConn = ""
strConn = strConn & "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFolder & ";"
strConn = strConn & "Extended Properties="
strConn = strConn & Chr(34)
strConn = strConn & "text;CharacterSet=UNICODE;HDR=Yes;FMT=Delimited;IMEX=1;MaxScanRows=0;"
strConn = strConn & Chr(34)
 
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0" ' this line is redundant, but it helps you read the code
    .ConnectionString = strConn
    .Properties("Jet OLEDB:Registry Path") = "SOFTWARETacticalAppsMyApp1.0"
    .Mode = adModeRead
    .Open
End With