PB控制Excel表格

PB下全面控制Excel

红色部分未验证

Excel对象控制
创建Excel对象	OLEObject ExcelServer ExcelServer = Create OLEObject
连接Excel	ExcelServer.ConnectToObject("",  "Excel.Application") //如果Excel还没有打开，则新建。 ExcelServer.ConnectToNewObject("Excel.Application") 返回值Integer，0正常，负值为错误码
断开连接Excel	ExcelServer.DisconnectObject()
打开指定工作簿	ExcelServer.WorkBooks.Open("c:\temp\ll.xls")
添加新工作簿	ExcelServer.WorkBooks.Add
关闭工作簿	ExcelServer.WorkBooks.Close
添加新的工作表	ExcelServer.Sheets.Add
激活工作表“sheet3”	ExcelServer.ActiveWorkBook.Sheets("sheet3").Select
工作表改名	ExcelServer.ActiveSheet.Name = "课程表"
显示Excel窗口	ExcelServer.Application.Visible = True
更改Excel标题栏	ExcelServer.Caption="PB应用程序调用Microsoft Excel"
工作表另为	ExcelServer.ActiveWorkBook.SaveAs("c:\temp\22.xls")
放弃存盘	ExcelServer.ActiveWorkBook.Saved = True
退出Excel	ExcelServer.quit
单元格控制
给单元格赋值	ExcelServer.Cells(1,4).Value = XM(XM为数据库字段名)
在第2行之前插入一行	ExcelServer.ActiveSheet.Rows(2).Insert
在第2列之前插入一列	ExcelServer.ActiveSheet.Columns(2).Insert
设置指定列的宽度(单位：英文字符个数)	ExcelServer.ActiveSheet.Columns(1).ColumnWidth=5
设置指定行的高度(单位：磅) (设定行高为1厘米，1磅=0.035厘米)	ExcelServer.ActiveSheet.Rows(1).RowHeight=1/0.035
指定边框线宽度(Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；)	ExcelServer.ActiveSheet.Range("b3:d3").Borders(2).Weight=3
a到i列自动调整列宽	ExcelServer.ActiveSheet.Columns(“a:i”).AutoFit
设置四个边框线条的类型(LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)	ExcelServer.ActiveSheet.Range("b3:d3").Borders(2).LineStyle=1
合并单元格	ExcelServer.ActiveSheet.Range("A1:F1”).MergeCells  = True
拷贝整个工作表	ExcelServer.ActiveSheet.UsedRange.Copy
拷贝指定区域	ExcelServer.ActiveSheet.Range("A1:E2").Copy
粘贴	ExcelServer.WorkSheet("Sheet2").Range("A1").PasteSpecial
设置字体	ExcelServer.ActiveSheet.Cells(2,1).Font.Name="黑体"
设置字体大小	ExcelServer.ActiveSheet.Cells(1,1).Font.Size=25
设置字体为斜体	ExcelServer.ActiveSheet.Cells(1,1).Font.Italic  = True
设置整列字体为粗体	ExcelServer.ActiveSheet.Columns(1).Font.Bold  = True
设置整列水平居中	ExcelServer.ActiveSheet.Columns(1).HorizontalAlignment  = 3
设置整行字体颜色	ExcelServer.ActiveSheet.Rows(1).Font.ColorIndex  = 4
设置整行底色	ExcelServer.ActiveSheet.Rows(2).Interior.ColorIndex  = 5
设置整行单元格中的文本自动换行	ExcelServer.ActiveSheet.Row(1).WrapText =  True
清除单元格公式	ExcelServer.ActiveSheet.Cells(1,4).ClearContents
打印相关
设置页眉	ExcelServer.ActiveSheet.PageSetup.CenterHeader="报表1"
设置页脚	ExcelServer.ActiveSheet.PageSetup.CenterFooter="第＆P页"
设置页眉到顶端边距为2厘米	ExcelServer.ActiveSheet.PageSetup.HeaderMargin=2/0.035
设置页脚到底边距为3厘米	ExcelServer.ActiveSheet.PageSetup.FooterMargin=3/0.035
设置顶边距为2厘米	ExcelServer.ActiveSheet.PageSetup.TopMargin=2/0.035
设置底边距为4厘米	ExcelServer.ActiveSheet.PageSetup.BottomMargin=4/0.035
设置左边距为2厘米	ExcelServer.ActiveSheet.PageSetup.LeftMargin=2/0.035
设置右边距为2厘米	ExcelServer.ActiveSheet.PageSetup.RightMargin=2/0.035
设置页面水平居中	ExcelServer.ActiveSheet.PageSetup.CenterHorizontally  = True
设置页面垂直居中	ExcelServer.ActiveSheet.PageSetup.CenterVertically  = True
设置页面纸张大小(1－窄行8511 39－宽行1411)	ExcelServer.ActiveSheet.PageSetup.PaperSize=1
在第18行之前插入分页符	ExcelServer.Worksheets("Sheet1").Rows(18).PageBreak=1
在第4列之前删除分页符	ExcelServer.ActiveSheet.Columns(4).PageBreak=0
打印单元格网线	ExcelServer.ActiveSheet.PageSetup.PrintGridlines  = True
打印预览工作表	ExcelServer.ActiveSheet.PrintPreview
打印输出工作表	ExcelServer.ActiveSheet.PrintOut