Sendkeys方法设置对VBA工程对象模型的信任 | VBA实例教程

　　Sendkeys方法可以模拟键盘按键，其效果和直接在键盘上操作是相同的，有一些不好直接用程序实现的功能可以考虑用Sendkeys模拟按键的方法来实现，用法很简单，我们直接以例子来说明。
　　在用代码操作VBE对象时首先要设置对VBA工程对象模型访问的信任，手工操作就是在Excel选项中找信任中心-信任中心设置-宏设置里面勾选“信任对VBA工程对象模型的访问”。这个动作也可以通过快捷键来完成，“Alt+T+M+S”可以直接打开宏设置界面，“Alt+V”可以直接在“信任对VBA工程对象模型的访问”前面打勾或去掉勾，之后再回车可以将界面关掉，下面我们就看怎么用Sendkeys来模拟这个过程。
　　Sub test()
　　Application.SendKeys "%TMS%V~"
　　End Sub
　　代码相当简单，SendKeys后面的参数就是你要发送的按键，“%”代表Alt键，“%TMS”就代表按住Alt键按T、M、S，之后再按“Alt+V”，“~”代表回车键，所以整个过程就是先按了“Alt+T+M+S”，再按了“Alt+V”，最后按回车键，大功告成!｛Enter｝也可以代表回车键，但在这个代码里面如果这样用的话却没有效果，具体怎么个情况我也不清楚，感兴趣的自己研究吧。
　　+代表shift，^代表Ctrl，~代表回车。

按键	代码
BACKSPACE	{BACKSPACE}, {BS}或{BKSP}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
DEL or DELETE	{DELETE} 或 {DEL}
ENTER	{ENTER}或 ~
ESC	{ESC}
NUM LOCK	{NUMLOCK}
SCROLL LOCK	{SCROLLLOCK}
UP ARROW	{UP}
DOWN ARROW	{DOWN}
LEFT ARROW	{LEFT}
RIGHT ARROW	{RIGHT}
END	{END}
HOME	{HOME}
INS or INSERT	{INSERT} 或 {INS}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
PRINT SCREEN	{PRTSC}
WIN	^{ESC}
TAB	{TAB}
HELP	{HELP}
F1	{F1}
F2	{F2}
F3	{F3}
F4	{F4}
F5	{F5}
F6	{F6}
F7	{F7}
F8	{F8}
F9	{F9}
F10	{F10}
F11	{F11}
F12	{F12}