mdsk.net
当前位置:首页 >> vBA如何获取ShEll执行程序的外部输出?或者如何将... >>

vBA如何获取ShEll执行程序的外部输出?或者如何将...

FSO(Filesy System Object)操作文件,要重定向的话,需要以命令行形式执行脚本并在命令行里指定要重定向到的文件。命令行方式如下:cscript 脚本名称 >> "D:\Program Files\diffcount\myresult.txt"脚本里直接写入文件的方式(FSO):只有用Ex...

脚本里只能用FSO(Filesy System Object)操作文件,要重定向的话,需要以命令行形式执行脚本并在命令行里指定要重定向到的文件。 命令行方式如下:cscript 脚本名称 >> "D:\Program Files\diffcount\myresult.txt" 脚本里直接写入文件的方式(F...

Sub t1()Dim txt txt = Shell("notepad E:\test\123.txt", vbNormalFocus) SendKeys "abcd{enter}efg" AppActivate txt, TrueEnd Sub

使用shell语句,例子: Sub RAR() Shell "C:\Program Files\WinRAR\WinRAR.exe", vbNormalFocusEnd Sub

引用,选择microsoft internet controls

你可以模拟按键输入把路径输入进去 当然如果你只是想要比较2文本不同这个功能,vba完全可以自行编写来实现这个功能 用mid函数截取位置上的字符 逐个比较 不难

用Shell可以实现.Shell(iProcess-Admin.exe的完整路径放在这,vbNormalFocus)

Private Sub CommandButton1_Click() Dim add As String, cmd As String add = "D:\下载" cmd = "cmd.exe /c copy " & add & " E:\test" Shell (cmd), vbHide end sub 看到区别了没有,add变量要使用&运算为字符串

Shell "Explorer.exe /select,strReturnFile", vbNormalFocus

Exec不一定会有黑窗口弹出来的,看你运行什么命令。 Dim WshShell, oExecSet WshShell = CreateObject("WScript.Shell")Set oExec = WshShell.Exec("calc")Run能不能办到,也要看你运行的是什么命令。

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com