PB对excel的操作
更新时间:2024-01-11 00:22:01 阅读量: 教育文库 文档下载
- pb导出excel推荐度:
- 相关推荐
Pb中对Excel文件的应用
Oleobject ole_object//建立OLE对象 ole_object=create oleobject//创建对象 integer li_ret
li_ret=ole_object.connecttoobject( \建立连接 if li_ret <> 0 then
//如果Excel还没有打开,则新建。
li_ret=ole_object.ConnectToNewObject( \ if li_ret <> 0 then
messagebox( \错误 \无法连接!错误号: \ return end if
ole_object.Visible=true end if
pointer oldpointer//设置鼠标 oldpointer=setpointer(HourGlass!)
ole_object.Workbooks.Add//新建工作薄
ole_object.Application.DisplayAlerts=False//关闭警告消息对话框,防止提示
ole_object.Application.Workbooks.Open(as_exccccccccccccccccccccccccccccccccccel_filename)//打开Excel文件
//ole_object.Application.ActiveWorkbook.SaveAs(as_text_filename,-4158)//把打开的Excel文件另存为
//Text文件,第二参数表示数据以制表符TAB分隔 ole_object.Application.Quit()//退出Excel
ole_object.activeworkbook.saved=true//放弃存盘 ole_object.workbooks.close//关闭工作簿 ole_object.Cells(1,1).Value=reptitle ole_object.Range( 'A1 ').Select ole_object.Selection.Font.Size=24
ole_object.selection.HorizontalAlignment=3//水平对齐方式: ole_object.Range( 'A1: '+f_columname(ll_colnum)+ '1 ').Select ole_object.Range( 'A1: '+f_columname(ll_colnum)+ '1 ').Merge ole_object.Columns(i).ColumnWidth=ld_width ole_object.Columns(i).HorizontalAlignment=3 ole_object.Columns(i).Borders.LineStyle=1 ole_object.Columns(i).Font.Bold=True ole_object.cells(i,j).NumberFormat= \ ole_object.cells(i,j).Font.Bold=false ole_object.cells(i,j).value=ls_value
OLE_MyExcel.ActiveWorkbook.Activesheet.UsedRange.Rows.Count Sheets.Add 基本操作:
Ole_object.Workbooks.add//新建一个Excel文件
Ole_object.Workbooks.Open( \打开一个已存在Excel文件
Ole_object.ActiveWorkBook.Sheets( \选择文件中一个工作表 Ole_object.Application.Run( \运行宏 Ole_object.Application.Visible=TRUE//Excel文件可见
Ole_object.Application.ScreenUpdating=true//设置可见属性 ②格式设置
Ole_object.ActiveSheet.Columns( \列宽自动调整 Ole_object.ActiveSheet.Columns( \列宽 Ole_object.ActiveSheet.Rows( \行高 Ole_object.Application.StandardFont= \设置字体 Ole_object.Application.StandardFontSize= \设置字号 Ole_object.ActiveSheet.Font.Size= \设置字号 Ole_object.ActiveSheet.Font.Bold=True//粗体 Ole_object.ActiveSheet.Font.Italic=True//斜体
Ole_object.ActiveSheet.Font.Underline=True//下划线 Ole_object.ActiveSheet.Font.StrikeThrough=True//删除线
Ole_object.ActiveSheet.HorizontalAlignment=3//水平:4靠右;3居中;2靠左 Ole_object.ActiveSheet.VerticalAlignment=2//垂直:3靠下;2居中;1靠上 Ole_object.ActiveSheet.cells(2,1).font.name=?黑体?//设置字体 Ole_object.ActiveSheet.cells(2,1).font.size=25//设置字体大小 ③工作区域操作:
Ole_object.ActiveSheet.Range( \设置一个工作区域内的属性值 Ole_object.ActiveSheet.Range( \合并单元格
Ole_object.ActiveSheet.Range( \自动换行禁止
Ole_object.ActiveSheet.Range( \\左边界;2右边界;3上边界;4下边界;5左上倾斜;6右上倾斜 (以上为对单元格的操作)7左边界;8上边界;9下边界;10右边界;11内部垂直边界;12内部水平边界(以上为对区域的操作)//i_val:0无边 界线;然后1,2,3。。。依次边界线加粗
Ole_object.ActiveSheet.Range( \与7—细实、2—细虚、4—点虚、9—双细实线 ④赋值操作
Ole_object.ActiveSheet.range( \姓名” Ole_object.ActiveSheet.range( \
Ole_object.ActiveSheet.range( \-01-01”
Ole_object.ActiveSheet.Range( \年龄”//区域内一个单元格的赋值 Ole_object.ActiveSheet.Range( \-9]:RC[-1])” ⑤打印属性设置
Ole_object.ActiveSheet.pagesetup.LeftHeader= \
Ole_object.ActiveSheet.pagesetup.CenterHeader= \设置页眉 Ole_object.ActiveSheet.pagesetup.RightHeader= \ Ole_object.ActiveSheet.pagesetup.LeftFooter= \
Ole_object.ActiveSheet.pagesetup.CenterFooter= \设置页脚 Ole_object.ActiveSheet.pagesetup.RightFooter= \
Ole_object.ActiveSheet.pagesetup.LeftMargin=0//设置左边距 Ole_object.ActiveSheet.pagesetup.RightMargin=0//设置右边距
Ole_object.ActiveSheet.pagesetup.TopMargin=2/0.035//设置顶边距为2厘米 Ole_object.ActiveSheet.pagesetup.BottomMargin=0//设置底边距
Ole_object.ActiveSheet.pagesetup.HeaderMargin=2/0.035//设置页眉到顶端边距2厘米 Ole_object.ActiveSheet.pagesetup.FooterMargin=3/0.035//设置页脚到底边距为3厘米 Ole_object.ActiveSheet.pagesetup.PrintHeadings=False
Ole_object.ActiveSheet.pagesetup.PrintGridlines=False//设置打印单元格网线 Ole_object.ActiveSheet.pagesetup.PrintQuality=600
Ole_object.ActiveSheet.pagesetup.CenterHorizontally=True//设置页面水平居中 Ole_object.ActiveSheet.pagesetup.CenterVertically=True//设置页面垂直居中 Ole_object.ActiveSheet.pagesetup.Orientation=2//打印方向1垂直;2水平 Ole_object.ActiveSheet.pagesetup.Draft=False
Ole_object.ActiveSheet.pagesetup.PaperSize=9//8-A3;9-A4//设置纸张大小
Ole_object.ActiveSheet.pagesetup.Order=1//打印次序:1先上下再左右2先左右再上下 Ole_object.ActiveSheet.pagesetup.FitToPagesWide=1//缩放在一页中:0否;1是 Ole_object.ActiveSheet.usedrange.copy//拷贝整个工作表
Ole_object.ActiveSheet.cells(1,4).clearcontents//清除单元格公式 Ole_object.ActiveSheet.printpreview//打印预览工作表 Ole_object.ActiveSheet.printout//打印输出工作表
Ole_object.ActiveSheet..range(“a1:e3”).copy//拷贝指定区域 Ole_object.worksheet(“sheet2”).range(“a1”).pastespecial//粘贴 Ole_object.ActiveSheet.rows(2).insert//在第2行之前插入一行 Ole_object.ActiveSheet.colunms(2).insert//在第2列之前插入一列ole_object.Application.DisplayAlerts=False //关闭警告消息对话框,防止提示 ole_object.activeworkbook.sheets.Add//新增工作表
ole_object.worksheets( \设活动工作表 ole_object.worksheets( \删除指定工作表 ole_object.caption= \修改标题
ole_object.visible=true//显示Excel窗口
ole_object.activeworkbook.saveas( 'C:\\adm.xls ')
ole_object.activesheet.columns(1).columnwidth=5//设置指定列的宽度(单位:字符个数) ole_object.activesheet.rows(1).rowheight=1/0.035//设置指定行的高度(单位:磅,设定行高为1厘米,1磅=0.035厘米)
ole_object.worksheets(?sheel1?).rows(18).pagebreak=1//在每18行之前插入分页符ole_object.activesheet.columns(4).pagebreak=0//在第4列之前删除分页符 ole_object.cells(1,1).value=1//给单元格赋值 ole_object.cells(2,1).value=2
ole_object.cells(4,5).value= '=sum(a1,a2) '
ole_object.Range( 'a1:z6555 ').locked=false//单元格保护锁定
ole_object.Range( 'a1:z6555 ').FormulaHidden=true//单元格公式隐藏
ole_object.Application.ActiveSheet.Protect( '12345 ',true,true,true)//对活动单元格进行保护 ole_object.Application.Activeworkbook.Protect( '12345 ',true,true)//对活动工作簿进行保护 ole_object.Application.ActiveSheet.unProtect( '12345 ')//取消对活动单元格进行保护 ole_object.Range( 'A1:c1 ').Select//选取范围 ole_object.Range( 'A1:d4 ').Merge//合并单元格
ole_object.Selection.Font.Size=24
ole_object.Columns(1).Font.Bold=True
ole_object.selection.HorizontalAlignment=3//水平 ole_object.Columns(1).ColumnWidth=10//设置列宽
ole_object.Range( 'a1:d4 ').borders().weight=4//设置边框线宽 ole_object.Range( 'a1:d4 ').borders().linestyle=1//设置边框样式 ole_object.ActiveSheet.name= \
ole_object.workSheet( 'sheet2 ').name= \修改当前工作表名称 ole_object.activeworkbook.ActiveSheet.name= \ //ole_object.Application.Quit()
ole_object.disconnectobject()//取消连接 destroyole_object//删除对象
//导出成excel时,如‘001‘可先设置对应单元格格式,再导出到对应单元格 Ole_object.range(?a1:z99?).cells(4,5).NumberFormatLocal = \Ole_object.range(?a1:z99?).cells(4,5).values = ?001?
正在阅读:
PB对excel的操作01-11
水稳砂砾设计说明-基层08-15
幼儿园大班拼音教案单韵母aoe04-27
读《小橘灯》有感06-20
《五花山》教学设计课件精心总结06-23
2018年浙江财经大学信息学院891统计学之概率论与数理统计教程考研冲刺狂背五套题05-09
原发性醛固酮增多症功能诊断试验可靠性分析-第三军医大学学报05-07
2018年高中化学复习专练第四章 非金属及其化合物 4-4-1a基础小题快练11-29
生命密码1-9号人物性格案例分析05-20
QZZN行测出题小组_常识整理全部打印版04-12
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 操作
- excel
- 浙江省防雷检测考试大纲答案第二部分 - 图文
- 造价工程师应具有的职业道德及行为规范浅论
- 国际私法综合测评
- 结构主义 解构主义
- 安全文化示范企业汇报材料
- 张窝小学开展“办好人民满意的教育”大讨论方案2012.12
- 说课稿与试讲的区别
- 河北省建设行政处罚文书
- 数据结构选择题复习
- 广东省揭阳市惠来县第一中学2017 - 2018学年高一政治上学期期末质检考试试题
- 江西省赣州市四校协作体17—18学年下学期高二期中考试物理试题(附答案).doc$862464
- 2014无锡事业单位考试试题:公共基础知识(二十三)
- 开题报告1
- 电子税务局网上领购发票操作手册 - 图文
- SAPBAPI函数使用及示例
- 初中物理组卷(电学易错题) - 图文
- 2014年第一季度院感工作情况通报
- 大数据在智慧城市发展中的作用与应用
- 大机调车作业指导书 - 图文
- 实验室间比对报告书