shell - Excel VBA : Running a shell script to both change directory and then run a custom script

Question

我正在尝试使用 vba 运行此 cmd 脚本，该脚本基本上合并目录中的所有 csv 文件，然后将每个文件的文件名添加到末尾的列中。

for /f %a in ('dir /b *.csv') do for /f "tokens=*" %b in (%a) do echo %b,%a >> all.csv

我遇到的问题是如何在 Excel Vba 中运行此命令，同时在运行上述代码之前更改默认目录。

这是因为 for/f %a in ('dir/b *.csv') 位仅采用 cmd 窗口中的默认目录。在实际的 cmd 窗口中，我只能使用 cd 命令，但不知道如何使用 vba 自动执行此操作。

Link to the original post for the code

大家有什么想法吗？

谢谢

Answer 1

这是一种从 VBA Excel 运行代码的方法。我对路径进行了硬编码，因为我不确定您的输入法是什么。

Sub mergeCSV()
    Dim myDir As String
    myDir = "C:\Users\username\compile\"

    Dim strCommand As String
    strCommand = "for /f %a in ('dir /b *.csv') do for /f ""tokens=*"" %b in (%a) do echo %b,%a >> all.csv"

    Call Shell("cmd.exe /k cd /d " & myDir & " & " & strCommand, 1)
End Sub

Shell 调用首先打开命令提示符，然后将当前目录更改为 myDir 变量中指定的目录。然后它运行第二个命令，我将其放入它自己的变量 strCommand 中，以使其更易于阅读和遵循。您可以通过将 /k 替换为 /c

来使窗口不会保持打开状态

我有两个文件用于测试，一个包含数字，另一个包含字母字符。结果文件 all.csv 看起来像这样: