I want to import Data from Column A to Column H and from Row 14 to the end ..
the code for open excel file and import data from Specific Cells to Textbox and DateTimePicker below ..
Dim SourceBookPath As String = Nothing
Me.OpenFileDialog1.Filter = "Excel files (*.xls,*.xlsx)|*.xls;*.xlsx"
Me.OpenFileDialog1.ShowDialog()
If Not Me.OpenFileDialog1.FileName Is Nothing Then
SourceBookPath = Me.OpenFileDialog1.FileName
End If
Dim MsExcel = CreateObject("Excel.Application")
Dim ExcelBook = MsExcel.Workbooks.Open(SourceBookPath)
Try
TextBox1.Text = MsExcel.Cells(6, 2).Value
TextBox2.Text = MsExcel.Cells(6, 4).Value
DateTimePicker1.Text = MsExcel.Cells(6, 6).Value
TextBox4.Text = MsExcel.Cells(6, 8).Value
TextBox5.Text = MsExcel.Cells(8, 2).Value
DateTimePicker2.Text = MsExcel.Cells(8, 4).Value
TextBox7.Text = MsExcel.Cells(8, 6).Value
TextBox8.Text = MsExcel.Cells(8, 8).Value
DateTimePicker3.Text = MsExcel.Cells(11, 2).Value
ExcelBook.Close(False)
ExcelBook = Nothing
MsExcel.Quit()
MsExcel = Nothing
MsgBox("Data Importing OK!", MsgBoxStyle.Information)
Catch ex As Exception
ExcelBook.Close(False)
ExcelBook = Nothing
MsExcel.Quit()
MsExcel = Nothing
MsgBox(ex.Message)
End Try
I just want the code for importing data to DataGridView and must be compatible with the code above..
Thanks a lot .