我想将文件名另存为，M2(空格)设计格式范围内的时间戳(空格)文本

Question

我想将文件名另存为，时间戳(空格(范围内的文本 M2(空格(设计格式 示例：20200525 1747 客户端设计格式 范围 M2 = 客户端

Sub Make_saveas()
Worksheets(Array("Sheet1", "Sheet2")).Copy
With ActiveWorkbook
.SaveAs Filename:=Environ("USERPROFILE") & "Desktop" & Format(Now(), 
"YYYYMMDD HHMM, sheets(3).range("M2"), "Design Format"")& ".xlsx", 
FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With
End Sub

请帮助我使用上面的代码。

Answer 1

尝试以下操作...

Filename:=Environ("userprofile") & "Desktop" & Format(Now(),"YYYYMMDD HHMM") & " " & sheets(3).range("M2") & " Design Format.xlsx"