VFP 愛用者社區

[Ruey]

PROCEDURE tranword
THISFORM.COUNT=THISFORM.COUNT+1
CUR1=THISFORM.W_CURSOR
CUR2=THISFORM.DFTCUR
IF !EMPTY(THISFORM.W_CURSOR)
SELECT &CUR1
thisform.colnam=.F.
ELSE
SELECT &CUR2
* thisform.colnam=.T.
ENDIF

t1='abcdefghijklmnopqrstuvwxyz'
tt=t1
if thisform.colcnt<=26
t2=substr(t1,thisform.colcnt,1)
else
t2="a"+substr(t1,thisform.colcnt-26,1)
endif
rcc=recc()
sheet=createobject("excel.sheet.5")
IF UPPER(sheet.Name)="OBJECT"
lHasExcel97 = .T.
sheet = sheet.Sheets[1]
ELSE
lHasExcel97 = .F.
ENDIF
*if THISFORM.COUNT<=1
* thisform.hd=createobject("excel.sheet.5")
*endif

*IF UPPER(thisform.hd.Name)="OBJECT"
* lHasExcel97 = .T.
* sheet = thisform.hd.Sheets[1]
*ELSE
* sheet = thisform.hd
* lHasExcel97 = .F.
*ENDIF
*if thisform.count>1
* if lHasExcel97 = .T.
* sheet =thisform.hd. Sheets.Add()
* else
* sheet =thisform.hd.application. Sheets.Add()
* endif
*endif
if thisform.pcodecol<>0
t3=substr(t1,thisform.pcodecol,1)
ran=t3+':'+t3 &&t3+"3:"+t3+alltrim(str(rcc+2))
sheet.range(ran).select &&ChartObjects(1).select
sheet.range(ran).NumberFormat="@"
endif
for i=1 to 30
if type("thisform.format(i)")="N"
t=.t.
else
t=.f.
endif
if !empty(thisform.format(i)) or t
if i<=26
t=substr(tt,i,1)+alltrim(str(thisform.titcount+4))+':'+substr(tt,i,1)+alltrim(str(rcc+thisform.titcount+3))
else
t="a"+substr(tt,i-26,1)+alltrim(str(thisform.titcount+4))+':a'+substr(tt,i-26,1)+alltrim(str(rcc+thisform.titcount+3))
endif
do case
case thisform.format(i)=0
sheet.range(t).NumberFormat ="#,##0_);(#,##0)" &&"_-* #,##0.0_-;-* #,##0.0_-;_-* "+"-"+"??_-;_-@_-"
case thisform.format(i)=1
sheet.range(t).NumberFormat ="#,##0.0_);(#,##0.0)" &&"_-* #,##0.0_-;-* #,##0.0_-;_-* "+"-"+"??_-;_-@_-"
case thisform.format(i)=2
sheet.range(t).NumberFormat = "#,##0.00_);(#,##0.00)" &&"_-* #,##0.00_-;-* #,##0.00_-;_-* -??_-;_-@_-"
case thisform.format(i)=3
sheet.range(t).NumberFormat ="#,##0.000_);(#,##0.000)" &&"_-* #,##0.000_-;-* #,##0.000_-;_-* "+"-"+"??_-;_-@_-"
case thisform.format(i)=4
sheet.range(t).NumberFormat ="#,##0.0000_);(#,##0.0000)" &&"_-* #,##0.000_-;-* #,##0.000_-;_-* "+"-"+"??_-;_-@_-"
endcase
endif
endfor

sheet.application.columns("a:a").select
sheet.application.selection.columnwidth=thisform.colwid1 &&15
sheet.application.columns("b:b").select
sheet.application.selection.columnwidth=thisform.colwid2 &&7
sheet.application.columns("c:c").select
sheet.application.selection.columnwidth=thisform.colwid3 &&10
sheet.application.columns("d:d").select
sheet.application.selection.columnwidth=thisform.colwid4 &&10
sheet.application.columns("e:e").select
sheet.application.selection.columnwidth=thisform.colwid5 &&10
sheet.application.columns("f:f").select
sheet.application.selection.columnwidth=thisform.colwid6 &&10
sheet.application.columns("g:g").select
sheet.application.selection.columnwidth=thisform.colwid7 &&10
sheet.application.columns("h:h").select
sheet.application.selection.columnwidth=thisform.colwid8 &&7
sheet.application.columns("i:i").select
sheet.application.selection.columnwidth=thisform.colwid9 &&10
sheet.application.columns("j:j").select
sheet.application.selection.columnwidth=thisform.colwid10 &&10
sheet.application.columns("k:k").select
sheet.application.selection.columnwidth=thisform.colwid11 &&10
sheet.application.columns("l:l").select
sheet.application.selection.columnwidth=thisform.colwid12 &&7
sheet.application.columns("m:m").select
sheet.application.selection.columnwidth=thisform.colwid13 &&10
sheet.application.columns("n:n").select
sheet.application.selection.columnwidth=thisform.colwid14 &&10
sheet.application.columns("o").select
sheet.application.selection.columnwidth=thisform.colwid15 &&7

