如何使用VBA做“另存为”

我想请求帮助我的代码如下。 当我将一个新文件保存到我的桌面上时，我logging了一个macros。

我遇到了更改目录行的问题。 每当不同的用户使用这个macros时，这个改变也会发生，这个macros也可能取决于e的值。

另外，部分文件名会根据d的值而变化。

请帮我改进我的代码。 谢谢！

 Dim b, c, d, e As String b = MsgBox("This file has to be saved. Click OK.", vbOKCancel, "Save to SharePoint") ActiveWorkbook.Save c = MsgBox("Save this file to local", vbOKOnly, "Save to Local") d = InputBox("This shift record falls on what week?", "Save Shift Record", "YYYYMMDD-YYYYMMDD") e = InputBox("Enter your EID", "Save Shift Record", "EID") 'this line give error ~~~~~ ChDir "C:\Users\ma.cristina.i.gumato\Desktop" ActiveWorkbook.SaveAs Filename:= "C:\Users\d\Desktop\MANILA_ShiftRecord_" + d + ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

Answer 1

这对你有用吗？

 Dim b, c, d, e As String b = MsgBox("This file has to be saved. Click OK.", vbOKCancel, "Save to SharePoint") ActiveWorkbook.Save c = MsgBox("Save this file to local", vbOKOnly, "Save to Local") d = InputBox("This shift record falls on what week?", "Save Shift Record", "YYYYMMDD-YYYYMMDD") e = InputBox("Enter your EID", "Save Shift Record", "EID") ActiveWorkbook.SaveAs Filename:= "C:\Users\" & environ("username") & "\Desktop\MANILA_ShiftRecord_" + d + ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False