vba excel 2010 Environ ("username")在 saveas 文件路径中不起作用

Question

出于某种原因，我可以让消息框告诉我用户名是什么，但它在另存为路径中的工作方式不同。我收到“找不到路径”错误。

不知道如何解决这个问题。我也查看了引用文献，它们似乎是正确的。

如果我更改路径以包含每台计算机的实际用户名，则宏可以正常工作。但我需要它成为任何计算机/用户的全局宏。任何帮助将不胜感激。

这是我所拥有的:

Sub SAVEAS_2010()
'
' SAVEAS_2010 Macro
MsgBox Environ("username")

Dim UserName As String
UserName = Environ("username")

ChDir "C:\Users\" & UserName & "\Dropbox\Open Machine Schedule"
ActiveWorkbook.SaveAs FileName:= _
    "C:\Users\" & UserName & "\Dropbox\Open Machine Schedule\Open Machine Schedule - Current_2.xlsx" _
    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Answer 1

或者您可以将 VBA. 放在它前面。这为我修复了它。即 Environ("Username") 变为 VBA.Environ("Username")。