如何在VBA中读取shell命令中的所有信息并保存到.txt文件中

Sub ReadShellCommandOutput()
    Dim command As String
    Dim output As String
    Dim fileNum As Integer
    
    ' 设置要执行的shell命令
    command = "your_shell_command_here"
    
    ' 执行shell命令并获取输出结果
    output = Shell(command & " > output.txt", vbHide)
    
    ' 读取输出文件内容
    fileNum = FreeFile
    Open "output.txt" For Input As fileNum
    output = Input$(LOF(fileNum), fileNum)
    Close fileNum
    
    ' 在VBA中使用output变量进行后续处理
    ' ...
    
    ' 删除输出文件
    Kill "output.txt"
End Sub