表单到exce.prg

田径运动会管理系统RAR 用VFP编写

if used()
set message to "正在创建电子表格对象..."
public kuandu
cMyoex="\临时文件"+sys(3)
oex1=createobject("excel.application")
oex1.visible=.t.
linshioex=sys(2023)+cmyoex+".xls"
set message to "正在设置结果目录..."
copy to &linshioex type xls
set message to "正在拷贝数据..."
oex1.workbooks.open(linshioex)
set message to "正在设置Excel标题栏..."
oex1.caption="学生成绩统计—"+"滦南县"
set message to "正在检测打印机..."
if aprinters(ceshiprinter)>=1
set message to "正在设置页面..."
	oex1.activesheet.pagesetup.papersize=9
	oex1.activesheet.pagesetup.orientation=2
	oex1.activesheet.pagesetup.centerhorizontally=.t.
	oex1.activesheet.pagesetup.printgridlines=.f.
endif
release ceshiprinter
Returnabc=retuabc(fcount())
set message to "正在检测列名称..."
kuandu=Returnabc+alltrim(str(reccount()+1))
hbkuandu=Returnabc+"1"
zuida=returnabc+alltrim(str(reccount()+2))

oex1.range("a1:&kuandu").borders.linestyle=1
oex1.range("a2:&kuandu").borders.weight=2
oex1.activesheet.rows(1).insert
set message to "正在设置报表标题、字体、字号、居中..."
oex1.cells(1,1).value="单击此处输入标题"
oex1.activesheet.cells(1,1).horizontalalignment=3
oex1.activesheet.rows(1).font.size=24
oex1.activesheet.range("a1:&hbkuandu").merge
bl=1
&&set message to "正在设置居中对齐..."
&&for bl=1 to reccount()+2
&&oex1.activesheet.rows(bl).verticalalignment=2
&&oex1.activesheet.rows(bl).horizontalalignment=3
&&endfor

set message to "正在释放变量..."
release kuandu
set message to ""
endif

&&将数字转换成两位字母
PROCEDURE retuabc()
LPARAMETERS nNumber
nNumber1=CEILING(nNumber/26)+63
IF nNumber1>64
 cABCD=CHR(nNumber1)
ELSE
 cABCD=""
ENDIF
nASC=MOD(nNumber,26)
IF nASC=0
   nASC=26
ENDIF
cABC=cABCD+CHR(64+nASC)
RETURN cABC
ENDPROC