vba - Excel 宏 : Copy sheet without links - just data

Question

我想将 MS Excel 中的一个特定工作表复制到一个新文件中。下面的宏完成了这项工作，但问题是副本总是将单元格链接到原始文件。有没有办法只插入此表的值而不插入链接？

Sub Copy_sheet()

    ThisWorkbook.Sheets("Overview").Copy

    ActiveWorkbook.SaveAs "C:\testfolder\testfile.xlsx", FileFormat:=51

End Sub

谢谢!

Answer 1

在 End sub 之前将以下内容添加到您的代码中:

With ThisWorkbook.Worksheets("Overview").UsedRange
    .Value = .Value
End With

它会将公式更改为值。如果您想为整个工作簿执行此操作，则可以这样做:

Public Sub CopyJustData()

    Dim lngCount    As Long

    For lngCount = 1 To Worksheets.Count
        With Worksheets(lngCount).UsedRange
            .Value = .Value
        End With
    Next lngCount

End Sub