なぜか、メッセージボックスではユーザー名を教えてくれるのですが、名前を付けて保存のパスで同じように動作しません。 私は、"Cannot find path"エラーが発生します。
これを修正する方法がわかりません。 リファレンスも見てみましたが、正しいようです。
コンピュータごとの実際のユーザー名を含むようにパスを変更すると、マクロは正常に動作します。 しかし、私はこれをどのコンピュータ/ユーザーに対してもグローバルなマクロにする必要があります。 どんな助けでも、非常に感謝します。
以下は、私が持っているものです。
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
もしくは、VBA.
を前につけてください。これで直りました。
つまり、Environ("Username")
は VBA.Environ("Username")
になります。