vExcel

[Egberto]

Tengo la necesidad de exportar datos a una hoja, construir unas gráficas.
Quisiera poder cambiar el formato de las celdas, por ejemplo : Al iniciar el Excel la hoja queda con formato general en todas las columnas. En los campos numéricos funciona la función para colocar el formato, pero si tengo un campo texto con ésta información
4-10-2010 me lo convierte en formato fecha y eso no es lo que deseo, alguien me puede dar luces como solucionarlo .... gracias

[DESARROLLADOR]

Creo qeu para que no lo tome asi añade al principio ""+Tu campo fecha

Saludos

[Egberto]

Muchas gracias... Adicional se me olvidó preguntar : Puedo exportar a excel un campo dibujo ? de ser posible podrían explicarlo ... gracias

[Jonatan]

Tendrías que exportar el dibujo a disco y de ahí incrustarlo al archivo de excel con vbs, pues no creo que vExcel tenga las funciones para incrustar imágenes.
Ahora que lo pienso, hice algo así en velneo. Me costó algo de trabajo encontrar las instrucciones necesarias.

Voilà!

Las siguientes instrucciones mételas al notepad, guarda el archivo con extensión vbs, pon una imagen para que quede así: C:\DS.JPG y ejecuta el vbs. Verás que crea un archivo de excel con una imagen.
En velneo solo debes crear el archivo y listo.

Código: Seleccionar todo

strComputer = "."
strExcelPath ="C:\CAT.XLS"
On Error Resume Next
set objExcel = CreateObject("Excel.Application")
if Err.Number <> 0 then
Wscript.Echo "Excel application not installed."
Wscript.Quit
end if
On Error GoTo 0
objExcel.Workbooks.Add
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
objSheet.Name = "CATALOGO"
objSheet.Cells(1,1).Value ="C"
objSheet.Cells(1,2).Value ="Clave"
objSheet.Cells(1,3).Value ="Descripción"
objSheet.Cells(1,4).Value ="Línea"
objSheet.Cells(1,5).Value ="Precio"
objSheet.Cells(1,6).Value ="Precio2"

objSheet.Cells(2,1).Value ="12 230-255"
objSheet.Rows("2:1").RowHeight = 100
objSheet.Cells(2,2).Value ="AD"
objSheet.Rows("2:2").RowHeight = 100
objSheet.Cells(2,3).Value ="SUPERSTAR"
set objRange = objSheet.Range("C:C") 
objRange.ColumnWidth = 25
objSheet.Cells(2,4).Value ="DAMA"
set objRange = objSheet.Range("D:D") 
objRange.ColumnWidth = 20
objSheet.Cells(2,5).Value ="6"
set objRange = objSheet.Range("D:D") 
objRange.ColumnWidth = 20
objSheet.Cells(2,6).Value ="5"
objSheet.Pictures.Insert("C:\DS.JPG")
objSheet.Pictures(1).Top=100
objSheet.Pictures(1).Left=730

objExcel.ActiveWorkbook.SaveAs strExcelPath
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit

Saludos cordiales

[Egberto]

Gracias lo probare...