PB下全面控制Excel
红色部分未验证
Excel对象控制 创建Excel对象 OLEObjectExcelServer
ExcelServer=CreateOLEObject 连接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应用程序调用MicrosoftExcel" 工作表另为 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－窄行851139－宽行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
|
|
