ms-access - 无法使用 VBA 清除办公室剪贴板

Question

我正在使用一个函数从 Access 数据库中复制一堆图片并将它们存储到磁盘上。但是，此功能使用办公室剪贴板，大约 150 条记录后剪贴板会填满并导致程序崩溃。这是我清除剪贴板的方法

Private Declare Function apiOpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long
Private Declare Function apiEmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long
Private Declare Function apiCloseClipboard Lib "user32" Alias "CloseClipboard" () As Long

Sub EmptyClipboard()
    Call apiOpenClipboard(0&)
    Call apiEmptyClipboard
    Call apiCloseClipboard
End Sub

任何人都知道如何更有效地清除剪贴板

Answer 1

您正在使用的功能是指 Windows 剪贴板。这与 Office Clipboard 不同

我发现清除剪贴板的唯一代码是 Application.CommandBars("Clipboard").Controls(4).Execute ，但由于我禁用了办公室剪贴板(并且显然无法启用它)，我看不出这是否是实际的解决方案