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

lijunjie555 · 发表于 2011-2-4 11:44

现有工作簿test，如何在不打开的情况下，将其中Sheet1中的指定区域“A1:L12”复制到新工作簿中的Sheet1中?
谢谢高手赐教！

lu_zhao_long · 发表于 2011-2-5 10:12

不知道怎么了，竟然还是有这么多人以为看不见就是没打开，岂不知道那是通过后台方式打开的呀！

zhaogang1960 · 发表于 2011-2-5 11:08

原帖由 lijunjie555 于 2011-2-4 11:44 发表
现有工作簿test，如何在不打开的情况下，将其中Sheet1中的指定区域“A1:L12”复制到新工作簿中的Sheet1中?
谢谢高手赐教！

用数组公式吧，不过只能取值：
Sub Macro1()
With [A1:L12]
      .FormulaArray = "='" & ThisWorkbook.Path & "\[test.xls]Sheet1'!A1:L12"
      .Value = .Value
      .Replace 0, "", xlWhole
End With
End Sub

lijunjie555 · 发表于 2011-2-5 23:24

原帖由 zhaogang1960 于 2011-2-5 11:08 发表

用数组公式吧，不过只能取值：
Sub Macro1()
With [A1:L12]
      .FormulaArray = "='" & ThisWorkbook.Path & "\[test.xls]Sheet1'!A1:L12"
      .Value = .Value
      .Replace 0, "", xlWhol ...

谢谢，虽然没有完全回答我的问题，但也学习了。

zhaogang1960 · 发表于 2011-2-5 23:30

原帖由 lijunjie555 于 2011-2-5 23:24 发表

谢谢，虽然没有完全回答我的问题，但也学习了。

楼主的“不打开”是个什么概念？
真正没有打开过程的有ado和公式等方法
还有就是后台方式打开(使用Workbooks.Open方法或者GetObject函数)，这个不能算是不打开

lijunjie555 · 发表于 2011-2-8 17:10

原帖由 zhaogang1960 于 2011-2-5 23:30 发表

楼主的“不打开”是个什么概念？
真正没有打开过程的有ado和公式等方法
还有就是后台方式打开(使用Workbooks.Open方法或者GetObject函数)，这个不能算是不打开

我的意思是后台方式打开，谢谢解答！

zhaogang1960 · 发表于 2011-2-8 17:19

试试看是这样吗？
Sub Macro1()
Dim sh As Worksheet
Set sh = ActiveSheet
Application.ScreenUpdating = False
With GetObject(ThisWorkbook.Path & "\test.xls")
.Sheets("Sheet1").[A1:L12].Copy sh.[a1]
.Close False
End With
End Sub

lijunjie555 · 发表于 2011-2-10 20:00

原帖由 zhaogang1960 于 2011-2-8 17:19 发表
试试看是这样吗？
Sub Macro1()
Dim sh As Worksheet
Set sh = ActiveSheet
Application.ScreenUpdating = False
With GetObject(ThisWorkbook.Path & "\test.xls")
.Sheets("Sheet1" ...

这正是我想要的，非常感谢！

hhao48008 · 发表于 2011-2-10 23:08

对我很有用！

VLE · 发表于 2011-2-11 07:05

打开和关闭不要手动操作或者在暗底下打开可能就是所谓的不打开，实际上不打开是不可能的，新手太多了真没办法

[ 本帖最后由 VLE 于 2011-2-11 07:07 编辑 ]

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

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

回复 6楼 lijunjie555 的帖子

评分

有用