如何用pb程序在excel画表格边框线

《如何用pb程序在excel画表格边框线》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、如何用PB程序在excel岡农格边框线，如何改变文字人小1.创建Excel对象cole二CREATEOBJECT('Exccl.application')2.添加新工作溥eole.Workbooks,add3.设咒笫3个工作表为激活工作农e()le.Worksheets("sheet3").Activate4.打开指定工作筂eole.Workbooks.Open("c:templi.xls")5.显示Excel窗口eole.visible=.t.6.更改Excel枷题栏eole.Caption:'VFP应用程序调用MicrosoftExcel"7.给

2、单元格赋值eole.cells(1，4).value=XM(XM为数据库字段名)8.设置指定列的宽度(单位：字符个数)eole.ActiveSheet.Columns(1).ColumnWidth=59.设遛指定行的高度(单位：磅)cole.ActivCuShcct.Rows(1).RowHcight=1/0.035(设定行高力1屈米，1磅=0.035原米)10.在第18行之前插入分页符eole.Worksheets("Sheet1").Rovs(18).PageBreak=111.在第4列之前删除分页符eole.ActiveSheet.Columns

3、(4).PageBreak=012.指定边框线宽度(Borders参数如下)ole.ActiveSheet.Range("b3:d3").Borders(2).Weight=313.设置四个边框线条的类型eole.ActiveSheet.Range("b3:d3").Borders(2).LineStyle=l(其屮Borders参数：1—左、2—右、3—顶、4—欣、5—斜、6—斜/;LineStyle值：1与7—细实、2—细虚、4—点虚、9—双细实线)14.设置页眉eole.ActiveSheet.PageSetup.CenterHeader="报表1

4、"15.设置页脚eole.ActiveSheet.PageSetup.CenterFooter="策&P页"16.设置页眉到顶端边距为2厘米colc.ActivCuShcct.PagcSctup.HcadcrMargin=2/0.03517.设置页脚到底边距为3厘米eole.ActiveSheet.PageSetup.HooterMargin=3/0.03518.设置顶边距为2趄米eole.ActiveSheet.PageSetup.TopMargin=2/0.03519.设置底边距为4厘米eole.ActiveSheet.PageSetup.Botto

5、niMargin=4/0.03520.设置左边距为2厘米veoIe.ActiveSheet.PageSetup.LeflMargin=2/0.03521.设置右边距为2厘米colc.ActivCuShcct.PagcSctup.RightMargin=2/0.03522.设置页而水平居中eole.ActiveSheet.PageSetup.CenterHorizontally=.t.1.设置页面垂直居中eole.ActiveSheet.PageSetup.CenterVertically=.t.2.没置災而纸张人小(1一嗜行851139—觉行1411)e

6、ole.ActiveSheet.PageSetup.PaperSize=l3.打印单元格M线eole.ActiveSheet.PageSetup.PrintGridlines=.t.4.拷贝整个工作表eole.ActiveSheet.UsedRange.Copy5.拷W指定区域cole.ActivcShcct.Rangc("A1:E2").Copy6.粘贴eole.WorkSheet("Sheet2").Range("A1").PasteSpecial7.在第2行之前插入一行eole.ActiveSheet.Rows(2).Insert8.在第2列之前插

7、入一列eole.ActiveSheet.Columns(2).Insert9.设置字体eole.ActiveSheet.Cells(2,1).Font.Name="黑体〃10.设置字体大小eole.ActiveSheet.Cells(1,1).Font.Size=2511.设置字体为斜体eole.ActiveSheet.Cells(1,1).Font.Italic=.t.12.设置整列字体为粗体eole.ActiveSheet.Columns(1).Font.Bold=.t.13.淸除单元格公式eole.ActiveSheet.Cells(1,4).Cl

8、earContents14.打印预览工作表eole.ActiveSheet.Pr