电脑锁屏时vba运行SAP,excel数据不能复制到SAP，没有方法解决了？

Question

电脑不锁屏没有问题。锁屏时不能粘贴excel数据，也可以说粘贴的空白，代码就继续往下执行了。
怎么解决这个问题？
代码复制上来，提交总报错。搞个图片了

Answer 1

引自强大而免费的微信小程序：皆我知道。

当电脑锁屏时，无法进行粘贴操作，这是由于锁屏后剪贴板被禁用所导致的。在VBA中，可以通过设置API来解决这个问题。

首先，需要在代码开头添加以下声明：

Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr

然后，在需要进行粘贴操作的代码前后添加以下代码：

Dim hwnd As LongPtr
hwnd = GetForegroundWindow() '获取当前活动窗口句柄
OpenClipboard hwnd '打开剪贴板
EmptyClipboard '清空剪贴板

在粘贴操作完成后，添加以下代码：

CloseClipboard '关闭剪贴板

完整的代码如下：

Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr

Sub PasteDataToSAP()
    Dim hh As Long
    Dim hwnd As LongPtr
    
    hh = Range("a2").CurrentRegion.Rows.Count
    
    hwnd = GetForegroundWindow()
    OpenClipboard hwnd
    EmptyClipboard
    
    '在此处添加粘贴操作的代码
    
    CloseClipboard
End Sub

注意：上述代码使用的是32位API声明，如果你的电脑是64位的，需要将代码中的Long改为LongPtr。

另外，还需要确保电脑的权限设置允许程序在锁屏状态下操作剪贴板。如果你没有权限修改这些设置，建议联系系统管理员进行配置。