Hot Fox: [usuarios

terça-feira, 2 de junho de 2009

[usuarios_fox] Excel

Hace unos dias preguntaban respecto de utilizar Excel desde Fox.

Les pasó el siguiente codigo que utilicé varios años.

*****************************************
* Genera planilla Desconocidas
*****************************************

close all
set safety off

select 0
use empresas
pack

SELECT razon, CUIT FROM empresas a WHERE NOT empresas.seccion17 .AND.;
NOT EXISTS (SELECT * FROM lineas b WHERE a.cuit = b.cuit) ;
into dbf Faltante ORDER BY RAZON

numero=reccount()

archivo=getdir()
if ! empty(archivo)
archivo=archivo+'desconocidas'

COPY TO (archivo) TYPE XL5
close all
oexcel=createobject('excel.application')
oexcel.application.visible=.T.
oexcel.application.workbooks.open(archivo)
oexcel.application.ActiveWorkbook.Author = "L13 Labs · Evolución C"
oexcel.application.Range("A1:I720").font.size=10
oexcel.application.Range("A1:I720").Font.Name = "Palatino Linotype"
oexcel.application.ROWS(1).INSERT
oexcel.application.ROWS(1).INSERT
oexcel.application.Range("A2").Font.Bold = .t.
oexcel.application.Range("A2:C2").Select
d="Actualizado al "+dtoc(date())+ " *** Empresas existentes de las cuales no conocemos recorridos. (X) Indica censadas "
oexcel.application.ActiveCell.FormulaR1C1 = d
oexcel.application.Selection.Merge
oexcel.application.ROWS(3).INSERT
oexcel.application.Range("A4:I4").Font.Bold = .t.
oexcel.application.columns(1).columnwidth=85
oexcel.application.columns(2).columnwidth=14
qcolor=19
FOR T =5 TO numero + 10 step 2
oexcel.application.rows(t).interior.colorindex=qcolor
ENDFOR

oexcel.application.range("a1:a425").select
oexcel.application.ROWS.EntireRow.AutoFit
oexcel.application.ROWS.VerticalAlignment=2
oexcel.application.ActiveWindow.DisplayZeros = .f.
oexcel.application.ActiveWindow.DisplayGridlines = .f.
oexcel.application.Range("A1").Select
oexcel.Application.SendKeys("+{f12}")
endif

Ruben Españon

[Se han eliminado los trozos de este mensaje que no contenían texto]