Excel VBA如何將單元格內容從一本書復制到另一本書

Question

我正在嘗試創建一個宏，它將宏內容從一個工作簿復制到另一個工作簿。 問題是，在原始工作簿中，有指向該工作簿內另一個工作表的鏈接，而在我的宏執行該工作之后，這些鏈接引用了源文件的工作表。 例如，在源文件中，我有=CONCATENATE(A1,Sheet2!A1) ，在復制后，單元格內容變為=CONCATENATE(A1,[Source.xlsm]Sheet2!A1)避免出現此[Source.xlsm]嗎？

Sub Copy()

    Dim wbk As Workbook

    Range("A1:B1").Copy

    Set wbk = Application.Workbooks.Open(ThisWorkbook.Path & "/subdir/destination.xlsx")
    With wbk.Sheets("Sheet1")
    Range("A1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    End With
End Sub

提前致謝

Answer 1

使用Range.Replace方法從公式中刪除[Source.xlsm] 。

With wbk.Sheets("Sheet1")
    .Range("A1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    .Cells.Replace What:="[Source.xlsm]", Replacement:="", LookAt:=xlPart, _
                   MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With

順便說一句，你錯過了. 在.Range("A1").PasteSpecial...