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 |
时间： 2024-08-05 04:05:23