VBasic -> Excel formato celdas

[aavg]

Estoy haciendo una exportacion desde mi base de datos access a formato de excel, el problema viene cuando mi registro contiene valores como "001", "005", etc, al asignarselos a las celdas de excel me los pone numericos solamente "1", "5", lo cual afecta en mis ordenamientos.

Alguien sabe como asignarles el formato de Texto a una celda en excel desde Visual Basic???

Gracias por sus respuestas


Inserto un pedazo de mi funcion:

----------------------------------------------------------------

Código:

Set XlsApl = New Excel.Application
    With XlsApl
        .Workbooks.Add
        Set xlsLibro = .ActiveWorkbook
        
        With xlsLibro.Worksheets(1)
            .Activate          
            
            For X = 1 To RstInfoEmp.RecordCount
                For Y = 1 To RstInfoEmp.Fields.Count
                     'AQUI ASIGNO EL DATO DE MI RECORDSET A LA CELDA
                     'AQUI IRIA LA ASIGNACION DEL FORMATO A LA CELDA
                     'EL PROBLEMA... ¿COMO SE HACE? JEJE  
                    .Cells(X + 1, Y) = RstInfoEmp.Fields(Y - 1).Value
                Next Y
                RstInfoEmp.MoveNext
            Next X
        End With
        .Visible = False
    End With
    If RstInfoEmp.State = 1 Then RstInfoEmp.Close
    
xlsLibro.SaveAs (ADE)
xlsLibro.Close (ADE)
Set xlsLibro = Nothing
Set XlsApl = Nothing

[GeoAvila]

selecciona las celdas y les pones el formado que deseas para ellas.. y el formato quedará para siempre en esas celdas..

nos vemos..

[aavg]

El problema no es seleccionarlas, el problema es con que propiedad les asigno ese formato ????

[GeoAvila]

.Cells(X + 1, Y) = Format4(RstInfoEmp.Fields(Y - 1).Value,"0000")

intenta así..

nos vemos..

[aavg]

No funcionó, la cuestion aqui es que mi dato en el recordset ya tiene ese formato: "0001", "0002", "0354", "0065"... etc pero si la celda no tiene formato tipo texto, al recibir el dato lo convierte a número, porque por default esa propiedad tienen las hojas de excel, se que si abro el documento de excel selecciono las celdas y les aplico formato de texto pero ya me perdio los 0's que tenian los numeros y la cuestion es que se debe de poder por medio de programacion.

Es decir el problema es la celda recipiente.

Seguimos buscando.

Gracias por la ayuda, si alguien lo encuentra .. fenomenal, creo que esto ya me tiene un poco loco jaja que no encuentro la forma de.

[GeoAvila]

ok pasa el valor a una variable de texto para que deje como texto el número..

nos vemos..

[aavg]

No funciona

[GeoAvila]

la ultima upcion es que pases el valor a CSTR es lo último que te podría decir..

nos vemos..

[aavg]

no tampoco funciono es que el problema no esta en el formato del origen sino en el formato del destino, las celdas de excel por default tiene formato General el cual convierte textos que tienen ceros antes como "0002" en un numero "2", mas bien es una propiedad que afecte directamente a la celda y le cambie ese formato General que Excel le da por el formato Texto. Solo que no encuentro ningun lugar donde me de propiedades del objeto excel application.

De cualquier forma gracias

[miper]

prueba con esto:
Selection.NumberFormat = "@"

(donde selection es la celda en cuestión)

después envía los datos a dicha celda.

salu2

[rimtzg]

Porque no pruebas dejandolo asi y cuando lo abras con vb solo se los agregas
bye

[bubilo]

trata de madar el dato con comillas asi excel crea que es texto asi
" ' " & RstInfoEmp.Fields(Y - 1).Value & " ' "