我想复制一个工作表（包括页面设置的信息）。用下面的代码可以实现。但是，每复制一下都直接在一个新工作薄中去了。换句话说，每复制一次都会创建一个文件。
我想在一个工作薄里面复制工作表。
望大侠指教。
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个工作表名称