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

相关文章

如何使用 Python 读取 Excel 数据

《如何使用Python读取Excel数据》:本文主要介绍使用Python读取Excel数据的详细教程,通过pandas和openpyxl,你可以轻松读取Excel文件,并进行各种数据处理操... 目录使用 python 读取 Excel 数据的详细教程1. 安装必要的依赖2. 读取 Excel 文件3. 读

Python ZIP文件操作技巧详解

《PythonZIP文件操作技巧详解》在数据处理和系统开发中,ZIP文件操作是开发者必须掌握的核心技能,Python标准库提供的zipfile模块以简洁的API和跨平台特性,成为处理ZIP文件的首选... 目录一、ZIP文件操作基础三板斧1.1 创建压缩包1.2 解压操作1.3 文件遍历与信息获取二、进阶技

Java中字符串转时间与时间转字符串的操作详解

《Java中字符串转时间与时间转字符串的操作详解》Java的java.time包提供了强大的日期和时间处理功能,通过DateTimeFormatter可以轻松地在日期时间对象和字符串之间进行转换,下面... 目录一、字符串转时间(一)使用预定义格式(二)自定义格式二、时间转字符串(一)使用预定义格式(二)自

C#实现将Excel表格转换为图片(JPG/ PNG)

《C#实现将Excel表格转换为图片(JPG/PNG)》Excel表格可能会因为不同设备或字体缺失等问题,导致格式错乱或数据显示异常,转换为图片后,能确保数据的排版等保持一致,下面我们看看如何使用C... 目录通过C# 转换Excel工作表到图片通过C# 转换指定单元格区域到图片知识扩展C# 将 Excel

Java字符串操作技巧之语法、示例与应用场景分析

《Java字符串操作技巧之语法、示例与应用场景分析》在Java算法题和日常开发中,字符串处理是必备的核心技能,本文全面梳理Java中字符串的常用操作语法,结合代码示例、应用场景和避坑指南,可快速掌握字... 目录引言1. 基础操作1.1 创建字符串1.2 获取长度1.3 访问字符2. 字符串处理2.1 子字

Python 中的 with open文件操作的最佳实践

《Python中的withopen文件操作的最佳实践》在Python中,withopen()提供了一个简洁而安全的方式来处理文件操作,它不仅能确保文件在操作完成后自动关闭,还能处理文件操作中的异... 目录什么是 with open()?为什么使用 with open()?使用 with open() 进行

Linux ls命令操作详解

《Linuxls命令操作详解》通过ls命令,我们可以查看指定目录下的文件和子目录,并结合不同的选项获取详细的文件信息,如权限、大小、修改时间等,:本文主要介绍Linuxls命令详解,需要的朋友可... 目录1. 命令简介2. 命令的基本语法和用法2.1 语法格式2.2 使用示例2.2.1 列出当前目录下的文

使用Python将JSON,XML和YAML数据写入Excel文件

《使用Python将JSON,XML和YAML数据写入Excel文件》JSON、XML和YAML作为主流结构化数据格式,因其层次化表达能力和跨平台兼容性,已成为系统间数据交换的通用载体,本文将介绍如何... 目录如何使用python写入数据到Excel工作表用Python导入jsON数据到Excel工作表用

Mysql表的简单操作(基本技能)

《Mysql表的简单操作(基本技能)》在数据库中,表的操作主要包括表的创建、查看、修改、删除等,了解如何操作这些表是数据库管理和开发的基本技能,本文给大家介绍Mysql表的简单操作,感兴趣的朋友一起看... 目录3.1 创建表 3.2 查看表结构3.3 修改表3.4 实践案例:修改表在数据库中,表的操作主要

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

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