vExcel

vForum público de la plataforma de desarrollo Velneo

Moderador: vCoaches

Responder
Egberto
vMate
vMate
Mensajes: 68
Registrado: 21 Sep 2005, 19:45
Ubicación: Panamá

vExcel

Mensaje por Egberto » 20 Ago 2010, 13:46

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

Avatar de Usuario
DESARROLLADOR
vLeader
vLeader
Mensajes: 1504
Registrado: 17 Ago 2006, 17:49
Ubicación: Tamaulipas México
Contactar:

Mensaje por DESARROLLADOR » 20 Ago 2010, 14:58

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

Saludos

Egberto
vMate
vMate
Mensajes: 68
Registrado: 21 Sep 2005, 19:45
Ubicación: Panamá

Mensaje por Egberto » 20 Ago 2010, 23:51

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

Jonatan
vAdviser
vAdviser
Mensajes: 600
Registrado: 13 Nov 2006, 17:17
Ubicación: México
Contactar:

dibujo

Mensaje por Jonatan » 21 Ago 2010, 04:57

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
Alveus Soft
México, D.F.
http://microsip.wordpress.com/
http://twitter.com/rosper
http://www.solucionesmicrosip.com
Alveus Soft. CRM y Carrito de compra web.

Egberto
vMate
vMate
Mensajes: 68
Registrado: 21 Sep 2005, 19:45
Ubicación: Panamá

Mensaje por Egberto » 21 Ago 2010, 05:17

Gracias lo probare...

Responder