| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6670 人关注过本帖
标题:EXCEL工作薄中工作表名的重命名问题
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9783
专家分:26837
注 册:2012-2-5
收藏
得分:6 
程序代码:
temp='员工信息表'
cXLS=temp+".xls"
DELETE FILE (cXLS) &&测试用
USE (temp)
COPY TO (temp) TYPE xl5
OEXCEL = CREATEOBJECT('Excel.application')
OEXCEL.WORKBOOKS.OPEN(SYS(5)+SYS(2003)+"\&cXLS") && 一定要加路径,否则会出错
oExcel.Sheets(temp).NAME = "Sheet1" && 此处一定要是工作表中显示的名称,也就是变量TEMP
oExcel.ActiveWorkBook.Save 
OEXCEL.WORKBOOKS.CLOSE
OEXCEL.QUIT
RELEASE OEXCEL
收到的鲜花
  • yjc98943012016-04-08 14:31 送鲜花  3朵  

坚守VFP最后的阵地
2016-04-08 12:54
yjc9894301
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-3-25
收藏
得分:0 
谢谢sdta的指导,问题已解决。
2016-04-08 14:53
快速回复:EXCEL工作薄中工作表名的重命名问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015289 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved