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

Question

Workbooks.Open Filename:="C:DesktopVBAPhase 1A.xlsx"

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

Answer 1

您可以通过

多种方式做到这一点，请选择适合您的一种-

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

---

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