vbs中的变量能否输出？

loquat

http://bbs.bathome.net/viewthread.php?tid=5695
小弟最近在学VBA，有个突发奇想，不知道可不可行？
在VBA中定义一个变量，然后将vbs运行的结果存到VBA的变量中。

例如：这两段VBA代码，前一段有个黑窗口一闪而过。后一段生成了临时文件，无形中影响了执行效率。
看了上面那个帖子2#，在VBA中可以使用exec方法将命令执行的结果保存到变量中，且能隐藏窗口。但是却只能在vbs下运行。
故此想到，有没有可能从vbs中输出变量到VBA中。

1. Sub 方法一()
   
2. Dim arr, folder$, brr
   
3. folder = """" & "C:\Program Files" & """"
   
4. With CreateObject("WScript.Shell")
   
5.        brr = .Exec(Environ$("comspec") & " /c dir " & folder & " /s /a:-d /b").StdOut.ReadAll
   
6. End With
   
7. arr = Split(brr, vbCrLf)
   
8. End Sub

复制代码

1. Sub 方法二()
   
2. Dim arr, folder$
   
3. folder = """" & "C:\Program Files" & """"
   
4. With CreateObject("WScript.Shell")
   
5.        .Run Environ$("comspec") & " /c dir " & folder & " /s /a:-d /b > C:\temp.txt", 0, 1
   
6. End With
   
7. Open "C:\temp.txt" For Input As #1
   
8. arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
9. Close #1
   
10. End Sub

复制代码

loquat

其实问题等同于，能否将一个vbs中的变量输出的另一个vbs中。

loquat

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