Question

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

第二，名称应该是由工作表“表格”的单元格D3和单元格D4中内容组成的字符串，但是单元格D4是字符串，单元格D3是日期。我想将此日期转换为ddmmyyyy格式。文件的名称应为String Concatenate（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

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

1 个答案: