Как поместить разрывы строк внутри ячейки при экспорте в Excel файл

Question

Я экспорт данных в файл Excel, создавая простую структуру HTML в VBScript, как это:

Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "Content-Disposition", "attachment; filename=excelTime.xls" 
response.write "<table>" 
response.write "<tr>" 
response.write "<td>User Name</td>" 
... 

Некоторые ячейки данных содержат несколько значений, разделенных запятой. У меня есть требование, чтобы писать такие значения в отдельной строке каждого, но в пределах одной и той же клетке, без запятых, как это:

Подобно тому, как если бы я поставил Alt + Enter в Excel после каждого значения. Я пытаюсь использовать VBscript Заменить() функцию, чтобы заменить запятые с разрывами строк, например:

Response.write "<td>" & Replace(Value, ",", " <br/> ") & "</td>" 

Но это разбивает ячейку на несколько ячеек вместо:

Как achive желаемый результат здесь? Я пробовал разные варианты, но ничего не помогло:

Replace(Value, ",", " vbCrLf ") 'does not put a line break 
Replace(Value, ",", " CHAR(13) ") 'puts the "CHAR(13)" text between values 
Replace(Value, ",", " \\n ") 'puts the "\\n" text between values 
Replace(Value, ",", " \n ") 'puts the "\n" text between values 
Replace(Value, ",", " \r ") 'puts the "\n" text between values 

Возможно, вы знаете какой-либо другой способ сделать это?

Answer 1

Уже понял это. Вместо "<br/>" вы должны просто использовать:

Response.write "<td>" & Replace(Value, ",", " <br style='mso-data-placement:same-cell;' /> ") & "</td>"