4

我有从指定格式的 Excel 工作表导入的代码。在其中一列中,大多数数据是数字的,但也存在非数字值。由于某种原因,导入代码会忽略非数字值。

连接字符串如下所示:

    Dim FileConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & Path & "\" & _
    Filename & ";Extended Properties=" & _
    """Excel 12.0;HDR=YES;IMEX=1;"""

实际的导入代码如下所示:

    Dim Factory As DbProviderFactory = _
    DbProviderFactories.GetFactory("System.Data.OleDb")

    Dim Adapter As DbDataAdapter = Factory.CreateDataAdapter(), _
    DataObject As New DataSet

    Using Connection As DbConnection = Factory.CreateConnection
        Connection.ConnectionString = FileConnectionString

        Using Command As DbCommand = Connection.CreateCommand

            Command.CommandText = _
            "SELECT [Column1], [Column2]" & _
            "FROM [Sheet1$]"

            Adapter.SelectCommand = Command

            Adapter.Fill(DataObject)

            ...

请注意,我已启用IMEX = 1以通知 Excel 将出现混合数据。这似乎没有帮助。知道发生了什么吗?

4

2 回答 2

3

我注意到的是引擎从列中的第一个值推断列的数据类型。

因此,如果您的第一个值是数字,引擎将假定该列为数字,并且在尝试将 alpha 值转换为数字时将失败。

我通常所做的是将下划线附加到 Excel 上的所有值,然后在 SQL 或 DataSet 上,以替换第一个下划线。希望它会有所帮助

于 2009-09-19T12:20:04.230 回答
2

默认情况下,Excel 根据前 8 行数据确定列的数据类型。要更改这一点,您需要更新注册表项:

HKLM\Software\Microsoft\Office\12.0\Access Connect Engine\Engines\Excel

与您希望 Excel 扫描的行数。将该值设置为 0 以使其扫描所有行。请注意,将其设置为零会稍微减慢 Excel 的加载速度,尤其是在大型电子表格上。

此外,如果您还使用 Excel 2003,则需要更新第二个注册表项:

HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel

于 2009-09-19T12:45:55.040 回答