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