在VB或VBA中,如何调用API复制文本到剪贴板
来源:互联网 发布:js集合添加元素 编辑:程序博客网 时间:2024/05/22 03:30
在VBA中经常使用以下语句,来复制文本到剪贴板,但有时会出错。
Dim MyData As New DataObject
MyData.SetText sData, 1
MyData.PutInClipboard
为了复制文本到剪贴板更加稳定,应该调用API来处理:
'复制文本到剪贴板
Public Sub CopyTextToClip(sData As String)
If CBool(OpenClipboard(0)) Then
Dim hMemHandle As Long, lpData As Long
hMemHandle = GlobalAlloc(0, LenB(sData) + 2)
If CBool(hMemHandle) Then
lpData = GlobalLock(hMemHandle)
If lpData <> 0 Then
CopyMemory ByVal lpData, ByVal sData, LenB(sData)
GlobalUnlock hMemHandle
EmptyClipboard
SetClipboardData CF_TEXT, hMemHandle
End If
End If
Call CloseClipboard
End If
End Sub
- 在VB或VBA中,如何调用API复制文本到剪贴板
- 复制文本到剪贴板
- Android中如何复制内容到剪贴板
- vbs复制文本到剪贴板
- java 复制文本到剪贴板
- js复制文本到剪贴板
- 将文本中的内容复制到剪贴板中
- VS中C#复制、粘贴文本信息到剪贴板
- C#WinForm中复制、粘贴文本到剪贴板
- VB.NET中制作COM_DLL在VBA、VB中调用
- 如何复制文件到剪贴板
- 如何在VB中打开一个Excel文件并调用Excel文件自身的VBA宏?
- C#复制、粘贴文本信息到剪贴板
- C#复制、粘贴文本到剪贴板
- C#复制、粘贴文本信息到剪贴板
- C#复制、粘贴文本信息到剪贴板
- C#复制、粘贴文本到剪贴板
- [小代码]复制文本到剪贴板
- SQL蠕虫防火墙当前无法遏止的病毒
- JavaScript窗口功能指南之操纵窗口
- [学习笔记]二进制数据的处理(1) 普通二进制数据处理 A -------保存到数据库
- 第一次安装水晶头
- vs2005c++下使用部分activex控件概述及问题1
- 在VB或VBA中,如何调用API复制文本到剪贴板
- 一点感触
- SQL Server 管理常用的SQL和T-SQL
- PHP+Javascript液晶时钟
- [学习笔记]二进制数据的处理(1) 普通二进制数据处理 B -------读取数据库中二进制数据
- SQL Server 2000桌面引擎默认配置空口令漏洞
- JavaScript和Java的区别
- 我的博客第一篇文章
- MS SQL SERVER2005 XML 最佳实践