ole操作excel参考

2024-04-13 07:18
文章标签 excel 操作 参考 ole

本文主要是介绍ole操作excel参考,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!



ole操作excel参考

分类: powerbuilder 153人阅读 评论(0) 收藏 举报

1、对象的创建与关闭  *******************************
eole=CREATEOBJECT('Excel.application')                   && 创建Excel对象
eole.Workbooks.add                                       && 添加新工作簿
eole.Worksheets("sheet3").Activate                       && 设置第3个工作表为激活工作表
eole.Workbooks.Open("D:\ABC\11.xls")                     && 打开指定工作簿
eole.visible=.t.                                         && 显示Excel窗口
eole.visible=.F.                                         && 不显示Excel窗口
eole.Caption="VFP应用程序调用Microsoft Excel"             && 更改Excel标题栏
eole.ActiveWorkbook.SaveAs("D:\ABC\22.xls")              && 工作表另为
eole.ActiveWorkbook.saved=.t.                            && 放弃存盘

eole.ActiveSheet.UsedRange.Copy                          && 拷贝整个工作表
eole.ActiveSheet.Range("A1:E2").Copy                     && 拷贝指定区域
eole.WorkSheet("Sheet2").Range("A1").PasteSpecial        && 粘贴

eole.ActiveWorkbook.Save                                 && 存盘(自动存盘不提问)
eole.Workbooks.close                                     && 关闭工作簿
eole.quit                                                && 退出Excel


2、单元格的设置  ***********************************
eole.ActiveSheet.Columns("D:D").Delete                   && 删除列
eole.ActiveSheet.Columns("A:B").Delete                   && 删除列
eole.ActiveSheet.Columns(1).ColumnWidth=20               && 列的宽度(单位:字符个数)
eole.ActiveSheet.Columns(2).ColumnWidth=30
eole.ActiveSheet.Columns("C:BE").ColumnWidth=9.5
eole.Selection.Columns.AutoFit                           && 最适合的列宽

eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3      && 指定边框线宽度
                          (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;
                               LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)

eole.ActiveSheet.Range("A1:BE29").Borders(1).LineStyle=1 && 设置四个边框线条的类型
eole.ActiveSheet.Range("A1:BE29").Borders(2).LineStyle=1 && 设置四个边框线条的类型
eole.ActiveSheet.Range("A1:BE29").Borders(3).LineStyle=1 && 设置四个边框线条的类型
eole.ActiveSheet.Range("A1:BE29").Borders(4).LineStyle=1 && 设置四个边框线条的类型

eole.ActiveSheet.Rows(1).Insert                          && 在第1行之前插入一行
eole.ActiveSheet.Columns(2).Insert                       && 在第2列之前插入一列
eole.cells(1,2).value="ABTMC"                            && 给单元格赋值
eole.cells(2,2).value="&BBBB"                            && 给单元格赋值
eole.ActiveSheet.Cells(1,4).ClearContents                && 清除单元格公式

eole.ActiveSheet.Rows(1).RowHeight=1/0.035               && 设置指定行的高度(单位:磅)
                                                         *(行高为1厘米,1磅=0.035厘米)
eole.ActiveSheet.ROWS(1).Font.Name="黑体"                && 设置字体
eole.ActiveSheet.ROWS(1).Font.Size=14                    && 设置字体大小
eole.ActiveSheet.ROWS(1).Font.Bold=.t.                   && 设置整行字体为粗体
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.              && 设置字体为斜体
eole.Range("A3:BE3").select
eole.selection.WrapText = .T.                            && 自动换行
eole.selection.HorizontalAlignment=3                     && 水平方向 2左对齐,3居中,4右对齐
eole.selection.VerticalAlignment = 2                     && 垂直方向 1靠上 ,2居中,3靠下

eole.Range("A2:B2").select
eole.selection.MergeCells = .T.                          && 合并单元
eole.selection.HorizontalAlignment=2                     && 水平方向 2左对齐,3居中,4右对齐
eole.selection.VerticalAlignment = 2                     && 垂直方向 1靠上 ,2居中,3靠下

eole.Range("A5:M5").select
eole.Selection.Interior.ColorIndex = 34                  && 设置行颜色为[淡兰]

eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal = ;
"_ * #,##0.00_ ; _ * -#,##0.00_ ;_ * "+"-"+"??_ ;_ @_ "  && 指定区域内的数字显示格式

3、打印页面的设置  *********************************
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035          && 设置页眉到顶端边距为2厘米  
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035          && 设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.TopMargin=4/0.035             && 设置顶边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035          && 设置底边距为4厘米
eole.ActiveSheet.PageSetup.LeftMargin=2/0.035            && 设置左边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035           && 设置右边距为2厘米
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.        && 设置页面水平居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.          && 设置页面垂直居中
eole.ActiveSheet.PageSetup.PaperSize=8                   && 设置页面纸张大小
                                                           (1-窄行8 5 11 39-宽行14 11)
eole.ActiveSheet.PageSetup.Orientation=2                 && 横向
eole.ActiveSheet.PageSetup.PrintTitleRows="$1:$3"        && 定义固定行
eole.ActiveSheet.PageSetup.PrintTitleColumns="$A:$C"     && 定义固定列
eole.ActiveSheet.PageSetup.CenterHeader= "&14&BTMC"      && 设置页眉
eole.ActiveSheet.PageSetup.CenterFooter="表__第&P页"      && 设置页脚

