Excel宏：複製工作表沒有鏈接 - 只是數據

Question

我想複製MS Excel中的一個特定工作表到一個新的文件。下面的宏執行這項工作，但問題是該副本始終將單元格鏈接到原始文件。有沒有辦法只插入這張表沒有鏈接的值？

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