合并单元格

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) .Visible = .T. * 指定区域的单元格分行合并 .WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.) .ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并" * 指定区域的单元格合并为一个单元格 .WorkSheets(1).Cells(5, 1).Resize(3, 4).Mer...
2021-06-02 07:26 | 阅读 946 次 | 评论 0 条

隐藏指定行或列

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) .Visible = .T. .ActiveCell.EntireRow.Cells(5, 1).Value = 5 .Worksheets(1).Columns(6).Hidden = .T. .Worksheets(1).Rows(6).Hidden = .T. ENDWITH
2021-06-02 07:25 | 阅读 861 次 | 评论 0 条

删除数据区域的空白行列

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) * 添加测试数据 .ActiveSheet.Cells(2, 2).Value = "abcd" .ActiveSheet.Cells(4, 4).Value = "abcd" .ActiveSheet.Cells(6, 6).Value = "abcd" .ActiveSheet.Cells(100, 10).Value = "ABCD" *删除空白行 lnRow = .ActiveSheet.U...
2021-06-02 07:23 | 阅读 985 次 | 评论 0 条

VFP 控制 EXCEL2003 之 010、快速画表格

oExcel = CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add WITH .Cells(1,1).Resize(5,5) .Value = "ABC" .Borders.LineStyle = 1 .BorderAround(-4119,, 37) && 加外框及颜色,此行代码也可以不要。 ENDWITH .Visible = .T. ENDWITH
2018-09-29 14:25 | 阅读 1512 次 | 评论 0 条

VFP 控制 EXCEL2003 之 009、应用于 Workbook 对象的 SaveAs 方法

  保存对不同文件中的工作表的更改。 语法 expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) expression 必需。该表达式返回上述对象中一个对象。 参数 Filename 字符型,可选。   该字符串表示要保存的文件名。一定要包含完整路径。如果不指...
2018-09-23 08:50 | 阅读 3811 次 | 评论 2 条

VFP 控制 EXCEL2003 之 008、应用于 Workbook 对象的 Close 方法

  关闭对象。 语法 object.Close(SaveChanges, Filename, RouteWorkbook) 参数 SaveChanges 逻辑型,可选。   如果工作簿没有改变则忽略此参数;   如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿,则仍然忽略此参数;   如果工作簿发生了改变并且没有在另外的窗口中打开,则此参数将指定是否在工作簿中保存所发生的更改。 取值与操作如下表所示: 值 作用 .T. 将改变保存到工作簿。如果该工作簿尚未命名,则使用 FileName 指定的名称。如果省略 FileName 参数,则要求用户输...
2018-09-23 08:28 | 阅读 1845 次 | 评论 0 条

VFP 控制 EXCEL2003 之 007、应用于 Workbook 对象的 Open 方法

  打开一个工作簿。返回一个 Workbooks 对象。 语法 object.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 参数 FileName 字符型,必需。要打开的工作簿的文件名。 UpdateLinks 整型,可选。指定文件中链接的更新方式。   如...
2018-09-23 08:24 | 阅读 1959 次 | 评论 0 条

VFP 控制 EXCEL2003 之 006、应用于 Workbooks 对象的 Add 方法

  新建工作簿。新建的工作簿将成为活动工作簿。返回 Workbook 对象。 语法 object.Add(Template)   该表达式返回一个 Workbooks 对象。 参数 Template 字符型或整型,可选。确定如何创建工作簿。   如果本参数指定为一现有 Microsoft Excel 文件名的字符串,那么创建新工作簿将以该指定的文件作为模板。   如果本参数为常量,新工作簿将包含指定类型的单张工作表。可为下表 XlWBATemplate 枚举中常量之一。XlWBATemplate 枚举 常量 值 描述 xlWBATChart -410...
2018-09-23 08:19 | 阅读 2043 次 | 评论 0 条

VFP 控制 EXCEL2003 之 005、应用于 Sheets 对象的 Add 方法

  新建工作表、图表或宏表。新建的工作表将成为活动工作表。使用 Add 方法可创建一个新的工作表并将它添加到集合。 语法 表达式 .Add( Before, After, Count, Type ) 表达式 一个代表 Sheets 对象的变量。 参数 名称 必需/可选 数据类型 说明 Before 可选 对象型 指定工作表的对象,新建的工作表将置于此工作表之前。 After 可选 对象型 指定工作表的对象,新建的工作表将置于此工作表之后。 Count 可选 数值型 要添加的工作表数。默认值为 1。 Type 可选 数值型 指定工作表类型。可以...
2018-09-23 08:10 | 阅读 2652 次 | 评论 0 条

VFP 控制 EXCEL2003 之 004、限定工作簿窗口大小

  实现仅包含 9 X 9 个单元格区域的窗口界面。 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add oRange = .Range("A1:I9") WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScrollBar = .F. .DisplayVerticalScrollBar = .F. .DisplayWorkbookTab...
2018-09-18 19:29 | 阅读 1748 次 | 评论 0 条

VFP 控制 EXCEL2003 之 003、真正的全屏显示数据

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .DisplayFullScreen = .T. .CommandBars(1).Enabled = .F. .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow" WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScr...
2018-09-17 18:50 | 阅读 1804 次 | 评论 0 条

