发送密钥和 AppActivate

Question

方法：

我正在使用 SendKeys 和虚拟键盘的组合将击键发送到作为应用程序存储在 Citrix 上的核心管理系统。 VBA 代码使用 AppActivate & Application.ActiveWindow 方法识别应用程序。

目标：

我的目标是让用户将数据输入 excel 电子表格并使用 VBA 代替用户手动键入将数据发送到核心管理系统。

问题：

我的问题很多，但截至目前，我正在努力将 Ctrl + f 发送到核心管理系统应用程序。它似乎无法识别笔划，但是，单独发送 f 或输入 "keybd_event VK_RETURN, mvk, 0, 0" 似乎有效。此外，"keybd_event VK_CONTROL, mvk, 0, 0" 似乎很有希望，但在运行.

时出现 "Overflow" 错误

代码（到目前为止）：

Option Explicit


Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, 
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare PtrSafe Function MapVirtualKey Lib "user32" Alias " 
MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Const VK_RETURN = &HD
Private Const VK_CONTROL = &HD11
Private Const KEYEVENTF_KEYUP = &H2



Sub pleasework5()

Dim keys As String
Dim wsh As Object
Dim mvk As Double

Set wsh = CreateObject("WScript.Shell")
mvk = MapVirtualKey(VK_RETURN, 0)
AppActivate ("application name") 'use form to enter username
Application.ActiveWindow.Activate
Application.Wait Now() + TimeValue("00:00:05")
'keybd_event VK_CONTROL, mvk, 0, 0
wsh.SendKeys ("^f"), True

请告诉我如何将 Ctrl + f 发送到系统应用程序，或者是否有更好的方法。

谢谢！

Answer 1

我希望您现在已经找到了解决方案。但是，这是我发送 Ctrl + L

的方法

SendKeys "(^l)"

希望对您有所帮助

发送密钥和 AppActivate

Send Keys & AppActivate

excel

vba

keyevent

sendkeys

active-window