使用的代码如下，以前用win7 ,excel 2007 是没有问题的，升级为win10好像就出了问题，请帮看看，谢谢！我的目的是在excel里复制出单元格的内容，然后粘贴到QQ里面
ls_temp = Str(Cells(ActiveCell.Row, 2))
Dim MyData As New DataObject
MyData.SetText ls_temp
MyData.PutInClipboard
Set MyData = Nothing
应该就是win10的问题，可能需要转码，我的是CDR里的VBA，读写剪贴板也是这样的，出现方框，如果只从剪贴板里面读取出来没问题，要是先读取，保存到变量，再从变量里读取出来，就会变成方框了，同求解决方案
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-06-12
VBA与VB还是有区别的，请楼主自己看看吧.
本回答被网友采纳
本回答被网友采纳
