[已解决]如何打开G2程序

759857387

注：G2中程序是“截图工具”，win7\8带有。见附件 test.rar (11.28 KB, 下载次数: 10)

2013-6-10 09:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-10 09:51

打开后就自动获取焦点了。

1. Shell Environ("windir") & "\system32\SnippingTool.exe", vbNormalFocus

复制代码

跳转到最佳答案楼层

hwc2ycy

直接用SHELL调用，再用APPACTIVE激活。

hwc2ycy

1. Sub test()
   
2.     Dim lAppid As Long
   
3.     lAppid = Shell(Environ("windir") & "\system32\SnippingTool.exe", vbNormalFocus)
   
4. End Sub
   

复制代码

hwc2ycy

打开后就自动获取焦点了。

1. Shell Environ("windir") & "\system32\SnippingTool.exe", vbNormalFocus

复制代码

759857387

hwc2ycy 发表于 2013-6-10 09:51
打开后就自动获取焦点了。

不好意思，因有点急事没有马上恢复。
测试结果：错误代码53（两个代码同样的）

hwc2ycy

你这是在VB还是VBA？
msgbox Environ("windir")
先用这个测试。

759857387

hwc2ycy 发表于 2013-6-10 14:17
你这是在VB还是VBA？
msgbox Environ("windir")
先用这个测试。

是在vba

hwc2ycy

c:\windows\system32\SnippingTool.exe
你看看有没有这个文件。

759857387

hwc2ycy 发表于 2013-6-10 14:32
c:\windows\system32\SnippingTool.exe
你看看有没有这个文件。

无聊的疯子

759857387 发表于 2013-6-10 14:37

复制下面的代码在立即窗口里验证一下呢，如果文件存在的话，会返回 非0 的

1. 
   
2. ？len(dir(Environ("windir")&"\system32\SnippingTool.exe"))
   

复制代码

如下图


如果文件存在，那应该就是你上面的代码写得有点小问题了
可以考虑直接Copy路径过去试试