问题描述
在一个按钮上,单击“我正在尝试打开现有文档”,然后在打开文档后,使用发送键模拟转到“查看”>“检查可访问性”。我怀疑这可能与sendkeys的语法有关,因为在文档中单独尝试Document_Open将不起作用(可能首先需要选择窗口?),或者在Shell打开文件资源管理器后无法调用Document_Open的事实。一个文件被选中(新单词文档还是需要一个窗口选择吗?)。
感谢您的帮助!
Private Sub CommandButton2_Click()
Dim Foldername As String
Foldername = "\\server\Instructions\"
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "",vbnormalFocus
Call Document_Open
End Sub
Private Sub Document_open()
SendKeys "%rA1"
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)