vbs脚本如何通过调用excel来判断键盘按键事件

vbs如何探测键盘？~

涉及鼠标键盘动作的模拟与检测，建议使用AutoIt，很方便。
VBS实现会比较复杂。

比如键盘操作，注册热键x，检测到x键被按下了，就执行对应的函数：
HotKeySet("x", "myAction")
Func myAction()
MsgBox(0, "x", "x")
EndFunc

AutoIt里的MsgBox用法：
MsgBox (flag, "title", "text")

Dim wshSet wsh = CreateObject("WScript.Shell")wsh.Exec "c:\123\a.exe"Wscript.Sleep 1000WshShell.SendKeys "i"说明（逐行）
声明 wsh
定义 wsh
运行c:\123\a.exe
等待1000毫秒（即1秒），目的是等a.exe启动完成
模拟按键i

是指这个？
OnKey 方法
参阅应用于示例特性当按特定键或特定的组合键时运行指定的过程。

expression.OnKey(Key, Procedure)
expression 必需。该表达式返回一个 Application 对象。

Key String 类型，必需。用于表示要按的键的字符串。

Procedure Variant 类型，可选。表示要运行的过程名称的字符串。如果 Procedure 参数为空文本 ("")，则按 Key 时不发生任何操作。OnKey 方式将更改击键在 Microsoft Excel 中产生的正常结果。如果省略 Procedure 参数，则 Key 产生 Microsoft Excel 中的正常结果，同时清除先前使用 OnKey 方法所做的特殊击键设置。

说明
Key 参数可指定任何与 Alt、Ctrl 或 Shift 组合使用的键，还可以指定这些键的任何组合。每一个键可由一个或多个字符表示，比如 "a" 表示字符 a，或者 "{ENTER}" 表示 Enter。

若要指定按对应的键（例如 Enter 或 Tab）时的非显示字符，请使用下表所列出的代码。表中的每一代码代表键盘上的一个对应键。

键 代码

Backspace {BACKSPACE} or {BS}
Break {BREAK}
Caps Lock {CAPSLOCK}
Clear {CLEAR}
Delete 或 Del {DELETE} 或 {DEL}
End {END}
Enter ~（波形符）
Enter（数字小键盘） {ENTER}
Esc {ESCAPE} 或 {ESC}
F1 到 F15 {F1} 到 {F15}
Help {HELP}
Home {HOME}
Ins {INSERT}
Num Lock {NUMLOCK}
Page Down {PGDN}
Page Up {PGUP}
Return {RETURN}
Scroll Lock {SCROLLLOCK}
Tab {TAB}
向上键 {UP}
向下键 {DOWN}
向右键 {RIGHT}
向左键 {LEFT}

还可指定与 Shift 和/或 Ctrl 和/或 Alt 组合使用的键。若要指定与其他键组合使用的键，可使用下表。

要组合的键 在键代码之前添加
Shift +（加号）
Ctrl ^（插入符号）
Alt %（百分号）

若为特定字符指定处理过程（如 +、^、% 等等），可将此字符用圆括号括起。有关详细信息，请参阅示例。

示例
本示例为 Ctrl+ 加号分配“InsertProc”过程，并为 Shift+Ctrl+ 向右键分配“SpecialPrintProc”过程。

Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

本示例将 Shift+Ctrl+ 向右键重新设为正常的含义。

Application.OnKey "+^{RIGHT}"

本示例将 Shift+Ctrl+ 向右键设为不发生任何操作。

Application.OnKey "+^{RIGHT}", ""

---

嫩江县14792208623： 如何使用VBS脚本程序读EXCEL文件,有没有具体流程? - ？
撒录禾通： 如果是XP系统,可以使用如下代码 VBS控制Excel的一些常见方法: (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: oExcel = CreateObject( ＂Excel.Application＂ ) 1) 添加新工作簿: oExcel.WorkBooks.Add 2) 打开已存在的...

嫩江县14792208623： VBS 环境下如何调用EXCEL内置函数 - ？
撒录禾通： 前面加WorksheetFunction即可,例如 WorksheetFunction.VLOOKUP 不过有些是用不了的,你这三个我看了一下都是可以用的.

嫩江县14792208623： 如何利用VBS运行EXCEL中的宏？
撒录禾通： 点击“工具→宏→宏” 或 ALT+F8

嫩江县14792208623： vbs脚本如何通过调用excel来判断键盘按键事件 - ？
撒录禾通： 是指这个?OnKey 方法 参阅应用于示例特性当按特定键或特定的组合键时运行指定的过程.expression.OnKey(Key, Procedure) expression 必需.该表达式返回一个 Application 对象.Key String 类型,必需.用于表示要按的键的字符串....

嫩江县14792208623： 如何用VBS脚本把WINCC内部变量的值写入EXCEL - ？
撒录禾通： wincc的时候返回一个值给main,然后使用VBS调用执行后得到这个返回值,创建excel对象,然后使用cells写入对应单元格 VBSSet objExcel=CreateObject(＂Excel.Application＂) Scriptpath = WScript.ScriptFullName set objWorkbook=objExcel.Workbooks.Open(FilePath) objExcel.Visible=True objExcel.Cells(1,2)=内部变量值

嫩江县14792208623： vbs或者vb操作excel - ？
撒录禾通： 我很在行这样的文件处理,但是你提供的信息不完整.我给你个大致的思路. 确保若打开某一文件,数据就能看见——即不用点其他sheet.建一新Excel,也存到该文件夹.仅打开该新Excel,同时按Alt和F11进入宏界面,点菜单的插入,模块,...

嫩江县14792208623： VBS怎么读取EXCEL中工作表的数目 - ？
撒录禾通： dim a as worksheet for each a in worksheets a.activate cells.select selection.copy workbooks.add cells.select activesheet.paste activeworkbook.saveas filename:= _ thisworkbook.path & ＂\＂ & a.name & ＂.xls＂, fileformat:=xlnormal, _ password:=...

嫩江县14792208623： 如何在vbs文件中调用excel中的sub - ？
撒录禾通： Set a = WScript.CreateObject(＂Excel.Application＂) a.run (＂'d:\test.xls'!testmacro＂) 这个路径 'd:\test.xls'! 很重要,没写文件路径是运行不了的,不过这样还要设置一下 excel 宏安全级别为低 才能顺利运行,要不改 excel 安全级别的话,就得...

嫩江县14792208623： 如何使用VBS替换EXCEL中的文字 - ？
撒录禾通： 看你提供的部分代码是想用VBS的正则表达式,来完成你的要求,但我不清楚你的EXCELL样表的形式是什么样的,你如果希望问题能得到大家的帮助,最好把样表的初始图片和你需要的结果图片一并发上来看看!这样大家回答你的问题效果能好些!(你的问题是需要VBS,还是vba实现呢?)

嫩江县14792208623： vbs激活已经打开的excel表格问题 - ？
撒录禾通： 你问的可能是同一个问题: '==================方法1:通过剪切板=============== set fso=CreateObject(＂Scripting.FileSystemObject＂) set fr=fso.opentextfile(＂123.txt＂,1) data=fr.readall Set objIE = CreateObject(＂InternetExplorer....