Создание пакетного файла

Question

Я пытаюсь создать командный файл, который преобразует файл Excel в PDF. Что-то не так с моей командной строкой, потому что она не работает:

Dim i As Double
Dim sBatchFile As String
ActiveWorkbook.Save
sBatchFile = "C:\test.bat"
Open sBatchFile For Output As #1
    Print #1, "@ECHO OFF"
    Print #1, "ECHO Converting Excel Files to PDF, Please wait..."
    Print #1, "batchpdf C:\Documents and Settings\Andrew_G\My Documents\Office Docs\Schedule.xls C:\Documents and Settings\Andrew_G\My Documents\Office Docs\TEST1234.pdf"
    Close #1

    i = Shell(sBatchFile, vbMaximizedFocus)
End Sub

Answer 1

Если это фактическое содержимое вашего пакетного файла:

@ECHO OFF
ECHO Converting Excel Files to PDF, Please wait...
batchpdf C:\Documents and Settings\Andrew_G\My Documents\Office Docs\Schedule.xls C:\Documents and Settings\Andrew_G\My Documents\Office Docs\TEST1234.pdf

, тогда вам нужно процитировать любые файловые пути с помощью "", например:

batchpdf "C:\Documents and Settings\Andrew_G\My Documents\Office Docs\Schedule.xls" "C:\Documents and Settings\Andrew_G\My Documents\Office Docs\TEST1234.pdf"

Но я неЯ не знаю, как именно написать это с VBA, так что, возможно, кто-то еще может помочь вам с этим.