找回密码
 加入
搜索
查看: 5139|回复: 6

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

  [复制链接]
发表于 2010-1-5 13:26:11 | 显示全部楼层 |阅读模式
本帖最后由 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)
 楼主| 发表于 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
发表于 2012-11-20 13:19:51 | 显示全部楼层
请问大侠,怎么才能让sheet1的内容复制到sheet2中,并保持格式不变。谢谢!
发表于 2013-12-9 17:17:11 | 显示全部楼层
我也想知道怎么复制表的格式????
发表于 2013-12-24 11:06:32 | 显示全部楼层
只用copy函数即可
发表于 2016-8-3 11:20:27 | 显示全部楼层
学习学习。。。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-25 22:30 , Processed in 0.163753 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表