如何通过VBA将Word文本框值链接至现有Excel指定单元格

前置准备步骤 #

• 打开Word的VBA编辑器（快捷键Alt+F11），定位到存放原有SpinButton联动代码的代码页（一般是嵌入控件的文档画布代码页，不是普通标准模块）
• 在VBA编辑器顶部菜单栏点击「工具」→「引用」，勾选「Microsoft Excel X.0 Object Library」（版本号对应你本地安装的Office版本即可，如2016及以后为16.0，2013为15.0），点击确定。这一步必须配置，否则代码会报“用户定义类型未定义”的运行错误
• 删除原有仅实现文本框和旋转按钮联动的旧代码，替换为下方的自定义功能代码

核心可运行代码 #

' 定义全局Excel操作对象，避免重复创建进程
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet

Private Sub SpinButton1_Change()
    ' 保留原有逻辑：旋转按钮值变更时同步更新Word文本框
    TextBox1.Text = SpinButton1.Value

    ' ====== 自定义参数区，请根据实际需求替换 ======
    Const EXCEL_FILE_PATH As String = "C:\你的本地文件夹\目标Excel文件.xlsx"
    Const TARGET_SHEET_NAME As String = "Sheet1"
    Const TARGET_CELL As String = "A1"
    ' ============================================

    On Error Resume Next
    ' 尝试获取已运行的Excel进程
    Set xlApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        ' 无已运行的Excel进程时，后台新建无窗口Excel实例
        Set xlApp = New Excel.Application
        xlApp.Visible = False
    End If
    Err.Clear

    ' 绑定目标Excel工作簿，文件已打开时直接关联不重复打开
    Set xlWb = xlApp.Workbooks.Open(EXCEL_FILE_PATH, ReadOnly:=False)
    If Err.Number <> 0 Then
        MsgBox "找不到目标Excel文件，请检查路径填写是否正确", vbExclamation
        ' 清理无意义的后台Excel进程
        If Not xlApp Is Nothing Then
            xlApp.Quit
            Set xlApp = Nothing
        End If
        Exit Sub
    End If

    ' 绑定目标工作表
    Set xlWs = xlWb.Worksheets(TARGET_SHEET_NAME)
    If Err.Number <> 0 Then
        MsgBox "找不到名为【" & TARGET_SHEET_NAME & "】的工作表", vbExclamation
        xlWb.Close SaveChanges:=False
        ' 仅关闭自己新建的后台Excel进程，不影响用户手动打开的文件
        If xlApp.UserControl = False Then
            xlApp.Quit
        End If
        Set xlWs = Nothing
        Set xlWb = Nothing
        Set xlApp = Nothing
        Exit Sub
    End If

    ' 核心同步逻辑：将旋转按钮当前值写入目标单元格
    xlWs.Range(TARGET_CELL).Value = SpinButton1.Value
    ' 自动保存工作簿，避免修改丢失
    xlWb.Save

    ' 清理内存占用
    Set xlWs = Nothing
    Set xlWb = Nothing
    ' 仅关闭后台新建的Excel进程，用户手动打开的Excel进程保留
    If xlApp.UserControl = False Then
        xlApp.Quit
    End If
    Set xlApp = Nothing
    On Error GoTo 0
End Sub

使用注意事项 #

• 自定义参数区的内容必须替换为实际信息：Excel文件需填写完整的绝对路径，不能只写文件名；工作表名、单元格地址需和实际文件内的命名完全一致
• 操作前需启用Word的宏权限：如果文档顶部弹出安全警告栏，选择「启用内容」，否则代码不会执行
• 代码内置了异常兜底：路径错误、工作表不存在时会弹出明确提示，不会直接崩溃
• 做了防误操作逻辑：不会随意关闭用户手动打开的其他Excel文件，后台新建的实例完成操作后会自动退出，不会在任务栏残留多余窗口
• 目标Excel文件如果设置了打开密码，需要在Workbooks.Open方法中补充密码参数，否则会弹出文件密码输入框

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