论坛 › 已解决问题区 › 如何将一个EXCEL表sheet1中的内容复制到sheet2中，sheet1中的内容不变？？

ziyaxian 发表于 2010-1-5 13:26:11

如何将一个EXCEL表sheet1中的内容复制到sheet2中，sheet1中的内容不变？？

本帖最后由 ziyaxian 于 2010-1-6 09:15 编辑

如何将一个EXCEL表sheet1中的内容复制到sheet2中而sheet1中的内容不变

顽固不化 发表于 2010-1-5 14:25:46

#Include <Excel.au3>
$sFilePath1 = @ScriptDir & "\Test.xls" ;这个文件应该已经存在
$oExcel = _ExcelBookOpen($sFilePath1)
_ExcelSheetActivate($oExcel,1)
$aArray = _ExcelReadSheetToArray($oExcel)
_ExcelSheetActivate($oExcel,2)
_ExcelWriteSheetFromArray($oExcel,$aArray)

ziyaxian 发表于 2010-1-6 09:15:32

谢谢顽固不化的回答，我是用以下方法解决的，就是格式不对
#include <excel.au3>
$oExcel = _ExcelBookOpen(@ScriptDir&"\test.xls")

_ExcelSheetActivate($oExcel, 1)
$oExcel.Activesheet.Range($oExcel.Cells(1, 1), $oExcel.Cells(6, 34)).Copy
_ExcelSheetActivate($oExcel, 2)
$oExcel.Activesheet.Cells(1, 1).Select
$oExcel.Activesheet.Paste

jabilyang 发表于 2012-11-20 13:19:51

请问大侠，怎么才能让sheet1的内容复制到sheet2中，并保持格式不变。谢谢！

行者靖 发表于 2013-12-9 17:17:11

我也想知道怎么复制表的格式????

xlj310 发表于 2013-12-24 11:06:32

只用copy函数即可

tina_cao 发表于 2016-8-3 11:20:27

学习学习。。。。。

查看完整版本: 如何将一个EXCEL表sheet1中的内容复制到sheet2中，sheet1中的内容不变？？