[已解决]如何贴贴这个字符串

wbzxz

吕老师真是太强大啦

请问吕老师，MSForms.DataObject，这是一个什么对象啊？

吕?布

DataObject 对象

                                        

DataObject 对象是转移操作中所使用的带格式文本数据的中转区。该对象还保留了与 DataObject 中保存的各段文本相对应的MSITStore:G:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\2052\fm20.chm::/html/IDH_f3defDataFormat.htm">格式列表。

MSITStore:G:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\2052\fm20.chm::/html/f3ovwObjModel.htm">MSITStore:G:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\2052\fm20.chm::/html/images/userform.bmp" border="0"/> MSITStore:G:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\2052\fm20.chm::/html/images/parchild.bmp" border="0" alt=""/>MSITStore:G:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\2052\fm20.chm::/html/f3objDataObject.htm#f3objdataobject">MSITStore:G:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\2052\fm20.chm::/html/images/dataobj.bmp" border="0"/>

说明

DataObject 对象能够保存一段“剪贴板”文本格式的文本，并能为每种附加的文本格式（例如自定义和用户定义的格式）保存一段文本。

DataObject 对象与“剪贴板”不同。DataObject 支持与“剪贴板”及文本的拖放操作有关的命令。在开始进行与“剪贴板”有关的操作（如 GetText）或拖放操作时，与该操作有关的数据会被移到 DataObject 对象中。

DataObject 对象的工作方式与“剪贴板”很相象。如果将一串文本复制到 DataObject 对象，DataObject 对象将保存该文本。如果将相同格式的第二段文本复制到该 DataObject 对象，则 DataObject 对象将清除前一文本，并保存第二段的文本。对于每种指定的格式，它保存一段从最近一次操作得到的文本。

吕?布

插入一个用户窗体后便能在帮助中查到DataObject对象的说明.

bingodd

吕?布 发表于 2010-12-15 10:52
' 双击单元格把剪贴板里的内容写入单元格Private
                        Sub Worksheet_BeforeDoubleClick(ByVal Target As Ra ...

这个回复是正解了，但太多无用的东西在里面，我来简化一下，方便以后搜索进来看的人：
如果要搞什么引用form2.0.dll之类的麻烦操作，给谁都不能直接现用或者错误一大堆抛出来，那不是解决问题是制造问题！
以下五行就代码就可以了直接使用了：

Dim vurl As Object'定义数据类型，这里的vurl是变量名，可以按你喜欢的随便定义
Set vurl = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")'对像赋值其中的{}之间的内容是windows系统的全局统一标识符，一个字都不能错。
vurl.GetFromClipboard'这句是必须的，如果没有这句VBA就会提示“DataObject:GetText无效的FORMATETC结构”
Debug.Print vurl.GetText'其中的vurl.GetText就是剪贴版中的文本内容(字串符)
Set vurl = Nothing'这句可以不用，但用完了人家最好就释放一下吧

大灰狼1976

不用这么复杂吧。

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. Target.NumberFormatLocal = "@"
   
3. SendKeys "{F2}"
   
4. SendKeys "^v"
   
5. Cancel = True
   
6. End Sub

复制代码