从VBA EXCEL运行cmd后无法生成文本文件组合

Question

我试图从excel VBA在CMD中运行Command，将文件组合到唯一的单个文件中，但不是很麻烦。那command work properly when I run directly in folder

Excel VBA 2013

Sub CombineFiles()
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 1

    wsh.Run "D:\Excel\FT\cmd.bat"
End Sub

CMD中的MY代码

copy *.txt combined.txt

我希望将所有文本文件组合成一个名为Combined.txt的文件

Answer 1

在.bat文件中，您需要更改目录以指向.txt文件的文件夹位置：

d:
cd\Excel\FT
copy *.txt combined.txt
PAUSE

或

copy D:\Excel\FT\*.txt D:\Excel\FT\combined.txt
PAUSE

我添加了一个暂停，因此，如果您希望删除pause命令，则可以查看正在运行的bat文件的结果。