Excelmacros：复制工作表没有链接 – 只是数据

我想在MS Excel中复制一个特定的表格到一个新的文件。 下面的macros做的工作，但问题是，副本始终将单元格链接到原始文件。 有没有办法只插入这张表没有链接的值？

Sub Copy_sheet() ThisWorkbook.Sheets("Overview").Copy ActiveWorkbook.SaveAs "C:\testfolder\testfile.xlsx", FileFormat:=51 End Sub 

谢谢！

Answer 1

一种方法是这样的。

 Sub Copy_sheet() Dim wbNew As Workbook ThisWorkbook.Sheets("Overview").Copy Set wbNew = ActiveWorkbook With wbNew With .Worksheets(1).UsedRange .Value = .Value End With .SaveAs "C:\testfolder\testfile.xlsx" End With End Sub 

Answer 2

在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