能否通过Python读取Excel UserForm中文本框（TextBox）的值？

你之前的两种代码都存在概念错误，以下是问题分析和解决方案：

错误原因 #

• 代码1：你操作的是工作表中的形状文本框（属于Sheet的Shapes集合），但你要获取的是VBA用户窗体（UserForm）里的文本框控件，两者完全不是同一类对象。
• 代码2：UserForm是VBA工程的独立对象，不属于工作表（Sheets）集合，所以wb.sheets["UseForm1"]根本找不到目标窗体。

正确实现方式 #

xlwings无法直接访问VBA用户窗体的控件，需要通过VBA作为中间层传递数据，以下是两种可行方案：

方案1：Python调用VBA函数获取文本框值 #

1. 打开Excel的VBA编辑器（Alt+F11），在对应的模块中添加以下函数：

Function GetUserFormTextBoxValue() As String
    ' 确保UserForm1已加载，若未加载可先调用UserForm1.Show vbModeless
    GetUserFormTextBoxValue = UserForm1.TextBox1.Value
End Function

2. 在Python中调用该VBA函数：

import xlwings as xw

def get_textbox_value():
    wb = xw.Book.caller()
    # 调用VBA函数获取文本框值
    text = wb.api.Run("GetUserFormTextBoxValue")
    # 将值写入工作表A1单元格
    wb.sheets["Sheet1"].range("A1").value = text

方案2：VBA触发Python函数并传递文本框值 #

1. 在Python中定义接收参数的函数：

import xlwings as xw

@xw.sub
def process_text_value(text):
    wb = xw.Book.caller()
    wb.sheets["Sheet1"].range("A1").value = text

2. 在VBA用户窗体的按钮点击事件中调用Python函数，传递文本框值：

Private Sub CommandButton1_Click()
    ' 调用Python函数并传入文本框内容
    RunPython "import your_script; your_script.process_text_value('" & TextBox1.Value & "')"
End Sub

注：your_script是你的Python脚本文件名（不含.py后缀）。

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