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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)