VBA值从另一个工作簿复制粘贴表时出错[重复]

Question

我有下面正在使用的 VBA 代码，但是，它也在粘贴外部链接。其中一些转向值错误。有没有办法修改它以仅粘贴值和格式？

子 GetSheets()

Path = "XXXX"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Workbook In Workbooks
    If Workbook.Name <> ThisWorkbook.Name Then
Workbook.Worksheets("SAC Input").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Workbook.Name

End If
Next
Set Workbook = Nothing
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

谢谢。