VBA用户窗体Textbox数据批量写入Excel报错，求解决方案

嗨，这个问题我之前处理过，咱们来拆解一下错误原因并给出修复方案：

错误分析 #

你写的循环里有两个关键问题：

1. i.Value是错误用法：i是Integer类型的普通变量，不是对象，它没有Value属性，直接使用i就能获取它的数值。
2. 字符串拼接无法直接引用控件："Textbox" & i只是生成了一个字符串（比如"Textbox1"），但这不是真正的控件对象，自然无法访问.Value属性。要引用UserForm上的控件，必须通过窗体的Controls集合来获取对应的控件实例。

修复后的代码 #

假设这段代码是写在UserForm的代码模块里（比如按钮的点击事件中），正确的写法如下：

Dim i As Integer
For i = 1 To 59
    ' 通过Me.Controls获取对应名称的TextBox控件，再取其Value
    ThisWorkbook.Sheets("目标工作表名").Cells(1, i).Value = Me.Controls("Textbox" & i).Value
Next i

额外提示 #

• 如果你不确定TextBox的命名是否完全是Textbox1到Textbox59，可以在UserForm的设计视图里检查控件的Name属性，确保和代码里的字符串拼接结果一致（VBA里控件名称不区分大小写，但尽量保持一致避免意外）。
• 建议加上明确的工作表引用（比如ThisWorkbook.Sheets("目标工作表名")），而不是直接用Cells，这样可以避免因为当前活动工作表不是目标表而导致数据写到错误的地方。

内容的提问来源于stack exchange，提问作者Ting Fung Li