方法一
Private Declare Function OpenClipboard Lib “user32” (ByVal hWnd As Long) As Long

Private Declare Function CloseClipboard Lib “user32” () As Long

Private Declare Function EmptyClipboard Lib “user32” () As Long

Public Sub JustEmptyClipboard()

OpenClipboard (0)
EmptyClipboard
CloseClipboard
End Sub
 
Application. CutCopyMode= False
                    方法一Private Declare Function OpenClipboard Lib “user32” (ByVal hWnd As Long) As LongPrivate Declare Function CloseClipboard Lib “user32” () As LongPrivate Declare Function EmptyClipboard Lib “user32” () As LongPublic Sub JustEmptyClipboard()OpenClipboa
				
VBA操作剪切板一，利用MsForms.DataObject操作1，什么是DataObject对象2，用vba操作剪切板注意3，声明方式4，文本写入剪切板5，读取剪切板文本二，利用API操作剪切板1，用到得API函数2，写入剪切板3，读取4， 提取剪贴板所有数据格式的代码5，整理一个上面用得全部api
一，利用MsForms.DataObject操作
1，什么是DataObject对象
传输操作中使用的格式化文本数据的保留区域。 还保留 DataObject 中存储的文本块所对应的 格式 的列表
DataO
				
前几天分享了博文《如何使用VBA将变量值拷贝到剪贴板？》，有的网友觉得使用的是旁门左道，今天来个根正苗红的Windows API解决方案。
示例代码如下。
Private Declare Function GlobalAlloc Lib _
                "kernel32.dll" (ByVal wFlags As Long, _
                            ByVal dwBytes As Long) As Long
Private Declare Func