[求助]如何把acc中剪贴板的内容存为一个变量？

wu8313

把acc中某个文本框中的内容，比如sdfg，使用 鼠标选中 dfg 以后，然后 复制，如何把 dfg 存为一个变量？



使用 剪贴板 作为关键词 搜索到一些帖子，可是总不得要领。

谢谢！！

[此贴子已经被作者于2006-11-5 19:53:16编辑过]

fan0217

模糊查询，我在论坛上发表了一种方法，使用很简单的，功能也很强大，不在乎是什么数据类型，都可以使用的。

http://www.office-cn.net/forum.php?mod=viewthread&tid=44013&replyID=&skin=1

wu8313

以下是引用fan0217在2006-11-5 19:59:00的发言：


不明白你的意思，干吗非要到剪贴板转一圈呢？ 剪贴板中的数据类型很复杂，不单单是数字，或文本。

声明一个变量，然后赋值就可以了。

dim strTmp as string

sub Main()

strTmp=me.text1

end sub

我不是要得到 整个 text1，而是 text1 的一部分。

在复制前，我打算 清空 剪贴板 。至于 数据类型 的问题，转换一下再说。

===========================

我的最终目的是，选中 text1 的一部分，复制后传送到 一个变量 ，一律 转化该 变量的数据类型 为string ,然后使用

filter 方法进行模糊筛选。

wu8313

已经 手工注册 了 fm20.dll 库，还是引用丢失。

在这里已经手工注册了。


可是在这里我看不到 引用。

以 M  开头的引用并没有 Microsoft Forms2.0 Object Library

[此贴子已经被作者于2006-11-6 19:49:03编辑过]

fan0217

发送文本到剪贴板的函数

Function SendToScrap(strSendText As String) As Boolean
'===============================================================================
'-函数名称:         SendToScrap
'-功能描述:         发送文本到剪贴板
'-输入参数说明:     必选：strSendText As String 发送的文本
'-返回参数说明:     发送成功：True  发送失败：False
'-使用语法示例:     SendToScrap("你好！")
'-参考:
'-使用注意:         需要引用Microsoft Forms2.0 Object Library (%system32%\FM20.DLL)
'-兼容性:
'-作者:             fan0217 fan0217@163.com
'-更新日期：        2006-02-24
'===============================================================================
On Error GoTo Err_SendToScrap
Dim tmpData As New DataObject
    tmpData.SetText strSendText
    tmpData.PutInClipboard
   
    SendToScrap = True

Exit_SendToScrap:
    Exit Function

Err_SendToScrap:
    SendToScrap = False
    MsgBox Err.Description
    Resume Exit_SendToScrap
      

fan0217

不明白你的意思，干吗非要到剪贴板转一圈呢？ 剪贴板中的数据类型很复杂，不单单是数字，或文本。

声明一个变量，然后赋值就可以了。

dim strTmp as string

sub Main()

strTmp=me.text1

end sub

[此贴子已经被作者于2006-11-5 20:01:22编辑过]