任务是在vfp中将一个工作簿中的某个工作表进行复制,
在工作簿最后追加粘贴,要求页面设置的信息以及页眉页脚的信息同时复制过来.
请大家帮忙. 先谢谢了.
---------------------------------------------------------------
Sheets("Sheet1").Copy
是复制Sheet1到一个新文件,而不是在同一个工作簿中。
可是:
对象.Worksheets("Sheet1").Copy After:=Sheets(1)
或报错语法错误,不知为什么
try:
ole_excel = CreateObject("Excel.Application")
ole_excel.visible=.t.
ole_excel.WorkBooks.Open('d:\temp\123.xls')
ole_excel.Worksheets("2").copy(ole_excel.Worksheets("1"))
---------------------------------------------------------------
*已经测试.
lcfilename="c:\001.xls" &&改成你的文件名
objexcel = CREATEOBJECT("Excel.Application")
WITH objexcel
.workbooks.open(lcfilename)
.SHEETS(1).SELECT()
.SHEETS(1).COPY( , .sheets(3) ) &&1..是要复制的..排在第三个工作本后面.
.sheets(4).name="aaa" &&第四个工作表,设置名称
.VISIBLE = 1
ENDWITH
RELEASE objexcel
---------------------------------------------------------------
EFILENAME='D:\你的Excel表名.XLS'
EOLE=CREATEOBJECT("Excel.application")
EOLE.Workbooks.OPEN("&EFILENAME")
EOLE.VISIBLE=.T.
EOLE.SHEETS(1).SELECT
EOLE.SHEETS(1).COPY(NULL,EOLE.SHEETS(1)) &&把第1个工作表复制到第1个工作表之后
EOLE.SHEETS(2).NAME='NewSheetName' &&设置第2个工作表名称
*!*EOLE.SHEETS(1).COPY(EOLE.SHEETS(1),NULL) &&把第1个工作表复制到第1个工作表之前
*!*EOLE.SHEETS(1).NAME='NewSheetName' &&设置第1个工作表名称