首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

怎的向已有的EXCEL工作薄添加工作表并更改表名

2013-01-20 
怎样向已有的EXCEL工作薄添加工作表并更改表名同上[解决办法]*---VFP6.0代码EOLECREATEOBJECT(Excel.app

怎样向已有的EXCEL工作薄添加工作表并更改表名
同上
[解决办法]

*---VFP6.0代码
EOLE=CREATEOBJECT('Excel.application')   && 创建Excel对象
EOLE.WORKBOOKS.ADD                       && 添加新工作簿
EOLE.WORKSHEETS("sheet1").ACTIVATE       && 设置第1个工作表为激活工作表
EOLE.SHEETS.ADD(,EOLE.SHEETS(1),1,-4167) && 在指定工作表后[Sheets(1)]新建工作表
EOLE.WORKSHEETS("Sheet2").NAME="新表"    && 重命名工作表2
EOLE.VISIBLE=.T.                         && 显示Excel窗口

[解决办法]
oExcel.Sheets.Add

热点排行