EXCEL工作薄中工作表名的重命名问题 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → EXCEL工作薄中工作表名的重命名问题

我的收件箱(0)

共有 7240 人关注过本帖

标题：EXCEL工作薄中工作表名的重命名问题

只看楼主加入收藏

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 11 楼

得分: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