好看的悬疑犯罪电视剧:Vfp控制Excel实现快速报表的表单(源码)

此方法比用for...endfor、scan...endscan导入excel的方法要快的多。
1、先将数据导出到excel文件
2、再设置此文件的属性（标题、表头、页眉、页脚、字体、表格四周页的边距）

程序源码如下:
yesno=MESSAGEBOX("将数据输出到Excel表中，是否继续？",32+0+1,"提示信息")
if yesno=2
   return
endif

*产生要保存的文件名
wjm='产销存表'+ALLTRIM(STR(YEAR(DATE())))+IIF(LEN(ALLTRIM(STR(month(date()-28))))=1,'0'+ALLTRIM(STR(month(date()-28))),ALLTRIM(STR(month(date()-28))))
Exl_file = PUTFILE("请输入文件名,并选择回车存盘.","&wjm","XLS")
if   not EMPTY(Exl_file)
   if UPPER(RIGHT(ALLTRIM(Exl_file),4)) = ".XLS"
       OLDAREA = SELECT()
       PRIVATE OLDREC
       lcmsg="正在整理数据库数据，请稍侯…"
       WAIT lcmsg WINDOW NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg))/2

*整理数据
       SET ENGINEBEHAVIOR 80 &&或sys(3099,80)
       SELECT cxchz.dm,mc,cxchz.qcsl,cxchz.qcje,cxchz.byrksl,;
       cxchz.byrkje,cxchz.jqdj,cxchz.byxssl,cxchz.byxscb,cxchz.qmsl,cxchz.qmje ;
       from cxchz   into dbf 产销存表.dbf
       SORT on dm to ls
       USE ls EXCLUSIVE
       DELETE FOR (qcsl=0.and.byrksl=0.and.byxssl=0.and.qmsl=0).or.empty(dm).or.subs(ALLTRIM(dm),1,4)='1108'.or.subs(ALLTRIM(dm),1,4)='1109'.or.subs(ALLTRIM(dm),1,2)='12'
       pack
       COPY TO 产销存表.dbf
       USE 产销存表 EXCLUSIVE
*加入汇总项
       sum all qcsl,qcje,byrksl,byrkje,byxssl,byxscb,qmsl,qmje to s1,j1,s3,j3,s4,j4,s5,j5
       APPEND BLANK
       REPLACE qcsl with s1,qcje with j1,byrksl with s3,byrkje with j3,byxssl with s4,byxscb with j4,qmsl with s5,qmje with j5
       nCount=AFIELDS(aPrtArray) &&总字段数
       hen=RECCOUNT() &&总记录数
       GO top
       COPY TO '&Exl_file' TYPE XLS   &&生成excel文件
       SELECT (OLDAREA)
   endif
ENDIF
CLOSE DATABASES
DELETE FILE '产销存表.dbf'
DELETE FILE 'ls.dbf'
********************************以下为调用EXCEL处理文件格式

lcmsg="正在访问 Excel 软件……"
WAIT lcmsg WINDOW NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg))/2
ExcelSheet = GetObject('','Excel.Sheet')
If Type("ExcelSheet")#'O'
WAIT CLEAR
MessageBox( "访问Excel失败！请检查你的系统是否正确安装 Excel 软件！",48,"Excel不正常")
RETURN .f.
ENDIF

lcmsg="正在设置Excel，请稍侯…"
WAIT lcmsg WINDOW NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg))/2

oleapp=createobject("excel.application")
oleapp.workbooks.Open('&Exl_file') && 打开文件
oleapp.visible=.t.  
olei=oleapp.workbooks.item(1)
olei.sheets.item(1).Name = allt(str(year(date())))+'年'+allt(str(month(DATE()-28)))+'月份自产产成品产、销、存明细表'
*oleapp.activesheet.rows(1).delete
oleapp.range("A1:K1").value=''
oleapp.activesheet.rows(1).insert   &&在第一行前插入以下一行标题
OLEI.SHEETS.ITEM(1).Range("A1:K1").select
oleapp.SELECTION.MERGECELLS=.T.
with oleapp.range("A1")
   &&设置标题及字体属性
.value=allt(str(year(date())))+'年'+allt(str(month(DATE()-28)))+'月份自产产成品产、销、存明细表'
.Font.Name="黑体"
.Font.size=18
.HorizontalAlignment=3 &&设置单元格A1水平居中
endwith

oleapp.activesheet.rows(2).insert
oleapp.activesheet.rows(3).insert  
olei.sheets.item(1).cells(2,9).value='报表日期:'+ALLTRIM(STR(YEAR(DATE())))+'年'+ALLTRIM(STR(MONTH(DATE())))+'月'+ALLTRIM(STR(DAY(DATE())))+'日'

*以下制作双表头
OLEI.SHEETS.ITEM(1).Range("A3:A4").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("A3:A3").value='产品编号'

OLEI.SHEETS.ITEM(1).Range("B3:B4").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("B3:B3").value='期末结存产品名称规格'

OLEI.SHEETS.ITEM(1).Range("C3:D3").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("C3:C3").value='期初结存'
olei.activesheet.range("C4:C4").value='数量'
olei.activesheet.range("D4:D4").value='金额'

OLEI.SHEETS.ITEM(1).Range("E3:F3").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("E3:E3").value='本期产品入库'
olei.activesheet.range("E4:E4").value='数量'
olei.activesheet.range("F4:F4").value='金额'

OLEI.SHEETS.ITEM(1).Range("G3:G4").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("G3:G3").value='加权平均单价'
olei.activesheet.range("G3:G3").WrapText =.T. &&自动换行
  
OLEI.SHEETS.ITEM(1).Range("H3:I3").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("H3:H3").value='本期销售'
olei.activesheet.range("H4:H4").value='数量'
olei.activesheet.range("I4:I4").value='销售成本'

OLEI.SHEETS.ITEM(1).Range("J3:J4").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("J3:J3").value='期末数量'

OLEI.SHEETS.ITEM(1).Range("K3:K4").select
oleapp.SELECTION.MERGECELLS=.T.
olei.activesheet.range("K3:K3").value='期末结存'

OLEI.SHEETS.ITEM(1).Range("A2:A2").select

WITH oleapp.range("A3:K4") &&表头格式控制
   .font.name='黑体'
   .font.size=12
   .HorizontalAlignment=3
   .VerticalAlignment=2
endwith

HEN=HEN+4
olei.sheets.item(1).range(olei.sheets.item(1).cells(3,1), olei.sheets.item(1).cells(hen,ncount)).borders(1).linestyle = 1
olei.sheets.item(1).range(olei.sheets.item(1).cells(3,1), olei.sheets.item(1).cells(hen,ncount)).borders(2).linestyle = 1
olei.sheets.item(1).range(olei.sheets.item(1).cells(3,1), olei.sheets.item(1).cells(hen,ncount)).borders(3).linestyle = 1
olei.sheets.item(1).range(olei.sheets.item(1).cells(3,1), olei.sheets.item(1).cells(hen,ncount)).borders(4).linestyle = 1
zls='K'-ALLTRIM(STR(hen,8))
WITH oleapp.range("A1:&zls")
   .VerticalAlignment = 2 &&设置整张表打印区域文字垂直居中
ENDWITH
CSL='A'-ALLTRIM(STR(HEN,8))
JSL='B'-ALLTRIM(STR(HEN,8))
WITH oleapp.range("&csl:&jsl")
   .value=''
   .mergecells=.t.
   .value='合    计'
   .HorizontalAlignment=3
endwith
oleapp.ActiveSheet.Columns(1).ColumnWidth=11 &&设置第1列列宽
oleapp.ActiveSheet.Columns(2).ColumnWidth=29

WITH oleapp.sheets.item(1).pagesetup   &&页面设置
   .CenterFooter="第"+"&P"+"页"+"/共"+"&N"+"页" &&页脚中间
   .rightfooter="制表:松涛" &&页脚右边
   .TopMargin=0.6/0.035 &&顶边距
   .BottomMargin=1.5/0.035 &&底边距
   .LeftMargin=0.8/0.035   &&左边距
   .RightMargin=0.5/0.035   &&右边距
   .FooterMargin=0.8/0.035
   .PrintTitleRows = "$1:$4" &&设置打印的顶端标题行1-4行
   .PaperSize=9   &&设置纸张类型A4　此行示例程序中没有，请自已加上
   .Orientation = 2   &&设置纸张为横向
*   .PrintQuality = 180 &&设置打印精度
ENDWITH
oleapp.sheets.item(1).pagesetup.CenterHorizontally=.t.&&页面水平居中
*oleapp.sheets.item(1).pagesetup.CenterVertically=.t. &&页面垂直居中
olei.sheets.item(1).printpreview   &&打印预览
* =MESSAGEBOX(ALLTRIM(STR(YEAR(DATE())))+"年"+ALLTRIM(STR(MONTH(date()-28)))+"月份产销存表已生成,请检查!",0+0+0,"")
oleapp.Workbooks(1).Save()
rele oleapp