如何从 vb.net 读取具有 2 种数据类型的 excel 列

Question

我有一个问题： 在我的 excel 上，我有一列包含整数和字符串。我需要阅读该列并用我拥有的任何内容填充数据表。

excel 看起来像这样：

Ndedocumento

2.147.483.647,
959.224,
949.143,
530.949,

第一个为字符串，下一个为整数。

我的申请返回：

Ndedocumento

null,
959.224,
949.143,
530.949,

我试图发布图片以便您可以清楚地看到它，但我不允许。它让我摆脱了数字之间的输入:(

您知道读取所有值的任何方法吗？因为通过这种方式，我什么都没有得到价值，所以我无法格式化它或任何让我捕捉到价值的东西。

这是我读取 excel 的代码：

    conexion_te.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ruta_archivo + "; Extended Properties=Excel 12.0 Xml;HDR=YES;"

    Dim cmd As New OleDb.OleDbCommand
    Dim da As New OleDb.OleDbDataAdapter
    Dim dtExt As New DataTable

    cmd.CommandText = "Select * FROM [" + Me.Combo_Tabla_Hoja.SelectedItem + "]"
    cmd.Connection = conexion_te
    da.SelectCommand = cmd
    da.Fill(dtExt)

Answer 1

我很想放弃使用 ACE 驱动程序从 Excel 中读取数据，而是使用 EPPlus，如 Tim Schmelter 的回答 here 中所述。他的第一行从 2 或 1 开始，你应该从 3 或 2 开始。

这是他的代码的 VB 版本：

    Public Shared Function GetDataTableFromExcel(path As String, Optional hasHeader As Boolean = True) As DataTable
        Using pck = New OfficeOpenXml.ExcelPackage()

            Using stream = File.OpenRead(path)
                pck.Load(stream)
            End Using


            Dim ws = pck.Workbook.Worksheets.First()
            Dim tbl = New DataTable();

            For Each firstRowCell In ws.Cells(1, 1, 1, ws.Dimension.End.Column)
                tbl.Columns.Add(If(hasHeader, firstRowCell.Text, String.Format("Column {0}", firstRowCell.Start.Column)))
            Next

            Dim startRow = If(hasHeader, 3, 2)

            For rowNum = startRow To ws.Dimension.End.Row Step 1
                Dim wsRow = ws.Cells(rowNum, 1, rowNum, ws.Dimension.End.Column)
                Dim row = tbl.Rows.Add()
                For Each cell In wsRow

                    row(cell.Start.Column - 1) = cell.Text
                Next cell
            Next rowNum

            Return tbl
        End Using

    End Function

我认为我已经正确翻译了它，但是如果它对您来说很奇怪，请使用调试器对其进行单步调试并查看原因。这将返回一个数据表，其中所有列都是字符串类型，这应该意味着您的数据得到了很好的表示。之后可以对其进行转换和格式化