资源描述:
《用visualfoxpro设计用excel表格的程序》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、用VisualFoxpro设计用Excel表格的程序利用OLEAutomation设计Excel应用程序Excel支持的对象说明:(a)VBA对象:对象名称意义ApplicationExcel应用程序对象WorkBooksExcel活页薄对象(b)所使用的Method对象名称Method执行意义ApplicationCells设定或传回来某个网格的内容Range传回或设定某一个范围的网格Charts传回或设定活页簿的单一统计表Quit结束ExcelApplicationSave激活存储文件对话框WorkBooksAdd新增一个工作簿ChartsA
2、dd新增一个统计图(c)所使用的Property对象名称Property设定意义ApplicationVisible是否显示在SCREEN上.T.,.F.Value传回或者设定存储文件的内容ActiveSheet回应ExcelApplication执行工作表对象实例说明:启动Excel:MyExcel=CreateObject('Excel.Application')&&建立Excel对象MyExcel.Visible=.T.&&让Excel对象再屏幕上显示出来如何增加工作簿:MyExcel.WorkBooks.Add&&在Excel对象中增加一
3、份工作簿(WorkBook)如何在工作簿中增加Sheet(工作表)MyExcel.Sheets.Add&&增加工作表(在当前工作簿中)如何删除工作表MyExcel.ActiveWorkBooks.Sheets(1).Delete&&把工作簿中的BOOK(1)删除向指定的工作簿中的工作表(Sheet)中存储数据*Excel.applicationObject*Excel.application.ActiveWorkBookProperty*WorkBOoksObject*WorkBOoksObject的AddMethod.*Sheets对象*She
4、ets(Index)对象指定索引工作表*Excel.Application对象的CellsMethod结合Value属性Example:CLEARALLSETPATHTOSYS(2004)+'SAMPLESDATE'USECUSTOMERMYEXCEL=CREATEOBJEXT('EXCEL.APPLICATION')MYEXCEL.VISIBLE=.T.MYEXCEL.WORKBOOKS.ADDMYEXCEL.ACTIVEWORKBOOK.SHEETS(1).CELLS(1,1).VALUE='客户编号'MYEXCEL.ACTIVEWORKB
5、OOK.SHEETS(1).CELLS(1,2).VALUE='公司行号'SELECTCUSTOMERR=2C=1GOTOTOPFORI=1TO20MYEXCEL.ACTIVEWORKBOOK.SHEETS(1).CELLS(R,C).VALUE=CUSTOMER.CUST_IDMYEXCEL.ACTIVEWORKBOOK.SHEETS(1).CELLS(R,C+1).VALUE=CUSTOMER.COMPANYR=R+1SKIPENDFOR调整单元格宽度:MYEXCEL.ACTIVEWORKBOOK.SHEETS(1).CELLS(1,1).c
6、olumnwidth=30调整单元格对齐方式:MYEXCEL.ACTIVEWORKBOOK.SHEETS(1).CELLS(1,1).horizontalalig=11为默认方式,2为左对齐,3为中对齐,4为右对齐。如何将数据存储:MYEXCEL.SAVE()注:可以用Save(FileName)指定预存储文件名,则可不用激活SAVEAS窗口如何打印表格:MYEXCEL.ActiveWorkBook.PrintOut&&默认打印增个Sheet如何指定打印表格:MYEXCEL.ActiveWorkBook.PrintOut(1,1,1,.T.)&&
7、默认打印增个SheetPrintOut有四个参数A.数值:,表示指定的工作簿中进行打印的Sheet的开始编号B.数值:,表示指定的工作簿中进行打印的Sheet的结束编号C.打印分数.D.是否进行Preview,.T.,预览,.F.打印如何产生统计图CURROW=MYEXCEL.ACTIVESHEET.ROWS.COUNTRANGESTRING='A1:'+'B'+ALLTRIM(STR(CURROW))MYEXCEL.RANGE(RANGESTRING).SELECTMYEXCEL.CHARTS.ADD结束EXCELMYEXCEL.QUITEXC
8、EL.ActiveWindow.SelectedSheets.PrintPreview&&预览打印EXCEL.ActiveWorkboo