当使用ActiveSheet.Paste Link:=True时，VBA可能会弹出一个错误提示，指示此方法无法正常工作。这通常是由于您的目标工作簿未命名所致。你可以使用以下代码示例解决此问题：

Sub Paste_Link_Test() Dim SourceWorksheet As Worksheet, TargetWorksheet As Worksheet

Set SourceWorksheet = Worksheets("Sheet1") Set TargetWorksheet = Workbooks("TargetWorkbook.xlsx").Worksheets("Sheet1")

SourceWorksheet.Range("A1:B2").Copy TargetWorksheet.Range("C1").PasteSpecial xlPasteValues, , True, True TargetWorksheet.Range("C1").PasteSpecial xlPasteFormats, , True, True

End Sub

在此代码示例中，我们首先使用Set语句将源工作表和目标工作表设置为Worksheet对象。然后我们复制源工作簿中的某个区域并将其粘贴到目标工作簿中。请注意，我们在此处使用指定的True参数选项来创建链接。最后，我们还可以使用PasteSpecial方法将值和格式从剪贴板粘贴到目标工作表中的目标区域。