osheet | Fun to say - more fun to use

Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles butImport.Click
    Dim MyFileDialog As New System.Windows.Forms.OpenFileDialog

    ' Configure the dialog to show only excel files
    ' Set its title and set the filename field blank for the moment.
    MyFileDialog.Filter = "(*.xlsx)|*.xlsx"
    MyFileDialog.Title = " Open an excel file"
    MyFileDialog.FileName = ""
    ' Show the dialog and see if the user pressed ok.

    If MyFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        ' Check to see if they selected a file and that it exists.

        If File.Exists(MyFileDialog.FileName) Then

            Dim strFile As String = MyFileDialog.FileName
            Dim textextension As String
            Dim testFile As System.IO.FileInfo
            Try
                'Setup a file stream reader to read the excel file.
                textextension = Path.GetExtension(strFile)
                If textextension = ".xlsx" Then
                    Dim oExcel As Object = CreateObject("Excel.Application")
                    Dim oBook As Object = oExcel.Workbooks.Open(strFile)
                    Dim oSheet As Object = oBook.Worksheets(1)
                    Dim i As Integer
                    Dim cellA As String
                    Dim cellB As String
                    Dim cellC As String
                    Dim cellD As String
                    Dim cellE As String
                    lstGradeLength.Items.Add("Grade (in Radians)" & vbTab & "   Length (in Miles)" & vbTab & vbTab & "Radius (in Feet)" & vbTab & vbTab & "Super-elevation (in Decimal)" & vbTab & vbTab & "Angle (in Degrees)")
                    For i = 0 To AscW(lstGradeLength.Items.Count.ToString()(i = i + 1)) - 1

                        cellA = "A" & Convert.ToString(i + 1)
                        cellB = "B" & Convert.ToString(i + 1)
                        cellC = "C" & Convert.ToString(i + 1)
                        cellD = "D" & Convert.ToString(i + 1)
                        cellE = "E" & Convert.ToString(i + 1)
                        cellA = oSheet.Range(cellA).Value
                        cellB = oSheet.Range(cellB).Value
                        cellC = oSheet.Range(cellC).Value
                        cellD = oSheet.Range(cellD).Value
                        cellE = oSheet.Range(cellE).Value
                        If cellA = "" And cellB = "" And cellC = "" And cellD = "" And cellE = "" Then
                            Exit For
                        Else
                            RichTextBox1.AppendText(cellA & " " & cellB & " " & cellC & " " & cellD & " " & cellE & vbCrLf)

                        End If
                    Next
                    oExcel.Quit()
                End If
            Catch ex As FileNotFoundException

                ' If the file was not found, tell the user.

                MessageBox.Show("File was not found. Please try again.")

            End Try

            Try
                'Setup a file stream reader to read the excel file.
                textextension = Path.GetExtension(strFile)
                If textextension = ".xlsx" Then

                    Dim m As Integer
                    For m = 1 To CInt(UBound(RichTextBox1.Lines))
                        ReDim Preserve Grade(m)
                        ReDim Preserve Length(m)
                        ReDim Preserve Radius(m)
                        ReDim Preserve Superelevation(m)
                        ReDim Preserve Angle(m)
                        Grade(m) = RichTextBox1.Lines(m - 1).Split(" ").First
                        Length(m) = RichTextBox1.Lines(m - 1).Split(" "c)(1)
                        Radius(m) = RichTextBox1.Lines(m - 1).Split(" "c)(2)
                        Superelevation(m) = RichTextBox1.Lines(m - 1).Split(" ")(3)
                        Angle(m) = RichTextBox1.Lines(m - 1).Split(" ")(4)
                        lstGradeLength.Items.Add(Grade(m) & vbTab & vbTab & vbTab & Length(m) & vbTab & vbTab & vbTab & Radius(m) & vbTab & vbTab & vbTab & Superelevation(m) & vbTab & vbTab & vbTab & Angle(m) & vbCrLf)
                        butGradeLength.Enabled = False
                    Next
                    testFile = My.Computer.FileSystem.GetFileInfo(strFile)

                    lblPath.Text = testFile.FullName

                    txtNumSections.Text = lstGradeLength.Items.Count - 1
                End If
            Catch ex As Exception
                ' If the data is in an incorrect format, tell the user.

                MessageBox.Show("Data is in incorrect format")
            End Try
            lstGradeLength.Items.Clear()
        End If
    Else
        txtNumSections.Text = ""
        butImport.Enabled = True
        butGradeLength.Enabled = True
        butClear.Enabled = True
        Exit Sub
    End If

    butImport.Enabled = False
    butCompute.Enabled = True
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    WrapperToGetRidOfExcel()
    MessageBox.Show("Done")
End Sub