Gracias por tu ayuda Avellaneda.
Pero el problema es que, aunque yo introduzco el texto a través de un textbox multilinea, luego lo guardo en un campo de la bd, y para pasarlo a excel el dato lo tengo en un recordset.
Al final lo he solucionado de la siguiente forma:
Código:
For i = 1 To Len(RegNota.Fields(0).Value)
If Mid(RegNota.Fields(0).Value, i, 1) = vbCr Then
contLin = contLin + 1
End If
Next i
contLin = contLin + 1
ExcelHoja.Cells(ultima + 5, 2) = RegNota.Fields(0)
ExcelApp.Range("B" & ultima + 5, "I" & ultima + 5).MergeCells = True
ExcelHoja.Rows(ultima + 5 & ":" & ultima + 5).RowHeight = 12.75 * contLin
--Saludos y Gracias--