?? 表單到exce.prg
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -