excel - 宏 SaveAs 到任何桌面

Question

大家好，我一直收到错误消息，我正在尝试将 excel 保存到任何桌面用户，其文件名格式为：DTR 然后是今天的日期 这是我的代码。我想我犯了一个错误，不知道我可以使用什么（这里只是一个新手）

    Sub saveAs()
Sheets("DTR").Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Environ$("USERPROFILE") & "\Desktop" & _
"\DTR" & Date & ".xlsx", FileFormat:=xlOpenXMLWorkbook _
 , CreateBackup:=False
.Close False
End With
End Sub

标签： excelvba