импортировать данные из Excel в datagridview с datagridview уже есть столбцы в vb.net - PullRequest
0 голосов
/ 26 июня 2018

Итак, я хочу импортировать данные из Excel в datagridview.В Datagridview уже есть столбцы, и когда я пытаюсь импортировать, данные в Excel не выстраиваются в столбцы в datagridview, вместо этого создаются новые столбцы справа.Как это решить?

Вот код:

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

     Try
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "XLS files (*.xls, *.xlt)|*.xls;*.xlt|XLSX files (*.xlsx, *.xlsm, *.xltx, *.xltm)|*.xlsx;*.xlsm;*.xltx;*.xltm"
        If OpenFileDialog.ShowDialog = System.Windows.Forms.DialogResult.OK Then
            Dim fi As New IO.FileInfo(OpenFileDialog.FileName)
            Dim filename As String = OpenFileDialog.FileName
            excel = fi.FullName
            conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excel & ";Extended Properties=Excel 12.0;")
            dta = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
            dts = New DataSet
            dta.Fill(dts, "[Sheet1$]")
            DataGridView1.DataSource = dts
            DataGridView1.DataMember = "[Sheet1$]"
            conn.Close()

        End If

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

1 Ответ

0 голосов
/ 26 июня 2018

Просто напишите эту строку в своем коде и сначала добавьте несколько столбцов для тестирования этого кода:

 DataGridView1.AutoGenerateColumns = True

это утверждение не повлияет на существующие столбцы представления данных и добавит новые столбцы в представление данных.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...