如何不打开工作簿复制其中指定区域到新工作簿

geminikowui · 发表于 2012-10-31 23:30

zhaogang1960 发表于 2011-2-8 17:19
试试看是这样吗？
Sub Macro1()
Dim sh As Worksheet

但是我拷贝的区域内部是公式计算的数据，那我用下面的语句拷贝过来的也是公式，有没有办法拷贝数据呢？
.Sheets("Sheet1").[A1:L12].Copy sh.[a1]

而用pasteSpecial 就会报错

zhaogang1960 · 发表于 2012-10-31 23:58

geminikowui 发表于 2012-10-31 23:30
但是我拷贝的区域内部是公式计算的数据，那我用下面的语句拷贝过来的也是公式，有没有办法拷贝数据呢？
...

Sub Macro1()
Dim sh As Worksheet
Set sh = ActiveSheet
Application.ScreenUpdating = False
With GetObject(ThisWorkbook.Path & "\test.xls")
sh.[a1:l12]].Value =.Sheets("Sheet1").[A1:L12].Value
.Close False
End With
End Sub

chifan · 发表于 2012-11-1 13:07

呵呵，多亏了你们好心人啊，否则好多事都搞不定呢。拿着你们的例子，慢慢研究，茁壮成长！

geminikowui · 发表于 2012-11-1 22:12

zhaogang1960 发表于 2012-10-31 23:58
Sub Macro1()
Dim sh As Worksheet
Set sh = ActiveSheet

谢谢，已经搞定了，和你的方法很一样的哈
我是用的Workbooks(activeworkbook.name).sheets(**).range(**).pasteSpecial paste:=xlPasteValues

sogo777 · 发表于 2014-4-26 21:57

zhaogang1960 发表于 2012-10-31 23:58
Sub Macro1()
Dim sh As Worksheet
Set sh = ActiveSheet

赵老师，你好，帮我看看这个问题是否可以解决
http://club.excelhome.net/forum. ... p;page=1#pid7601079

小zhi · 发表于 2015-7-31 20:16

thisworkbook.path，能不能引用不合文件夹里的文件啊？我用过，就只能引用同一个文件夹的路径。

speraph · 发表于 2017-11-4 23:07

lu_zhao_long 发表于 2011-2-5 10:12
不知道怎么了，竟然还是有这么多人以为看不见就是没打开，岂不知道那是通过后台方式打开的呀！

只是大家非专业表述

lrq20501 · 发表于 2022-11-28 16:27

geminikowui 发表于 2012-10-31 23:30
但是我拷贝的区域内部是公式计算的数据，那我用下面的语句拷贝过来的也是公式，有没有办法拷贝数据呢？
...

.Sheets("Sheet1").[A1:L12].Copy
sh.[a1].PasteSpecial.xxxx
这样写就不会错啊

		自动登录	找回密码
密码			免费注册

[求助] 如何不打开工作簿复制其中指定区域到新工作簿