Saludos.
Creo un objeto
oREPORTE:=TOleAuto():New("Excel.Application")
oREPORTE:WorkBooks:Add()
oBook:=oREPORTE:Get("ActiveWorkBook")
oSheet:=oREPORTE:Get("ActiveSheet" )
voy formando mi cadena de texto para en su momento con el portapapeles pegar
oClip:=TClipBoard():New()
oClip:Clear()
oClip:SetText(cTxtXls)
oRange:=oSheet:Range(cRangoXls)
oRange:Select()
oSheet:Paste()
oClip:End()
con
oRange:Set("HorizontalAlignment",xlHAlignCenterAcrossSelection) // valor de 7
le indico al rango que lo centre
MI DUDA:
- que valor debo darle al rango para que la alineación sea a la izquierda y a la derecha?
- como doy formato de fecha y de numero al rango?
Esto lo tome de la clase TSbrowse 9.0
Gracias.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
