por rramonell »
19 May 2014, 19:37
Hola amigos de ABC.COM, estoy desarrollando una aplicación con Xailer y Excel Object Model y trato de construir una udf que exporte cualquier array a una hoja de Excel 7, pero no logro que el tamaño de las celdas se ajuste al tamaño de los datos.
Lo que hago es lo siguiente:
::oExcel := CreateObject( "Excel.Application" )
::oExcel:WorkBooks:Add()
::oWorkBook := ::oExcel:Get( "ActiveWorkBook" )
::oSheet := ::oExcel:ActiveSheet()
::oSheet:Cells:getColumnDimension():setAutoSize( .T. ) esta línea no funciona, da error
::oSheet:AutoSizeColumnsMode := DataGridViewAutoSizeColumnsMode:AllCells esta línea tampoco funciona, da error
// Se le hacen títulos de columna
::oSheet:Cells:Font:Size:=13
FOR ::nField:=1 TO LEN( ::aHeaders )
::oSheet:Cells( 1, ::nField ):Value := ::aHeaders[ ::nField ]
NEXT
::oSheet:Cells:Font:Size:=11
FOR ::nLinea:=3 TO LEN( ::aData )
FOR ::nField:=1 TO LEN( ::aData[ 1 ] )
::oSheet:Cells( ::nLinea, ::nField ):Value := ::aData[ ::nLinea ][ ::nField ]
NEXT
NEXT
::oSheet:Select()
::oSheet:Cells(1,1):Select()
::oExcel:ActiveWorkBook:SaveAs( 'C:\Cursos\Curso DBF a Excel\uno.xlsx' )
Si elimino las líneas que dan error el conjunto trabaja bien, pero las celdas quedan todas del tamaño estándar de Excel 7. ¿Por favor me pueden ayudar a resolver este problema?
Raúl Olivares G.
Gracias anticipadas.
Nota: Publiqué aquí ya que no hallé donde hacerlo, y no sé como buscar una respuesta si me hacen favor de ayudarme, mi correo es meridiano85@.hotmail.com