如何在MS Project的VBA中实现用户路径设置的持久化展示？

Got it, let's tackle this problem where you need to save a user-input path in MS Project VBA and have it automatically populate when the form loads again. Based on your workflow (save path in one session, retrieve it when reopening the same project), here are the most practical approaches:

方案1：利用MS Project文件的自定义属性（推荐） #

This approach binds the saved path directly to your Project file, so it will only load when you open that specific project—perfect for your use case.

步骤1：保存用户输入的路径（按钮点击事件） #

Add this code to your form's "Save" button (cmdSave) click event:

Private Sub cmdSave_Click()
    ' 先验证输入有效性
    If Me.txtFilePath.Value = "" Then
        MsgBox "请输入有效的路径！", vbExclamation
        Exit Sub
    End If
    
    ' 为当前项目添加/更新自定义属性
    Dim prop As CustomProperty
    On Error Resume Next
    Set prop = ActiveProject.CustomProperties("SavedFilePath")
    On Error GoTo 0
    
    If prop Is Nothing Then
        ' 属性不存在则新建
        ActiveProject.CustomProperties.Add Name:="SavedFilePath", _
            LinkToContent:=False, Type:=pjText, Value:=Me.txtFilePath.Value
    Else
        ' 属性已存在则更新值
        prop.Value = Me.txtFilePath.Value
    End If
    
    ' 保存项目确保属性持久化
    ActiveProject.Save
    
    ' 关闭表单
    Unload Me
End Sub

步骤2：加载保存的路径（表单初始化事件） #

Add this code to your form's Initialize event to auto-populate the path when the form opens:

Private Sub UserForm_Initialize()
    Dim prop As CustomProperty
    On Error Resume Next
    Set prop = ActiveProject.CustomProperties("SavedFilePath")
    On Error GoTo 0
    
    If Not prop Is Nothing Then
        ' 用保存的路径填充文本框
        Me.txtFilePath.Value = prop.Value
    Else
        ' 未保存过路径则留空
        Me.txtFilePath.Value = ""
    End If
End Sub

提示: 请确保你的用户表单中有一个名为txtFilePath的文本框和名为cmdSave的命令按钮，与代码中的控件名称对应。

方案2：使用Windows注册表（全局路径，所有项目共用） #

如果希望所有MS Project文件都加载同一个路径，可以用Windows注册表存储值（无需管理员权限）。

保存路径代码 #

Private Sub cmdSave_Click()
    If Me.txtFilePath.Value = "" Then
        MsgBox "请输入有效的路径！", vbExclamation
        Exit Sub
    End If
    
    ' 写入当前用户专属的注册表项
    Dim regKey As String
    regKey = "HKEY_CURRENT_USER\Software\MyMSProjectTools\Settings\"
    CreateObject("WScript.Shell").RegWrite regKey & "SavedFilePath", Me.txtFilePath.Value, "REG_SZ"
    
    Unload Me
End Sub

加载路径代码 #

Private Sub UserForm_Initialize()
    Dim regKey As String
    regKey = "HKEY_CURRENT_USER\Software\MyMSProjectTools\Settings\"
    Dim shellObj As Object
    Set shellObj = CreateObject("WScript.Shell")
    
    ' 读取注册表值（键不存在时忽略错误）
    On Error Resume Next
    Me.txtFilePath.Value = shellObj.RegRead(regKey & "SavedFilePath")
    On Error GoTo 0
    
    Set shellObj = Nothing
End Sub

方案3：本地文本文件（简单无依赖） #

如果想要快速实现、无需依赖Project对象或注册表，可以将路径保存到用户文档目录下的文本文件中。

保存路径代码 #

Private Sub cmdSave_Click()
    If Me.txtFilePath.Value = "" Then
        MsgBox "请输入有效的路径！", vbExclamation
        Exit Sub
    End If
    
    ' 保存到用户文档目录下的文本文件
    Dim saveFile As String
    saveFile = Environ("USERPROFILE") & "\Documents\MSProject_SavedPath.txt"
    
    Open saveFile For Output As #1
    Print #1, Me.txtFilePath.Value
    Close #1
    
    Unload Me
End Sub

加载路径代码 #

Private Sub UserForm_Initialize()
    Dim saveFile As String
    saveFile = Environ("USERPROFILE") & "\Documents\MSProject_SavedPath.txt"
    
    ' 文件存在则加载路径
    If Dir(saveFile) <> "" Then
        Open saveFile For Input As #1
        Line Input #1, Me.txtFilePath.Value
        Close #1
    Else
        Me.txtFilePath.Value = ""
    End If
End Sub

推荐选择 #

方案1最贴合你的工作流，因为它将保存的路径与具体Project文件绑定，不会混淆不同项目的设置，也无需管理外部文件或注册表项。

内容的提问来源于stack exchange，提问作者climivin