Click here to Skip to main content
15,893,508 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
The Below Code i have used to Export for CSV Format
VB
<  Dim FileFullPath As String = System.IO.Path.GetFullPath(psPhysicalFileName)
        Dim FileExtension As String = System.IO.Path.GetExtension(FileFullPath)

        ' Determine the original file name.
        ' When the download window opens, show the original file name in the File Name textbox.
        Dim OriginalFileName As String = System.IO.Path.GetFileName(psOriginalFileName)

        Dim FileType As String = String.Empty
        Dim FileContentType As String = String.Empty

        Try
            If Not IsDBNull(FileExtension) Then
                FileType = LCase(FileExtension)

                ' Determine the content type based on the file extension.
                Select Case FileType
                    Case ".html"
                        FileContentType = "text/HTML"
                    Case ".gif"
                        FileContentType = "image/GIF"
                    Case "jpeg"
                        FileContentType = "image/JPEG"
                    Case ".txt"
                        FileContentType = "text/plain"
                    Case ".csv"
                        FileContentType = "text/csv"
                End Select
            End If

            ' The dialog should show the original file name.
            If (forceDownload) Then
                Response.AppendHeader("content-disposition", _
                                      "attachment; filename=" & OriginalFileName)
            End If

            ' Sent the content type so that browser will know how to handle the file.
            If FileType <> String.Empty Then
                Response.ContentType = FileContentType
            End If


            ' Initiate the download
            Response.WriteFile(FileFullPath.ToString())

            ' Show the link to all the user to download the file if necessary.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "You have downloaded the file " & OriginalFileName

            End If

            Response.End()

        Catch oEx As Exception

            ' Show the error message if needed.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "Error downloading the file " & OriginalFileName
            End If

        Finally
            ' Clean up objects
        End Try
>


In one cell,i get output like
"Left Message – VM" Instead of "Left Message - VM"
Thanks in Advance
Posted
Updated 29-Aug-12 23:05pm
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900