Хорошо, я наконец-то заставил этот код работать после нескольких часов труда:
Dim path As String = OpenFileDialog1.FileName
Dim myDataset As New DataSet()
Dim strConn = New OleDbConnection("Provider=Microsoft.ACE.Oledb.12.0;Data Source=" & path & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1""")
Dim myData As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
myData.Fill(myDataset)
DataGridView1.DataSource = myDataset.Tables(0).DefaultView
Теперь, когда я понял, что собираюсь попытаться разместить данные в определенном месте.В моем приложении у меня есть сетка данных с 4 столбцами.То, что я хотел бы сделать, это поместить столбец A файла Excel под 1-й столбец таблицы данных, а столбец C файла Excel во второй столбец таблицы данных.
Заменить:
DataGridView1.DataSource = myDataset.Tables(0).DefaultView
с:
DataGridView1.columns(0) = myDataset.Tables(0).columns(0)
DataGridView1.columns(1) = myDataset.Tables(0).columns(2)
Очевидно, что это не работает, и что-то подсказывает мне, что мне может понадобиться цикл for для импорта данных, но я никогда раньше не импортировал информацию из файла Excel и не делал егохуже того, я никогда не работал с datagridview, поэтому я понятия не имею, как это сделать.
Я бы хотел сделать что-то подобное, если бы мог:
For x = 1 To xldoc.rows.length - 1
DataGridView1.Item(0, x).Value = CType(xlDoc.Cells(0, x + 1), Excel.Range).Text
Next