从VBA到CMD-如何将命令的结果插入单元格

Question

在单元格(1，1(中，我将方法粘贴到文件中。

Sub Command()
Shell "cmd.exe /c CertUtil -hashfile " & Range("A1") & " SHA512 > d:files.txt"

End Sub

当我按下Run按钮时，宏打开命令提示符并使用命令"；certutil-hashfile"；。但我可以创建宏，它只能将结果保存到文本文件中。是否可以将命令提示符的结果写入单元格？或者用宏*\files.txt将txt文件的目录更改为*文件夹(如果我用xls&txt文件替换文件夹(？

Answer 1

可以找到答案。

Sub command()
Dim WshExec As Object
Set WshExec = CreateObject("WScript.Shell").exec("CertUtil -hashfile " & Range("A1") & " SHA512")
While WshExec.Status = 0
Wend
Range("a2") = Application.WorksheetFunction.Trim(WshExec.StdOut.ReadAll)
End Sub