如何复制EXCEL工作表

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

向高手请教下，如何复制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

创建两个excel.application项目的话，有些电脑的设置是启动两个excel程序，而两个程序之间是无法直接通信的，所以第二个不需要创建，直接用第一个创建的进程打开所需文件就可以啦。

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

回去测试下

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

路过不放过

		自动登录	找回密码
密码			加入

[AU3基础] 如何复制EXCEL工作表

相关帖子