在VB或VBA中，如何调用API复制文本到剪贴板

最新推荐文章于 2024-08-06 08:48:21 发布

原创最新推荐文章于 2024-08-06 08:48:21 发布 · 1w 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#vba #api #vb #string

VB 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一种在VBA中更稳定地将文本复制到剪贴板的方法，通过调用API来替代传统的DataObject方法，提高了操作的稳定性。

部署运行你感兴趣的模型镜像

在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