VFP 控制 EXCEL2003 之 002、将应用程序和当前活动窗口最大化

  在 Excel 中使用 Window 对象的 WindowState 属性返回或设置窗口的状态,该属性取值可为 XlWindowState 枚举常量之一,分别对应着窗口的 3 种状态。 XlWindowState 枚举 指定窗口的状态。 名称 值 描述 xlMaximized -4137 最大化 xlMinimized -4140 最小化 xlNormal -4143 正常 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .WindowState = x...
2018-09-16 07:59 | 阅读 1963 次 | 评论 0 条

VFP 控制 EXCEL2003 之 001、修改应用程序和活动窗口的标题文本

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .Caption = "XXXX信息管理系统" .ActiveWindow.Caption = "" .Visible = .T. ENDWITH
2018-09-15 16:43 | 阅读 1504 次 | 评论 0 条

2010版本excel表格如何导入到vf中

EOLE=CREATEOBJECT('EXCEL.APPLICATION') LCFILENAME=GETFILE([XLS]) && 此处 XLS 改为EXCEL2010文件的扩展名 IF EMPTY(LCFILENAME) RETURN ENDIF EOLE.WORKBOOKS.OPEN(LCFILENAME) EOLE.WORKSHEETS(1).ACTIVATE LNROW=EOLE.SHEETS(1).USEDRANGE.ROWS.COUNT LNCOL=EOLE.SHEETS(1).USEDRANGE.COLUMNS.COUNT DIM...
2015-08-13 12:08 | 阅读 7308 次 | 评论 2 条

VFP控制EXCEL工作表

三、VFP控制EXCEL工作表   工作表是操作 EXCEL 时不可缺少的对象,同时是编辑单元格对象的入口和载体,利用 VFP 更好的控制 EXCEL 工作簿和单元格,掌握控制工作表的方法至关重要。 3.1 插入工作表   在新打开的工作簿中,默认有三个工作表,当工作表的数量不够用时,可以插入工作。 3.1.1 插入指定数量工作表   使用以下代码可以插入新的工作表。   1、插入单个空白工作表,不带参数增加新表至当前工作表之前   oExcel.Sheets.Add   说明:   ●使用 Sheets (工作表集合对象)的 Add 方法可以插入空白工作表。   2...
2015-05-02 21:28 | 阅读 8726 次 | 评论 1 条

VFP控制 Excel 工作簿

一、创建Excel对象 oExcel=CreateObject('Excel.Application') 二、控制工作簿 2.1 新建工作簿 2.1.1 新建空白工作簿   1、默认为3个工作表   oExcel.WorkBooks.Add   2、新建一个仅包含一个工作表的工作簿   oExcel.WorkBooks.Add(-4167)   说明:   ●在 Excel 中表示工作簿的关键字有 WorkBooks (工作簿集合对象)和 WorkBook (工作簿对象)。它们之间是集合与集合中对象的关系,即 WorkBooks 是 WorkBook 的集合。...
2015-05-02 16:46 | 阅读 7337 次 | 评论 0 条

应用于 Workbooks 集合(对象)的 Add 方法

应用于 Workbooks 集合(对象)的 Add 方法。   新建工作簿时,用户通常会使用 WorkBooks 集合的 Add 方法,其代码如下:   oExcel.Workbooks.Add   如果新建工作簿时忽略 Add 方法的参数,那么在默认的情况下新建的工作簿将包含3个工作表。新建的工作簿中工作表的数量具体由“选项”对话框“常规”选项卡中的“新工作簿内的工作表数”决定,如下图所示,该数值能够通过 Application 对象的 SheetsInNewWorkbook 属性返回或设置。 Workbooks 集合(对象)的 Add 方法语法如下...
2015-05-02 11:03 | 阅读 12845 次 | 评论 0 条

VFP 控制 Excel 在指定位置插入图片

oExcel=CreateObject('Excel.Application') With oExcel .Workbooks.Add .SheetsInNewWorkBook=1 .Sheets(1).Cells(2,5).Select .ActiveSheet.Pictures.Insert("F:\第五十组MIS设计报告\1-110Q0130GD10.jpg").Select .Selection.ShapeRange.LockAspectRatio =.T. .ActiveSheet.Columns...
2015-04-26 11:33 | 阅读 5139 次 | 评论 0 条

VFP中获得选定EXCEL区域的行列号

oxls=CREATEOBJECT("Excel.application") oxls.Visible=.t. oxls.Workbooks.Add ?oxls.Selection.address oxls.ActiveSheet.range("A2:h8").select ?oxls.Selection.address
2015-04-05 12:17 | 阅读 1974 次 | 评论 0 条

获取EXCEL某一工作表的页数

FileName=GetFile("Xls") If Empty(FileName) Return EndIf oExcel=CreateObject('Excel.application') oExcel.Workbooks.Open(FileName) oExcel.SHEETS(1).SELECT *oExcel.Worksheets("sheet1").Activate nPages=oExcel.ActiveSheet.HPageBreaks.Count+1 MessageBox(FileName+"共有 "+Transform(nPages)+" ...
2015-04-01 00:18 | 阅读 2207 次 | 评论 3 条
浏览404795次