仅使用值（不是公式）导出工作表

Question

我正在努力导出工作簿中的一个工作表。使用以下代码我能够做到这一点。但是我尝试导出的工作表使用公式来检索工作簿中其他工作表中的数据。当我更改值时在主工作簿中，导出的工作簿也会更改。如何仅使用值导出工作表？

Private Sub SAVE()
On Error Resume Next
location = Sheets("data").Range("j2").text
date= Application.text(Now(), "dd/mm/yyyy")
        Ad = CreateObject("wscript.Shell")
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs FileName:=Ad & location & date ".xlsm",FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

Answer 1

在ActiveSheet.Copy

之后添加这段代码

ActiveWorkbook.Sheets(1).UsedRange.Value = ActiveWorkbook.Sheets(1).UsedRange.Value

只要工作表中没有合并的单元格，这将有效。

作为旁注，保存工作簿不需要变量Ad。只要location是有效的文件路径，FileName:=location & date & ".xlsm"就可以使用。