más de 255 caracteres en una celda de excel

[lokoman]

Ya está!!
Intenta asi:

Código vb:

Private Sub cmd_Click()
    Set objexcel = New Excel.Application
    Set wbCupon = objexcel.Workbooks.Open("D:\Me\Down\New\Exe\Libro1.xls")
    j = 1
    
    With objexcel.ActiveSheet
        stxt = .Cells(j, 1)
        Do While stxt <> ""
            cadNFLl = cadNFLl & .Cells(j, 1).Value
            j = j + 1
            stxt = .Cells(j, 1)
        Loop
        .Cells(j, 1).Value = cadNFLl
    End With
    objexcel.Quit
End Sub
 

Te saldrá un cuadro preguntando si quieres guardar los cambios, dile que si y ya!!