más de 255 caracteres en una celda de excel

[Betina232022]

Hola a todos

Quiero juntar el contenido de varias celdas en excel, pero si la cadena se pasa de 255 caracteres la trunca, no las pone todas.

como se asigna una cadena mayor a 255 caracteres en una celda de excel?.

Gracias, saludos

[lokoman]

Hola!!
Como lo estas haciendo? Esto te debe funcionar:

xlSheet.Cells(1, 1).Value = strCadena

[Betina232022]

Gracias por contestar.

Tengo el código asi:

Set objExcel = New Excel.Application
Set wbCupon = objExcel.Workbooks.Open(Archivo)
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

[lokoman]

Probe y me sale todo bien:

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
End Sub
 

Nota: Puse una referencia a Excel 11.0. La cadena es de 287 numeros.

[Betina232022]

Ya lo cheque y la cadena string cadNFLl si tiene todos los datos y al pasarlo a la celda imprimo su valor y también lo muestra pero al abrir el archivo xls tiene solo 255 caracteres.

[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!!

[erbuson]

Hola, a mi también me funciona perfectamente, es de suponer que estás utilizando una de las últimas versiones de Excel. No se es para dar ideas y buscar explicaciones.

Saludos

pd: Tambien puedes indicar en lugar del Quit

objexcel.Visible = True que te abrirá el excel y verás el archivo

[Betina232022]

Puse la instrucción que mandaste, pero no quiero que pregunte si quiere guardar los cambios, asi que puse esta línea:
objExcel.ActiveWorkbook.Close SaveChanges:=True

Ya no pregunta, pero ya sea con tu instrucción o con la que puse no quiere asignar la cadena completa a la celda.

[lokoman]

Bajate el proyecto que hice:

http://myfreefilehosting.com/f/3d73356841_0.03MB

Prueba, le das al boton y luego abres el libro...

[Betina232022]

No puedo abrir el link que enviaste

[lokoman]

?? no te carga la pagina? que error te da? le diste a "Click Here To Download"?

[Betina232022]

no carga la página, aparece un mensaje de blocked by websense

[lokoman]

No se porque tienes bloqueo... adware? probaste la sugerencia de ersuson?

objexcel.Visible = True

[Betina232022]

Ya lo probe y al estar ejecutando el programa si asigna toda la cadena, pero al terminar y volver abrir el archivo el valor de la celda esta incompleto.

[lokoman]

Que Office tienes instalado? 2003?

[Betina232022]

el que tengo instalado es el 2007

[lokoman]

Creo que ese es el problema... el archivo de excel que abres desde vb está guardado con formato 2003? verifica...

[Betina232022]

Si asi es es formato 2003

[lokoman]

Cuando corres el proceso y abres el archivo, te sale un mensaje diciendo que está abierto y deseas reabrirlo?

[Betina232022]

No, se abre sin preguntar nada

[lokoman]

...bueno solo falta hacerlo manual haber que sale.... copia el valor de la cadena (CTRL+C) y pegalo (CTRL+V) en una celda en el libro de excel; si se truncan los datos, pues es obvio que tu excel "tiene" algo raro... si se pega completo, es entonces con la automatización que hay problemas... guarda el valor en un archivo .CSV:

Código vb:

'Esto lo pones antes del end sub
open app.path & "\libro.csv" for output as #1
    write#1, cadNFLl
close #1
 

Abre el nuevo archivo (libro.csv) con excel, a ver que trae...

[Betina232022]

Ya vi que es, es el excel, el formato en que se guarda el xls no me acepta más de 255 caracteres.

El programa lo que hace es que genera un xls a partir de un txt, atravez del formula one, pero como ese componente no deja poner más de 255 caracteres en una celda, en el txt viene trunca la cadena, llega a 255 y lo que resta lo pasa a la siguiente linea.

Entonces lo que pense fue que se generara el xls y después abrir otra vez el archivo y darle formato con un excel.application, pero no me acepta cadenas mayores a 255 caracteres

asi se escribe el archivo xls: Libro1.Write Ruta & NombreArchivo + ".xls", F1FileExcel5

Lo guarda con formato 2003, cuando lo abro no me pregunta nada y hago el formateo de las cadenas, pero al momento de guardarlo lo hace con el mismo 2003 y la cadena queda trunca

Bueno creo que eso es lo que pasa, sabes alguna otra forma para que me acepte las cadenas mayores a 255 caracteres?

[pkj]

Una idea:
Si se te muestra bien la tabla de excel al crearla, ¿no sirve si pinchas en "Guardar como..." y seleccionas un formato de excel mas moderno?
Al volver a cargarlo debería estar correcto, ¿no?

Suerte