Multiline in a Excel Cell, When exporting data from datatable to Excel

[Cimperiali]

***EDIT**** Moved from vb Net Forum

I am not able to see the two colums you're concatenating
in any case:
you're making it with tabs... try with a table, it might suite you a bit better.
Ie: in an App_code Class

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Text
Public Class DtToExcel

    Public Shared Function GenerateReport(ByVal dt As DataTable, ByVal Sv As System.Web.HttpServerUtility) As String

        Dim sb As New StringBuilder()
        sb.AppendLine("<table><tr>")

        For Each dc As DataColumn In dt.Columns
            sb.AppendLine("<td>" + Sv.HtmlEncode(dc.ColumnName) + "</td>")

        Next
        sb.AppendLine("</tr>")

        For Each dr As DataRow In dt.Rows

            sb.AppendLine("<tr>")
            For Each dc As DataColumn In dt.Columns

                If dr(dc) IsNot Nothing AndAlso dr(dc) IsNot DBNull.Value Then
                    sb.AppendLine("<td>" + Sv.HtmlEncode(dr(dc).ToString()) & "</td>")
                Else

                    sb.AppendLine("<td></td>")
                End If
            Next
            sb.AppendLine("</tr>")

        Next


        sb.AppendLine("</table>")
        Return sb.ToString()

    End Function

End Class

in a web form

 Private Sub showReport()
        '

        Response.AddHeader("Content-Disposition", "attachment;filename=Report_" & Now.Ticks & ".xls")
        Response.Buffer = True
        Response.Charset = String.Empty
        Response.ContentType = "application/vnd.ms-excel"

        'a method that give me back the datatable I need here
       'you should get your own dt...
        Dim dt As System.Data.DataTable = Manager.GetDt("Customers")

        Response.Write(DtToExcel.GenerateReport(dt, Server))
        Response.Flush()
        Response.End()

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        showReport()
    End Sub