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.SHEE...
2015-08-13 12:08 | 2859次阅读 | 1评

VFP控制EXCEL工作表

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

VFP控制 Excel 工作簿

一、创建Excel对象 oExcel=CreateObject('Excel.Application') 二、控制工作簿 2.1 新建工作簿 2.1.1 新建空白工作簿   1、默认为3个工作表   oExcel.WorkBooks.Add   2、新建一个仅包含一个工作表的工作簿   oExcel.WorkBooks.Add(-4167)   说明:   ●在 Excel 中表示工作簿的关键字有 WorkBooks ...
2015-05-02 16:46 | 3562次阅读 | 0评

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

应用于 Workbooks 集合(对象)的 Add 方法。   新建工作簿时,用户通常会使用 WorkBooks 集合的 Add 方法,其代码如下:   oExcel.Workbooks.Add   如果新建工作簿时忽略 Add 方法的参数,那么在默认的情况下新建的工作簿将包含3个工作表。新建的工作簿中工作表的数量具体由“选项”对话框“常规”选项卡中的“新工作簿内的工作表数”决定,如下图所示,该数值能够通过 Application 对象的 Sheets...
2015-05-02 11:03 | 4230次阅读 | 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.ShapeRan...
2015-04-26 11:33 | 2165次阅读 | 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 | 864次阅读 | 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(F...
2015-04-01 00:18 | 415次阅读 | 0评

VFP的DataToClip 方法将VFP表导入EXCEL

Set Talk Off * -- 创建 4 个测试用临时表 Create Cursor A01 (f1 C(20)) Create Cursor A02 (f1 C(20)) Create Cursor A03 (f1 C(20)) Create Cursor A04 (f1 C(20)) For ii = 0 To 3 cAlias = Textmerge('A0<<ii+1>>') For m.jj = 1 To 10000 && 每...
2015-03-13 14:34 | 1767次阅读 | 0评

VFP数组数据导入EXCEL中的方法

Local ASZ[50,7] Store [] To ASZ For lnI=1 To 50 For lnI1=1 To 7 ASZ[lnI,lnI1]=Padl(lnI*lnI1,4,[0]) Endfor Endfor Local cc, oo As Excel.Application m.oo = Newobject('Excel.Application') If m.oo.Workbooks.Count < 1 m.oo.Workbook...
2015-03-08 10:33 | 1450次阅读 | 0评

生成Excel工作表标题(A,B,......DC)

x=132 y=Iif(x>26,Chr(64+Ceiling(x/26)-1),"")+Chr(64+Iif(Mod(x,26)=0,26,Mod(x,26))) MessageBox(y)
2015-02-18 19:02 | 528次阅读 | 0评

VFP控制Excel,列记录转换为行记录

例如: 姓名    一月    二月    三月 张三    100     200     300 转置成 姓名    张三 一月    100 二月   &...
2015-02-18 18:59 | 626次阅读 | 0评
浏览161141次