eole.Worksheets("Sheet1").Rows(18).PageBreak=1           && 在第18行之前插入分页符
eole.ActiveSheet.Columns(4).PageBreak=0                  && 在第4列之前删除分页符
eole.ActiveSheet.PageSetup.PrintGridlines=.t.            && 打印单元格网线

eole.ActiveSheet.PrintPreview                            && 打印预览工作表
eole.ActiveSheet.PrintOut                                && 打印输出工作表


4、记录条数的利用  *********************************
一般来讲,EXCEL表的来源为DBF文件,列、行应该是可以预知的
USE 111
COUNT TO AAA
USE
FWQ  = "A3:M"+ALLT(STR(AAA+?))  ?为EXCEL表插入的行数
eole.ActiveSheet.Range(FWQ).Borders(1).LineStyle=1       && 设置四个边框线条的类型
eole.ActiveSheet.Range(FWQ).Borders(2).LineStyle=1       && 设置四个边框线条的类型
eole.ActiveSheet.Range(FWQ).Borders(3).LineStyle=1       && 设置四个边框线条的类型
eole.ActiveSheet.Range(FWQ).Borders(4).LineStyle=1       && 设置四个边框线条的类型


5、VFP下直接调用EXCEL、WORD文件  *********************************
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ;
                        STRING lpszFile, STRING, STRING, INTEGER
operate= "open"
ShellExecute(0,operate,"C:\111.XLS",0,0,1)               && EXCEL文件
ShellExecute(0,operate,"C:\111.DOC",0,0,1)               && WORD文件

****************************************

这篇关于ole操作excel参考的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/899477

相关文章

C# WinForms存储过程操作数据库的实例讲解

《C#WinForms存储过程操作数据库的实例讲解》:本文主要介绍C#WinForms存储过程操作数据库的实例,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录一、存储过程基础二、C# 调用流程1. 数据库连接配置2. 执行存储过程(增删改)3. 查询数据三、事务处

Java使用Curator进行ZooKeeper操作的详细教程

《Java使用Curator进行ZooKeeper操作的详细教程》ApacheCurator是一个基于ZooKeeper的Java客户端库,它极大地简化了使用ZooKeeper的开发工作,在分布式系统... 目录1、简述2、核心功能2.1 CuratorFramework2.2 Recipes3、示例实践3

Java利用JSONPath操作JSON数据的技术指南

《Java利用JSONPath操作JSON数据的技术指南》JSONPath是一种强大的工具,用于查询和操作JSON数据,类似于SQL的语法,它为处理复杂的JSON数据结构提供了简单且高效... 目录1、简述2、什么是 jsONPath?3、Java 示例3.1 基本查询3.2 过滤查询3.3 递归搜索3.4

java中使用POI生成Excel并导出过程

《java中使用POI生成Excel并导出过程》:本文主要介绍java中使用POI生成Excel并导出过程,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录需求说明及实现方式需求完成通用代码版本1版本2结果展示type参数为atype参数为b总结注:本文章中代码均为

利用Python开发Markdown表格结构转换为Excel工具

《利用Python开发Markdown表格结构转换为Excel工具》在数据管理和文档编写过程中,我们经常使用Markdown来记录表格数据,但它没有Excel使用方便,所以本文将使用Python编写一... 目录1.完整代码2. 项目概述3. 代码解析3.1 依赖库3.2 GUI 设计3.3 解析 Mark

Python使用DrissionPage中ChromiumPage进行自动化网页操作

《Python使用DrissionPage中ChromiumPage进行自动化网页操作》DrissionPage作为一款轻量级且功能强大的浏览器自动化库,为开发者提供了丰富的功能支持,本文将使用Dri... 目录前言一、ChromiumPage基础操作1.初始化Drission 和 ChromiumPage

利用Go语言开发文件操作工具轻松处理所有文件

《利用Go语言开发文件操作工具轻松处理所有文件》在后端开发中,文件操作是一个非常常见但又容易出错的场景,本文小编要向大家介绍一个强大的Go语言文件操作工具库,它能帮你轻松处理各种文件操作场景... 目录为什么需要这个工具?核心功能详解1. 文件/目录存javascript在性检查2. 批量创建目录3. 文件

Redis中管道操作pipeline的实现

《Redis中管道操作pipeline的实现》RedisPipeline是一种优化客户端与服务器通信的技术,通过批量发送和接收命令减少网络往返次数,提高命令执行效率,本文就来介绍一下Redis中管道操... 目录什么是pipeline场景一:我要向Redis新增大批量的数据分批处理事务( MULTI/EXE

使用Python高效获取网络数据的操作指南

《使用Python高效获取网络数据的操作指南》网络爬虫是一种自动化程序,用于访问和提取网站上的数据,Python是进行网络爬虫开发的理想语言,拥有丰富的库和工具,使得编写和维护爬虫变得简单高效,本文将... 目录网络爬虫的基本概念常用库介绍安装库Requests和BeautifulSoup爬虫开发发送请求解

Oracle存储过程里操作BLOB的字节数据的办法

《Oracle存储过程里操作BLOB的字节数据的办法》该篇文章介绍了如何在Oracle存储过程中操作BLOB的字节数据,作者研究了如何获取BLOB的字节长度、如何使用DBMS_LOB包进行BLOB操作... 目录一、缘由二、办法2.1 基本操作2.2 DBMS_LOB包2.3 字节级操作与RAW数据类型2.