如何用PB程序在excel画表格边框线.docVIP

如何用PB程序在excel画表格边框线，如何改变文字大小?? 1．创建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=.t.???????? 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－顶、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???????? 18．设置顶边距为2厘米???? eole.ActiveSheet.PageSetup.TopMargin=2/0.035???????? 19．设置底边距为4厘米???? eole.ActiveSheet.PageSetup.BottomMargin=4/0.035??????? 20．设置左边距为2厘米???? ????veole.ActiveSheet.PageSetup.LeftMargin=2/0.035???? 21．设置右边距为2厘米???? eole.ActiveSheet.PageSetup.RightMargin=2/0.035???????? 22．设置页面水???居中???? eole.ActiveSheet.PageSetup.CenterHorizontally=.t.??????? 23．设置页面垂直居中???? ????eole.ActiveSheet.PageSetup.CenterVertically=.t.???? 24．设置页面纸张大小(1－窄行8511???39－宽行1411)????????eole.ActiveSheet.PageSetup.PaperSize=1???????? 25．打印单元格网线???? eole.ActiveSheet.PageSetup.PrintGridlines=.t.???????? 26．拷贝整个工作表???? eole.ActiveSheet.UsedRange.Copy???????? 27．拷贝指定区域???? eole.ActiveSheet.Range(″A1:E2″).Copy???????? 28．粘贴???? eol