VB调用EXCEL,一个工作表指定区域拷贝到另外一张工作表指定区域的问题

lx5656 发布于 2015-05-21 10:35， 2573 次点击

代码如下：
Set sht = WB.Worksheets("1")
    sht.Activate
sht.Range("G55:T57").Copy
Set sht = WB.Worksheets("2")
   WB.Sheets("2").Activate
   sht.Range("G55").Activate
sht.Range("G55").Paste
最后一句提示错误

[ 本帖最后由 lx5656 于 2015-5-21 10:43 编辑 ]

6 回复

lianyicq2015-05-21 10:53

复制指定区域一句代码
比如
sht1为工作表1,sht2为工作表2
("h7:m9")为源区域
("z1")为目标区域
sht1.Range("h7:m9").Copy sht2.Range("z1")

lx56562015-05-21 10:57

但是我这个表提示还是有问题，问题主要出在哪里？

lianyicq2015-05-21 11:01

回复 3楼 lx5656

你原代码不对.
activate只是指定当前显示表格
copy用法不对,没有paste这种用法.
改为
set sht1=wb.worksheets("源表名")
set sht2=wb.worksheets("目的表名")
sht1.range("区域").copy sht2.range("区域")

lx56562015-05-21 11:03

明白！了谢谢

lx56562015-05-21 11:19

我拷贝过来的数据是乱码，我只想要数值就行，怎么写呢？请高手帮帮我

[ 本帖最后由 lx5656 于 2015-5-21 11:28 编辑 ]

lianyicq2015-05-21 11:33

copy方法是把源数据类型也拷贝到目标区域的,显示什么乱码呢?是不是####,那是因为单元格宽度不够