excel - Excel 宏可以将命令行的输出直接拉到工作表中吗？

Question

我有一个 VBA 宏，它执行命令行函数来创建一个列出目录中文件的文本文件；但是，不是将列表从文本文件复制和粘贴/导入到工作表，是否可以简单地将命令行的 putput 直接传递到工作表中？

我现在用来创建文件的 VBA 代码是：

CMD = "DIR /A:-D-H /O:-D-G /B \\directory\* > \\sleuth.txt"
Shell "cmd.exe /c " & CMD

我非常感谢这方面的任何想法！

Answer 1

您可以使用此类将其保存到字符串变量中。（直接下载链接在这里。）

这是一个示例用法：

Sub Test()
    Dim cls As New clsRunApp
    Dim s As String
    cls.command = "cmd.exe /k dir"

    s = cls.RunAppWait_CaptureOutput
    Set cls = Nothing
    MsgBox (s)
End Sub

从那里，您可以直接将其输出到您的工作表。