Как я могу использовать переменную «environment» для сохранения_наличного счета на другом компьютере

Question

Если я хочу сохранить счет-фактуру в той же папке на другом компьютере.

Мой путь в моей текущей системе - C: \ Users \ bala \ Google Drive \ Invoice

Я также буду сохранять его C: \ Users \ sanford \ Google Drive \ Invoice

Слышал, что переменные окружения делают эту работу, но не уверен, как это сделать.

Sub Save_As()
Dim filename As String
Dim msgResponse As VbMsgBoxResult
filename = "C:\Users\bala\Google Drive\Invoice\" & Range("F4") & Range("G4") & "_" & Range("M10")
If Len(Dir(filename)) = 0 Then
    ActiveSheet.SaveAs filename, FileFormat:=52, CreateBackup:=False
    Application.DisplayAlerts = True
    MsgBox "Invoice saved successully", vbOKOnly, "INVOICE SAVED"

Else
   msgResponse = MsgBox("Do you want to overwrite?", vbYesNoCancel)
   If msgResponse = vbYes Then
        ActiveSheet.SaveAs filename, FileFormat:=52, CreateBackup:=False
        Application.DisplayAlerts = True
        MsgBox "Invoice saved successully", vbOKOnly, "INVOICE SAVED"

    Else
       Exit Sub
    End If
End If

End Sub

Кто-нибудь может мне помочь? Спасибо!

Answer 1

Вы можете использовать функцию Environ, чтобы получить любую установленную системную переменную, например, Environ("Username"), чтобы получить имя текущего пользователя.

Однако имейте в виду, что username не всегда является именем папки, в которой хранятся все пользовательские документы. Поэтому лучше использовать Environ("UserProfile"). Так что попробуйте:

filename = Environ("UserProfile") & "\" & Range("F4") & Range("G4") & "_" & Range("M10")