Не могу выполнить макрос - ошибка '76' путь не найден

Question

Я не очень знаком с макросами VB.Я продолжаю получать

ошибка '76' путь не найден.

Ниже приведен пример кода.Дело в том, что у нас есть файл с макросом, который будет находиться в синхронизированной папке OneDrive.К сожалению, местоположение OneDrive зависит от профиля пользователя.Я попытался %username%, но это не сработает, если я не укажу свое точное имя пользователя.Это не то, что я хочу, так как несколько пользователей будут использовать файл с поддержкой макросов из своих соответствующих расположений OneDrive.Есть идеи?

Sub Export_XML()

    Dim r As Range
    Dim output As String

    For Each r In Range("XML_Output").Rows
        output = output & r.Value & vbNewLine
    Next r

    Open "C:\Users\%username%\Brand Developers Limited\Media Scheduling - 9. SpreeTV\Spree.xml" For Output As #1
    Print #1, output
    Close

    MsgBox "Spree schedule export complete"

End Sub

Answer 1

Таким образом:

Open "C:\Users\" & environ("username") & "\Brand Developers Limited\Media Scheduling - 9. SpreeTV\Spree.xml" For Output As #1