Excel 提取错误的数据

Question

我想获取单元格中显示的数据（例如 AA2 00:43.6），而不是上面写的值 12:00:44 AM。 我如何在没有任何 API 等的情况下做到这一点？ 从我的 excel 2010 示例中查看此图像以获取更多信息：

这是我导入excel文件的代码

MyConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & _
                          path & "';Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";") 
'i also tried IMEX=0

dtTimes = New DataTable
Dim sqlstrTimes As String = "SELECT [RACETIME] " & "FROM [SheetH$];"
'SheetF$
Try
    Dim MyCommandHistory As New OleDb.OleDbDataAdapter(sqlstrTimes , MyConnection)
    MyCommandHistory.Fill(dtTimes )
Catch ex As Exception
    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK
            , MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Finally
    MyConnection.Close()
End Try

我在connectionstrings.com 的网站上查看了excel-2010，但没有运气。

Answer 1

你可以这样试试：

1. 设置连接字符串以读取不带标题的 excel 文件 (HDR=NO)。将为从F1 到Fn 的每一列自动生成列名。
2. 按照您目前的方式填写DataTable
3. 从DataTable 中删除第一行，因为它实际上是 excel 中的列标题名称

这样，您将从 Excel 中获取文本而不是 DateTime 值。据我了解，这是因为 excel 从第一行确定数据类型。所以有了这个hack，第一行是一个文本（标题），因此决定该列的类型是文本/字符串。

MyConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & _
                          path & "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";") 

dtTimes = New DataTable
Dim sqlstrTimes As String = "SELECT [F1] " & "FROM [SheetH$];"

Try
    Dim MyCommandHistory As New OleDb.OleDbDataAdapter(sqlstrTimes , MyConnection)
    MyCommandHistory.Fill(dtTimes)
Catch ex As Exception
    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK
            , MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Finally
    MyConnection.Close()
End Try

dtTimes.Rows[0].Delete()