当前位置: 代码迷 >> VFP >> VFP控制Excel的有关问题
  详细解决方案

VFP控制Excel的有关问题

热度:7808   发布时间:2013-02-26 00:00:00.0
VFP控制Excel的问题
我想复制一个工作表(包括页面设置的信息)。用下面的代码可以实现。但是,每复制一下都直接在一个新工作薄中去了。换句话说,每复制一次都会创建一个文件。
我想在一个工作薄里面复制工作表。
望大侠指教。

oExcel=Createobject("Excel.application")
oExcel.visible=.T.
oExcel.WorkBooks.Add
oExcel.ActiveSheet.PageSetup.TopMargin=5/0.035
oExcel.ActiveSheet.Copy

------解决方案--------------------------------------------------------
_ole_excel.Sheets(1).copy(_ole_excel.Sheets(2))
------解决方案--------------------------------------------------------
复制Sheet工作表
EFILENAME='D:\你的Excel表名.XLS'
oExcel=Createobject("Excel.application")
oExcel.Workbooks.Open("&EFILENAME")
oExcel.Visible=.T.
oExcel.SHEETS(1).Select
oExcel.SHEETS(1).Copy(Null,oExcel.SHEETS(1)) && 把第1个工作表复制到第1个工作表之后
oExcel.SHEETS(2).Name='NewSheetName' &&设置第2个工作表名称
*!*oExcel.SHEETS(1).COPY(oExcel.SHEETS(1),NULL) && 把第1个工作表复制到第1个工作表之前
*!*oExcel.SHEETS(1).NAME='NewSheetName' &&设置第1个工作表名称
  相关解决方案