Заполните 2D-массив из набора данных, импортированного из Excel, используя данные без заголовков столбцов - PullRequest
Новая
       40

Заполните 2D-массив из набора данных, импортированного из Excel, используя данные без заголовков столбцов

0 голосов
/ 15 января 2020

Я пытаюсь заполнить массив из набора данных, импортированного из Excel, используя данные без заголовков столбцов. Мой код выглядит следующим образом: 

Dim conn As OleDbConnection
Dim dta As OleDbDataAdapter
Dim dts As DataSet
Dim excel As String

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Try

        Dim OpenFileDialog As New OpenFileDialog
        With OpenFileDialog
            .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            .Filter = "All Files (*.*) | *.*"

            If .ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
                Dim fi As New IO.FileInfo(.FileName)
                Dim FileName As String = .FileName
                excel = fi.FullName
                Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excel & ";Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"""
                conn = New OleDbConnection(connString)
                dta = New OleDbDataAdapter("Select * from [Sheet1$]", conn)
                dts = New DataSet
                dta.Fill(dts, "[Sheet1$]")
                Dim arrCol0 As Double() = (From myRow In dts.Tables(0).AsEnumerable
                                           Select myRow.Field(Of Double)("[A]")).ToArray
                conn.Close()
            End If
        End With

    Catch ex As Exception
        MsgBox(ex.Message)
        conn.Close()
        Exit Sub
    End Try
End Sub

[A] в «Выбрать myRow.Field (Of Double) (« [A] »)» представляется обязательным. Есть ли способ исключить заголовок столбца?

1 Ответ

0 голосов
/ 15 января 2020

Вы должны создать массив на основе количества столбцов и строк в DataTable, а затем пройти через DataTable и массив по индексу столбцов и индексам строк, например, 

Dim arr(table.Columns.Count - 1, table.Rows.Count - 1) As Double

For columnIndex = 0 To arr.GetUpperBound(0)
    For rowIndex = 0 To arr.GetUpperBound(1)
        arr(columnIndex, rowIndex) = CDbl(table.Rows(rowIndex)(columnIndex))
    Next
Next
...