vbs调用WinApi函数执行Windows快捷键

lss001

https://blog.csdn.net/weixin_30889885/article/details/97699269
'可参考以上链接
'把以下代码保存为vbs文件

Call RunStr
Sub RunStr()
    Set eApp = CreateObject("excel.application") '创建excel对象
    Set wb = eApp.Workbooks.Add '添加表格
    Set vbaBas = wb.VBProject.VBComponents.Add(1) '添加模块
   'winApi函数
    str1 = "Private Declare Sub keybd_event Lib ""user32.dll"" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)"

    With vbaBas.CodeModule '添加模块代码
        .InsertLines 1, str1 '添加winapi函数
        .InsertLines 3, "Sub myMacro()"
        .InsertLines 4, "    keybd_event &H5B, 0, 0, 0"
        .InsertLines 5, "    keybd_event &H12, 0, 0, 0"
        .InsertLines 6, "    keybd_event &H47, 0, 0, 0"
        .InsertLines 7, "    keybd_event &H47, 0, 2, 0"
        .InsertLines 8, "    keybd_event &H12, 0, 2, 0"
        .InsertLines 9, "    keybd_event &H5B, 0, 2, 0"
        .InsertLines 11, "End Sub"
    End With

    eApp.Run "myMacro" '执行代码
    wb.VBProject.VBComponents.Remove vbaBas '删除模块
    wb.Saved = True '忽略保存提示！
    wb.Close '关闭表格
    eApp.Quit '退出excel
    Set vbaBas = Nothing '释放对象
    Set wb = Nothing
    Set eApp = Nothing
End Sub

'虚拟键盘参考链接
https://learn.microsoft.com/zh-cn/windows/win32/inputdev/virtual-key-codes

perfect131

其实，可以这么简单
https://club.excelhome.net/threa ... tml?_dsign=a15d8c7d

https://club.excelhome.net/threa ... tml?_dsign=b0827f11

lss001

perfect131 发表于 2024-7-3 12:52
其实，可以这么简单
https://club.excelhome.net/threa ... tml?_dsign=a15d8c7d

以前有看到你的帖子，现在就是想提供一下另外的一个方法？

perfect131

lss001 发表于 2024-7-3 13:05
以前有看到你的帖子，现在就是想提供一下另外的一个方法？

学习了 新姿势