¿Cómo definir formato de celda en Excel desde VB 6.0?

[Nandu_ros]

Hola:

Tengo que pasar datos de un archivo de texto a EXCEL, y de aquí cogí el ejemplo que me funciona correctamente:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/188-csv-a-excel.htm

pero me surge un problema:

Me coge los campos númericos como número y no como texto.

Si hago una importación desde el EXECL, al ir definiendo los campos le puedes indicar qué tipo de formato es: texto, número, fecha, etc.

¿Sabe alguien si desde la aplicación en VB se le puede definir el tipo de formato que tendrá la columna?.

En el archivo de texto le mando campos numéricos como el código de barras, que no debe tratar como número (8,431212+E12), sino como texto.


Gracias y un saludo.

[Avellaneda]

Con la propiedad NumberFormat. Supongamos que la columna que quieres formatear es la 5:

Código:

objetoExcel.Columns(5).Select
objetoExcel.selection.NumberFormat = "#,##0.00"

Un saludo

Ah, olvidé decirte que el formato de texto en Excel es la arroba:

objetoExcel.Selection.NumberFormat = "@"

[Nandu_ros]

Muchísimas gracias. Es que por más que he buscado por Internet no he encontrado nada que hiciera referencia.

[szadek]

buenas, tengo una pregunta relacionada con esto mismo


como se hace para definir el background color, tamaño de letra, etc de una celda desde aca desde visual?

gracias d antemano

[Avellaneda]

Buenas,

Código:

 Dim oExcel As Excel.Application
    Dim oWBook As Excel.Workbook
    Dim oSheet As Excel.Worksheet

    Set oExcel = New Excel.Application  ' abrimos un Objeto Excel
    Set oWBook = oExcel.Workbooks.Add   ' le añadimos un libro
    Set oSheet = oWBook.Worksheets(1)   ' seleccionamos la Hoja1
    With oSheet.Cells(1, 1) ' seleccionamos la 1ª celda
        .Interior.ColorIndex = 41   ' Color fondo = azul
        .Font.Size = 14             ' tamaño de letra
        .Font.Bold = True           ' Fuente en negrita
        .Font.ColorIndex = 2        ' Color fuente = blanco
    End With

Te aconsejo que abras una hoja Excel y generes una macro con lo que quieres hacer y después copies el código a VB (excepto en escasas ocasiones, es igual).

Un saludo

[szadek]

Iniciado por Avellaneda

Buenas,

Código:

 Dim oExcel As Excel.Application
    Dim oWBook As Excel.Workbook
    Dim oSheet As Excel.Worksheet

    Set oExcel = New Excel.Application  ' abrimos un Objeto Excel
    Set oWBook = oExcel.Workbooks.Add   ' le añadimos un libro
    Set oSheet = oWBook.Worksheets(1)   ' seleccionamos la Hoja1
    With oSheet.Cells(1, 1) ' seleccionamos la 1ª celda
        .Interior.ColorIndex = 41   ' Color fondo = azul
        .Font.Size = 14             ' tamaño de letra
        .Font.Bold = True           ' Fuente en negrita
        .Font.ColorIndex = 2        ' Color fuente = blanco
    End With

Te aconsejo que abras una hoja Excel y generes una macro con lo que quieres hacer y después copies el código a VB (excepto en escasas ocasiones, es igual).

Un saludo

muchas gracias amigo, se te agradece

[aljequima]

hola tengo el mismo problema, pero con formato de fecha... si me pueden ayudar

Iniciado por Nandu_ros

Hola:

Tengo que pasar datos de un archivo de texto a EXCEL, y de aquí cogí el ejemplo que me funciona correctamente:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/188-csv-a-excel.htm

pero me surge un problema:

Me coge los campos númericos como número y no como texto.

Si hago una importación desde el EXECL, al ir definiendo los campos le puedes indicar qué tipo de formato es: texto, número, fecha, etc.

¿Sabe alguien si desde la aplicación en VB se le puede definir el tipo de formato que tendrá la columna?.

En el archivo de texto le mando campos numéricos como el código de barras, que no debe tratar como número (8,431212+E12), sino como texto.


Gracias y un saludo.

[Avellaneda]

Iniciado por aljequima

hola tengo el mismo problema, pero con formato de fecha... si me pueden ayudar

Hola, siguiendo con el ejemplo del mensaje #2, sería así:

objetoExcel.Columns(5).Select
objetoExcel.selection.NumberFormat = "dd/MM/yyyy"

[coldplay]

para que se rompen la cabeza tanto, teniendo la instruccion str con esta fucion tu puedes convertir los numeros a texto, y hay otra que es cint y masomenos funcionan asi

dim numeroString as string
dim numeroEntero as int

numeroString= cstr("5")
numeroEntero=cint(numerostring)

en caso de que no te funcione asi, lo que yo utilize fue concatenarle un espacio en blanco

ejemplo
hoja_act.Cells(8 + I, J + 1) = CStr("005") & " "

para que si por alguna razon el cstr no funciona, al pasarle el espacio en blanco entonces ya lo tomara como cadena de caracteres

[David]

Bienvenido, coldplay.

Aunque debo decirte que no concuerdo con la solución que propones, la pregunta no era cómo darle formato en Visual Basic, la pregunta es cómo darle formato a un dato que se encuentra en una celda de Excel, por lo que tu solución no es válida para ese caso.

De todos modos, el tema ya está resuelto.

[actuary]

Yo tengo la misma duda pero con porcentajes ..
hice esta programacion
Range("D5:D11").Select
Selection.NumberFormat = "0.00%"
pero en la celda de excel no me da un porcentaje

[jmguembe]

Me podrian decir como puedo saber el color de una celda, me refiero a capturar en una variable el color (codigo de numeros que representa un color).
Para luego mostrarlo en una celda con
range("a1").formular1c1 = variable

Y otro casilla es decirme que esta mal en este codigo

If Selection.Interior.ColorIndex = RGB(255, 255, 255) Then
Range("a8").FormulaR1C1 = "bbb"
End If

Lo que pretendo es que si la casilla esta coloreada escriba un texto en la celda a8.

Gracias

[jmguembe]

Encontre la solucion, gracias de todos modos



Sheets("sheet1").Range("a10").Select
colorin = "0"

Do
colorin = colorin + 1
If Selection.Interior.ColorIndex = colorin Then
Range("a8").FormulaR1C1 = colorin
End If
Range("a1").FormulaR1C1 = colorin
Loop While Selection.Interior.ColorIndex <> colorin