如何在vba中用api函数操作剪贴板Clipboard？

2018年3月20日作者：水星Excel

88,933 次浏览 22条评论

用api函数操作剪贴板Clipboard主要集中在读取剪贴板数据和将数据写入剪贴板两种。

用api函数将数据写入剪贴板主要的步骤为：

1.用GlobalAlloc函数分配内存空间

2.用GlobalLock函数锁定分配的内存空间

3.用CopyMemory函数将要写入的数据复制到分配的内存空间

4.用GlobalUnlock函数解锁内存空间

5.用OpenClipboard函数打开剪贴板

6.用EmptyClipboard函数清空剪贴板

7.用SetClipboardData函数设置剪贴板的数据格式和关联步骤1-4中分配的内存空间

8.用CloseClipboard函数关闭剪贴板

如以下是一个将字符串“我和你”复制到剪贴板中的代码：

Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function SetClipboardData Lib "user32" (ByVal Format As Long, ByVal hMem As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal Flags As Long, ByVal length As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal pDest As Long, ByVal pSource As Long, ByVal length As Long)
Const CF_TEXT = 1
Const CF_UNICODETEXT = 13
Const GHND = &H42
Sub QQ1722187970()
    Dim str1 As String
    '要放到剪贴板中的字符串
    str1 = "我和你"
    Dim hMem As Long
    '内存对象的句柄
    hMem = GlobalAlloc(GHND, LenB(str1) + 2)
    Dim lHwnd As Long
    '锁定内存块，获取内存对象的第一个字节的内存地址
    lHwnd = GlobalLock(hMem)
    '将字符串至于剪贴板内存中
    CopyMemory lHwnd, StrPtr(str1), LenB(str1) + 2
    '解锁内存块
    GlobalUnlock (hMem)
    OpenClipboard (0)
    EmptyClipboard
    '关联剪贴板对象到指定的内存句柄
    SetClipboardData CF_UNICODETEXT, hMem
    CloseClipboard
    Debug.Print VBA.Hex(lHwnd), VBA.Hex(StrPtr(str1))
End Sub

用api函数将数据读取剪贴板数据的主要步骤为：

1.用OpenClipboard函数打开剪贴板

2.用GetClipboardData函数获取要读取的数据所在的内存对象的句柄

3.用GlobalLock函数锁定获得的内存对象，并返回内存对象的第一个内存字节的地址

4.用GlobalSize函数获得实际存储数据的字节数

5.用CopyMemory函数将剪贴板内存对象中的数据读取到变量中

6.用CloseClipboard函数关闭剪贴板

以下代码是读取上面的写入剪贴板的数据：

Sub QQ1722187970()
    '定义一个字符串变量用于存放从剪贴板中获得数据
    Dim str1 As String
    OpenClipboard (0)
    Dim hMem As Long
    hMem = GetClipboardData(CF_UNICODETEXT)
    Dim lHwnd As Long
    lHwnd = GlobalLock(hMem)
    Dim bSize As Long
    bSize = GlobalSize(hMem)
    '设置缓冲区
    str1 = Space(bSize / 2)
    CopyMemory StrPtr(str1), lHwnd, bSize
    MsgBox str1
    CloseClipboard
End Sub

其它相关文章推荐：

分类 : VBA , 剪贴板

标签 : CopyMemory , GetClipboardData , GlobalLock , GlobalSize , SetClipboardData

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

仅有1条评论发表评论

Rigidtin / 2024年10月15日上午8:19

Europe, and in Ancient Russia
Linksysxec / 2024年4月7日上午7:41

XVII century was Nicholas Jarry [fr].
JorgeIroma / 2023年12月14日上午11:42

Russia is increasing its exports https://global.nevmez.com/
CHIRPozr / 2023年7月16日上午3:46

(palimpsests). In the XIII-XV centuries in
Independentaok / 2023年6月9日上午7:39

consists of the book itself
Candytyf / 2022年6月20日下午4:52

from lat. manus – “hand” and scribo – “I write”) [1]
inexpert / 2021年11月18日下午1:41

Imitation Thermo Limbo https://theguardian.ardencotemanor.biz/17.html Trevor Moss Hannah Lou Trevor Moss Hannah Lou
Artisanvrb / 2021年9月22日下午1:59

Century to a kind of destruction:
Yamahaipn / 2021年9月6日下午7:28

XVII century was Nicholas Jarry [fr].
Vortexrto / 2021年8月28日上午5:53

handwritten books were made,
Maura / 2021年7月30日上午2:38

First of all I would like to say awesome blog! I had a quick question which I’d like to ask if you
don’t mind. I was interested to find out how you center yourself
and clear your thoughts before writing. I’ve had a tough time clearing my mind in getting my ideas
out. I do enjoy writing however it just seems like the
first 10 to 15 minutes are lost just trying
to figure out how to begin. Any ideas or hints?
Kudos!
KitchenAidgkm / 2021年7月28日上午2:38

new texts were rewritten
Weaponjuh / 2021年7月26日下午12:17

55 thousand Greek, 30 thousand Armenian
Isaac / 2021年7月25日上午4:43

Thanks for finally talking about > 如何在vba中用api函数操作剪贴板Clipboard？ – VBA – ExcelOffice【微信公众号：水星Excel】
< Loved it!
Ascentfwx / 2021年4月13日上午9:56

XVII century was Nicholas Jarry [fr].
Weaponcxo / 2021年3月26日下午12:19

handwritten books were made,
Holographicwjj / 2021年3月7日下午2:00

scroll. Go to Code Form
Flashpaqgqq / 2021年1月21日上午2:40

XVII century was Nicholas Jarry [fr].
Keypadanuf / 2021年1月10日下午3:53

XVII century was Nicholas Jarry [fr].
Telecasternmo / 2021年1月9日下午2:59

XVII century was Nicholas Jarry [fr].
Clamcasepxg / 2021年1月5日下午2:19

monuments related to deep
Securitykph / 2021年1月1日下午4:50

number of surviving European