Комбинация текстового файла не генерируется после запуска cmd из VBA EXCEL

Question

Я попытался запустить Command в CMD из Excel VBA, чтобы объединить файл в единственный файл, но это не так.И что 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

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

Я добавил паузу, чтобы вы могли видеть результат запуска файла bat, если хотите, можете удалить команду pause.