Office 2007不能调用Shell函数等3个问题[已解决]

loquat · 发表于 2013-10-18 23:51

liucqa 发表于 2013-10-16 14:25
http://bbs.bathome.net/viewthread.php?tid=5695
VBS中run和exec的区别

请问这个代码怎么移植到VBA？
用Exec有窗口，用Run有临时文件。想用协作来实现无窗口无临时文件。

Set ws = CreateObject("WScript.Shell")
host = WScript.FullName
if LCase( right(host, len(host)-InStrRev(host,"")) ) = "wscript.exe" then
ws.run "cscript """ & WScript.ScriptFullName & chr(34), 0
WScript.Quit
end if
set oexec = ws.Exec( "ipconfig")
Msgbox oExec.StdOut.ReadAll, , "ipconfig"

复制代码

loquat · 发表于 2013-10-19 00:16

我试试吧。不将遍历结果输出到文件也许会提高效率。

loquat · 发表于 2013-10-19 00:19

liucqa 发表于 2013-10-16 14:25
http://bbs.bathome.net/viewthread.php?tid=5695
VBS中run和exec的区别

这个思路可行吗？
VBS执行命令，将结果输出到VBA中的变量中。

zhanglei1371 · 发表于 2013-10-20 11:11

loquat 发表于 2013-10-18 15:04
特点就是效率高，以下是两种方法。
方法一：Exec方法，有一个黑窗口一闪而过
方法二：Run方法，有临时文件 ...

可以加一句清除掉产生的临时文件：
Sub 方法二()
Dim arr, t, folder$
t = Timer
folder = """" & "C:\Program Files\" & """"
With CreateObject("WScript.Shell")
.Run Environ$("comspec") & " /c dir " & folder & " /s /a:-d /b > C:\temp.txt", 0, True
End With
Open "C:\temp.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
kill "C:\temp.txt" '加这一句删除临时文件
Debug.Print UBound(arr) & "个文件" & vbCrLf & Timer - t & "秒" & vbCrLf & arr(100)
End Sub

loquat · 发表于 2013-10-20 21:37

zhanglei1371 发表于 2013-10-20 11:11

可以加一句清除掉产生的临时文件：
Sub 方法二()

这句在win7上好像不能用，有权限限制。

loquat · 发表于 2013-10-21 07:28

不知道走指针可不可行，正在学习指针。

loquat · 发表于 2014-4-21 21:58

2007中调用Shell的方法为
1.如果要返回执行状态
  Dim a As Boolean
  a = Shell(filefullpath, windowstyle)
2.如果无需返回状况
  Call Shell(filefullpath, windowstyle)

补充内容 (2019-6-3 11:01):
a其实是PID

		自动登录	找回密码
密码			免费注册

[求助] Office 2007不能调用Shell函数等3个问题[已解决]

点评