首页 > 代码库 > PB控制Excel表格

PB控制Excel表格

PB下全面控制Excel

红色部分未验证

Excel对象控制


创建Excel对象

OLEObject ExcelServer

ExcelServer = Create OLEObject

连接Excel

ExcelServer.ConnectToObject("",  "Excel.Application")

//如果Excel还没有打开,则新建。

ExcelServer.ConnectToNewObject("Excel.Application")

返回值Integer0正常,负值为错误码

断开连接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 = http://www.mamicode.com/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

ai列自动调整列宽

ExcelServer.ActiveSheet.Columns(“a:i”).AutoFit

设置四个边框线条的类型(LineStyle值:17-细实、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