将工作表复制为新文件，其中所有单元格均为数字，而不是公式

Question

我有一个工作表'Form‘，其中填充了许多单元格，这些单元格基于同一工作簿'Master’中工作表' Data‘中的数据。运行宏后，我希望将'Form’保存为一个新文件，以便所有单元格都具有值而不是公式，即它们不应依赖于'Master‘中的任何工作表。

其次，名称应该是由工作表‘D4’的单元格D3和单元格D4中的内容连接而成的字符串，但是单元格D4是一个字符串，单元格D3是一个日期。我想将此日期转换为ddmmyyyy格式。文件名应为字符串串联(D3，D4) -> ddmmyyy XXXXXX.xlsx

到目前为止，我已经做到了这一点-但是新文件Format.xlsx中的单元格是公式而不是值，并且我不知道如何将名称更改为由两个单元格的内容组成

D3包含日期- 7/3/2019，D4包含字符串- "XXXX“

Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Format").Copy Before:=wb.Sheets(1)
wb.SaveAs Range("D3").Value & Range("D4").Value & ".xlsx"

Answer 1

这里：

Dim wb As Workbook
Set wb = Workbooks.Add
With wb
    ThisWorkbook.Sheets("Format").Copy Before:=.Sheets(1)
    .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
    .SaveAs Format(.Sheets(1).Range("D3").Value, "ddmmyyyy") & " " & .Sheets(1).Range("D4").Value & ".xlsx"
End With