如何使用VBA实现从用户窗体文本框自动复制内容到剪贴板

你原有业务逻辑（单元格写入、工作簿保存）的代码不需要调整，剪贴板功能跑不通的核心问题集中在DataObject调用部分，具体问题点：

• SetText 传参错误：原代码中MyData.SetText UserForm1.TextBox1 直接传入控件对象而非字符串，隐式类型转换在部分Office版本下会失效，导致写入剪贴板的内容为空，必须明确取文本框的实际文本值作为参数。
• 缺少同步流程：DataObject执行PutInClipboard后如果没有触发系统事件，刚写入的内容会被系统剪贴板进程直接回收清空，表现为代码运行无报错但剪贴板没有目标内容。
• 前置引用缺失：DataObject 是Forms 2.0组件下的对象，未勾选对应引用时运行会直接报“用户定义类型未定义”的错误。

修复后可直接运行的代码片段 #

' 前置操作：在VBA编辑器的工具菜单下打开引用面板，勾选 Microsoft Forms 2.0 Object Library
Dim MyData As DataObject
Set MyData = New DataObject

' 明确取文本框的实际文本作为入参
MyData.SetText UserForm1.TextBox1.Text
' 写入系统剪贴板
MyData.PutInClipboard
' 强制系统完成剪贴板同步，避免内容被提前回收
DoEvents

Set MyData = Nothing

补充注意事项 #

• 如果这段代码写在UserForm1的自有模块内，可以省略UserForm1.前缀直接调用TextBox1，避免未加载窗体时触发自动初始化的异常。
• 部分64位Office版本存在Forms组件权限拦截，这种场景下可以直接调用Windows原生剪贴板API完成写入，不需要依赖组件引用。

内容的提问来源于stack exchange，提问作者MacroBetyár