exporting an excel file to a pipe delimited file

Private Function dostuff() As Boolean
        Dim pram As OleDbParameter
        Dim dr As DataRow
        Dim olecon As OleDbConnection
        Dim olecomm As OleDbCommand
        Dim olecomm1 As OleDbCommand
        Dim oleadpt As OleDbDataAdapter
        Dim ds As DataSet
        Try
            olecon = New OleDbConnection
            olecon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= F:\testing\LIVE091021\maria.xls; Extended Properties=Excel 8.0;"
 
 
            olecomm = New OleDbCommand
            olecomm.CommandText = "Select * from [Sheet1$]"
            olecomm.Connection = olecon
 
            oleadpt = New OleDbDataAdapter(olecomm)
            ds = New DataSet
            olecon.Open()
            oleadpt.Fill(ds, "Sheet1")
            If IsNothing(ds) = False Then
 
                Dim writer As New StreamWriter("F:\LIVE091021\result.ACT", False)
 
                Dim success As Boolean
                
                Dim thisTable As DataTable
                thisTable = ds.Tables(0)
                Dim row As DataRow
                For Each row In thisTable.Rows
                    Dim outputline As String
                    Dim column As DataColumn
                    For Each column In thisTable.Columns
                        Dim columnstr As String
                        If Not IsDBNull(row(column)) Then
                            columnstr = row(column).ToString
                        Else
                            columnstr = ""
                        End If
                        outputline = outputline & columnstr & delimiter
                    Next column
                    writer.WriteLine(outputline)
                    outputline = ""
                Next row
 
                writer.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            olecon.Close()
            olecon = Nothing
            olecomm = Nothing
            oleadpt = Nothing
            ds = Nothing
            dr = Nothing
            pram = Nothing
        End Try
    End Function

Select allOpen in new window