VBA-将工作表从一个工作簿复制到另一个工作簿（值，而不是公式）

Question

当前，我正在将工作表的值和格式复制到另一个工作簿中的工作表中，如下所示：

workbooks("book1.xlsm").sheets(1).range(someRange).copy
with workbooks("book2.xlsm").sheets(1).range("A1")
    .pasteSpecial xlPasteValues
    .pasteSpecial xlPasteFormats
end with

我想使用类似：

workbooks("book1.xlsm").sheet(1).copy after:=workbooks("book2.xlsm").sheet(1)

问题在于book1.xlsm的sheet（1）中的某些单元格具有公式。 使用第二种方法提取公式，并将结果值链接到book2.xlsm中的数据

如何使用第二种方法，但是要复制值而不是公式？

如果不可能，除了我目前正在使用的第一种方法外，还有哪些替代方法？

Answer 1

您可以在复制操作后断开链接：

Option Explicit

Sub copySheetValues()

    With Workbooks("Book2")

        Workbooks("Book1").Worksheets(1).Copy After:=.Worksheets(1)

        Application.Wait Now + TimeValue("0:00:01") 'built-in replacement for "Sleep"

        .BreakLink Name:=Workbooks("Book1.xlsm").FullName, Type:=xlLinkTypeExcelLinks

    End With

End Sub

---

注意：两个文件都需要在Excel应用程序的同一实例中打开