论坛 › 『 提问交流 』 › 如何复制EXCEL工作表

dyd 发表于 2011-5-12 18:03:19

如何复制EXCEL工作表

向高手请教下，如何复制EXCEL的工作表

kevinch 发表于 2011-5-12 18:35:30

本帖最后由 kevinch 于 2011-5-12 18:36 编辑

$o_ExcelApp=ObjCreate("excel.application")
$o_ExcelApp.visible=True
$o_Workbook=$o_ExcelApp.workbooks.add
with $o_Workbook
        .worksheets(1).copy(Default,.worksheets(.worksheets.count))
endwith新建一个工作簿，并将工作簿的第一个工作表复制一份放到最后的例子

h20040606 发表于 2011-5-13 04:45:45

;两个不同工作簿之间工作表复制的例子
$nExcel = ObjCreate ("Excel.Application")
      With $nExcel
                .Visible = 1
                .WorkBooks.add
      EndWith
$opExcel = ObjCreate ("Excel.Application")
      With $opExcel
                .Visible = 1
                .WorkBooks.Open(@ScriptDir&"\3.csv")
      EndWith
$opExcel.ActiveWorkbook.Sheets(1).copy (Default, $nExcel.ActiveWorkbook.Sheets(1))

小A 发表于 2011-5-13 05:29:21

二楼正解！学习了！

kevinch 发表于 2011-5-13 09:31:52

;两个不同工作簿之间工作表复制的例子
$nExcel = ObjCreate ("Excel.Application")
      With $nExcel ...
h20040606 发表于 2011-5-13 04:45 http://www.autoitx.com/images/common/back.gif
创建两个excel.application项目的话，有些电脑的设置是启动两个excel程序，而两个程序之间是无法直接通信的，所以第二个不需要创建，直接用第一个创建的进程打开所需文件就可以啦。

dyd 发表于 2011-5-13 11:41:43

回去测试下

8987769 发表于 2011-5-13 12:00:17

路过不放过

查看完整版本: 如何复制EXCEL工作表