Как я могу использовать переменную environment для save_as счета-фактуры excel на другом компьютере

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

Мой путь в моей текущей системе - 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

Конец подписки

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

использовать Environ("Username")

Maddy 26.10.2018 09:00
0
1
51
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

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

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

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

Другие вопросы по теме