Vba代码从特定路径打开文件，该路径适用于除temp之外的每个用户

Question

Workbooks.Open Filename:="C:\Desktop\VBA\Phase 1\A.xlsx"

如何从桌面或任何用户的文档中打开文件。

Answer 1

您可以通过多种方式选择适合您的方式 -

Option Explicit
Public Sub Example()
    Dim FilePath As String
    FilePath = CreateObject("WScript.Shell") _
                  .specialfolders("Desktop") & "\VBA\Phase 1\A.xlsx"
    Debug.Print FilePath
End Sub

Option Explicit
Public Sub Example2()
    Dim FilePath As String
    FilePath = Environ("USERPROFILE") & "\Desktop\VBA\Phase 1\A.xlsx"
    Debug.Print FilePath
End Sub