sheet.application.columns("p:p").select
sheet.application.selection.columnwidth=thisform.colwid16 &&15
sheet.application.columns("q:q").select
sheet.application.selection.columnwidth=thisform.colwid17 &&7
sheet.application.columns("r:r").select
sheet.application.selection.columnwidth=thisform.colwid18 &&10
sheet.application.columns("s:s").select
sheet.application.selection.columnwidth=thisform.colwid19 &&10
sheet.application.columns("t:t").select
sheet.application.selection.columnwidth=thisform.colwid20 &&10
sheet.application.columns("u:u").select
sheet.application.selection.columnwidth=thisform.colwid21 &&10
sheet.application.columns("v:v").select
sheet.application.selection.columnwidth=thisform.colwid22 &&10
sheet.application.columns("w:w").select
sheet.application.selection.columnwidth=thisform.colwid23 &&7
sheet.application.columns("x").select
sheet.application.selection.columnwidth=thisform.colwid24 &&10
sheet.application.columns("y:y").select
sheet.application.selection.columnwidth=thisform.colwid25 &&10

sheet.application.columns("z:z").select
sheet.application.selection.columnwidth=thisform.colwid26 &&10
sheet.application.columns("aa:aa").select
sheet.application.selection.columnwidth=thisform.colwid27 &&10
sheet.application.columns("ab:ab").select
sheet.application.selection.columnwidth=thisform.colwid28 &&10
sheet.application.columns("ac:ac").select
sheet.application.selection.columnwidth=thisform.colwid29 &&7
sheet.application.columns("ad:ad").select
sheet.application.selection.columnwidth=thisform.colwid30 &&10
sheet.application.visible=.t.

sheet.cells(1,2).value=space((80-len(alltrim(thisform.company)))/2)+alltrim(thisform.company)+space(30)
sheet.cells(2,2).value=space((80-len(alltrim(thisform.title)))/2)+alltrim(thisform.title)+space(10)
for i=1 to thisform.titcount
sheet.cells(i+2,1).value=thisform.tit(i)
endfor
for i=1 to thisform.colcnt
t1="thisform.col"+alltrim(str(i))
sheet.cells(thisform.titcount+3,i).value=&t1
endfor
GO TOP
for i=thisform.titcount+4 to rcc+thisform.titcount+3
for j=1 to thisform.colcnt
if thisform.colnam=.T.
t1=fld(j)
else
t1=field(j)
endif
if !empty(&t1)
IF type("thisform.format(j)")<>"N" and type("&t1")="C" and &t1<>"'"
tt="'"+&t1
else
tt=&t1
ENDIF
sheet.cells(i,j).value=tt
endif
endfor
skip
endfor
go top

for i=1 to thisform.tailcount
sheet.cells(rcc+thisform.titcount+3+i,1).value=thisform.tail(i)
endfor

ran="A1:"+t2+alltrim(str(rcc+thisform.titcount+3+thisform.tailcount))
sheet.range(ran).select &&ChartObjects(1).select
sheet.range(ran).Font.Name = "細明體"
*sheet.range(ran).NumberFormat="@"
sheet.range(ran).copy
*if THISFORM.COUNT<=1
* thisform.wd=crea("word.basic")
* thisform.wd.appshow
* thisform.wd.appmaximize
*endif
wd=crea("word.basic")
wd.appshow
wd.appmaximize
wd.filenewdefault
*thisform.wd.filenewdefault
*wd.FormatParagraph("-2.81 公分",)
wd.editpaste()
wd.editselectall
wd.font("細明體")
wd.FontSize(11)
*thisform.wd.editpaste()
*thisform.wd.editselectall
*thisform.wd.font("細明體")
*thisform.wd.FontSize(11)
=MESSAGEBOX(" 輸出完畢!",64," 信 息 示 窗")
ENDPROC