Excel VBA：如何将用户窗体文本框显示值同步至属性？

设计时属性窗口中的文本框Value是静态的，属于窗体的设计定义，运行时对文本框的赋值只会作用于当前加载的窗体实例，不会修改设计时的属性值——这是VBA的固有机制，无法在运行时将显示值同步保存到设计时属性中（强行修改会涉及操作窗体的代码模块，存在损坏文件的风险，不推荐）。

针对你遇到的“宏调用文本框值时拿到初始值”的问题，提供以下3种可行解决办法：

解决方法1：直接从单元格读取路径（最可靠） #

既然路径原本就存储在personal.xlsb的工作表中，宏无需依赖窗体文本框，直接读取单元格值即可，彻底规避窗体状态的影响：

' 宏中获取路径的代码
Dim sharedWBPath As String
sharedWBPath = Workbooks("personal.xlsb").Worksheets("sheet").Range("A2").Value

解决方法2：用全局变量存储路径 #

在标准模块中定义公共变量，窗体加载时将路径赋值给变量，宏直接访问该变量：

1. 插入一个标准模块，添加代码：

Public g_sharedWBPath As String ' 全局变量用于存储共享工作簿路径

2. 修改窗体的Initialize事件（替代原Activate事件，确保窗体加载时就完成赋值）：

Private Sub UserForm_Initialize()
    g_sharedWBPath = Workbooks("personal.xlsb").Worksheets("sheet").Range("A2").Value
    TextBox1.Value = g_sharedWBPath ' 同步显示到文本框
End Sub

3. 宏中直接调用变量：

Dim targetPath As String
targetPath = g_sharedWBPath

解决方法3：确保宏访问已加载的窗体实例 #

如果必须通过文本框获取路径，需确保宏访问的是当前显示的窗体实例，而非默认实例的初始值：

' 宏中获取文本框值的代码
Dim targetPath As String
Dim uf As UserForm

' 遍历已加载的窗体，找到目标窗体实例
For Each uf In UserForms
    If uf.Name = "UserForm1" Then
        targetPath = uf.TextBox1.Value
        Exit For
    End If
Next uf

' 如果窗体未加载，先加载并赋值
If targetPath = "" Then
    Load UserForm1
    UserForm1.Show vbModeless ' 非模态显示，允许宏运行
    targetPath = UserForm1.TextBox1.Value
End If

注意：将原UserForm_Activate事件替换为UserForm_Initialize事件更可靠——Activate仅在窗体被激活（如从后台切换到前台）时触发，而Initialize在窗体加载时就会执行，确保值在窗体显示前已设置完成。

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