作者:乔山办公网日期:
返回目录:excel表格制作
lcFileName='c:\Book1.xls'oExcel=Createobject('Excel.application')oExcel.Workbooks.Open((lcFileName)) &&打开文件百oExcel.Visible=.T.oExcel.Worksheets.Add(oExcel.Sheets(1)) && 在第1个Sheet之前新建一个 Sheet*注重度 oExcel.Sheets(1) 暗示第版1个 Sheet,并不必然名称为权 Sheet1 的。
powerbuild 新建excel 文件 百
创建 Excel对象 eole=CREATEOBJECT(′Excel.application′)
添加新工作度簿 eole.Workbooks.add
打开指定工版作簿 eole.Workbooks.Open(″c:/temp/ll.xls″)
计算excel文件已经有几个权sheet了 i=eole.Workbooks.Sheets.count
PB中操作Excel的技巧集
eole=CREATEOBJECT("Excel.application")
2.添加新工作簿
eole.Workbooks.add
3.设置第3个工作表为激活工作表
eole.Worksheets("sheet3").Activate
4.打开指定工作簿
eole.Workbooks.Open("c:\temp\ll.xls")
5.显示Excel窗口
eole.visible=True
6.更改Excel标题栏
eole.Caption=″VFP应用程序调用Microsoft Excel″
7.给单元格赋值
eole.cells(1,4).value=XM(XM为数据库字段名)
8.设置指定列的宽度(单位:字符个数)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9.设置指定行的高度(单位:磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035 (设定行高为1厘米,1磅=0.035厘米)
10.在第18行之前插入分页符
eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1
11.在第4列之前删除分页符
eole.ActiveSheet.Columns(4).PageBreak=0
12.指定边框线宽度(Borders参数如下)
ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
13.设置四个边框线条的类型
eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1
(其中Borders参数:1-左、2-右、3-顶636f7079e79fa5e98193336、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)
14.设置页眉
eole.ActiveSheet.PageSetup.CenterHeader=″报表1″
15.设置页脚
eole.ActiveSheet.PageSetup.CenterFooter=″第&P页″
16.设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17.设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
德国智库百ZEW的经济学家2月19日表示,2月份德国分析师和投资者信心大幅上升的两大主要原因是:对于欧元区危机最坏时期可能已经过去的乐观情绪以及国内的低利率。经济学家还表示,受访者预期欧元兑美元只会温和升值,不担心汇率度战
德国智库ZEW的经济学家2月19日表示,2月份德国分析师和投资者信心大幅上升的两内大主要原因是:对于欧元区危机最坏时期可能已经过去的乐观情绪以及国内的低利率。经济学家还表示,受访者预期欧元兑美容元只会温和升值,不担心汇率战