VBA DataObject 传入 剪贴板 的中文字符串 无法从外部访问

萝卜L

1. Sub Text()
   
2.     Dim myData As New DataObject
   
3.     myData.SetText "啊"
   
4.     myData.PutInClipboard
   
5. End Sub
   
6. '需引用Microsoft Forms 2.0 Object Library

复制代码

以上中文字符串写入剪贴板的内容可在Excel中通过Ctrl V粘贴，但无法在如Notepad中正确粘贴——右键菜单‘粘贴’非灰色，粘贴出的内容为空。如果使用如"1a"等，在Excel中、Notepad中均正确粘贴。

请教~

zpy2

用系统 剪贴板