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

lijunjie555

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

lu_zhao_long

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

zhaogang1960

原帖由 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

原帖由 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

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


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

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

lijunjie555

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

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

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

zhaogang1960

试试看是这样吗？
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

原帖由 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

对我很有用！

VLE

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

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