无法执行宏 - 找不到错误“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