如何解决 Windows 文件资源管理器打开时出现的 OBJ.PutInclipboard 问题？

2024-03-09 19:41:48

在 Windows 文件资源管理器打开时解决 OBJ.PutInclipboard 问题

问题概述

在 Windows 文件资源管理器打开时，可能会遇到使用 OBJ.PutInclipboard 方法将数据放入剪贴板时出现的问题。该问题是由文件资源管理器对剪贴板的独占访问引起的。

修复方法

修复方法 1：使用 Shell.Run

一种解决方案是使用 Shell.Run 函数关闭文件资源管理器，然后将数据放入剪贴板：

Dim OBJ As New DataObject
Dim txt As String

txt = "This goes in clipboard"
OBJ.SetText txt

Shell.Run "explorer.exe /select,", vbHide

OBJ.PutInClipboard

修复方法 2：使用 SendKeys

另一种解决方案是使用 SendKeys 方法发送键击以关闭文件资源管理器窗口并放入数据：

Dim OBJ As New DataObject
Dim txt As String

txt = "This goes in clipboard"
OBJ.SetText txt

SendKeys "%{F4}"
SendKeys "%{ESC}"

OBJ.PutInClipboard

修复方法 3：使用 VBA 关闭文件资源管理器并保存窗口位置

如果需要关闭所有打开的文件资源管理器窗口并保存其位置，可以使用以下 VBA 代码：

Dim shellWindows As Object
Dim windowLocations As Collection

Set shellWindows = GetObject("Shell.Application").Windows

Set windowLocations = New Collection

For Each window In shellWindows
    If window.Name <> "回收站" And window.Visible Then
        windowLocations.Add window.Location, window.Name
        window.Close
    End If
Next window

' 将数据放入剪贴板
Dim OBJ As New DataObject
Dim txt As String

txt = "This goes in clipboard"
OBJ.SetText txt

OBJ.PutInClipboard

' 重新打开文件资源管理器窗口
For Each location In windowLocations.Keys
    Dim window As Object
    Set window = GetObject("Shell.Application").Windows.Create
    With window
        .Location = windowLocations(location)
        .Visible = True
    End With
Next location