PDFファイルを結合したい(JustPDF)

Question

前提・実現したいこと

プログラミング初心者です。質問に誤り・不足等あればご指摘ください。

PDFファイルをVBAで結合したいと考えています。インストールされているソフトはJustPDFです。
結合までの手順は以下のとおりです。

（前提）
「サンプル」というフォルダに次のようなファイル名のPDFファイルが複数格納されている
・サンプルA_○○（例　サンプルA_りんご、サンプルA_みかん…）
・サンプルB_○○（例　サンプルB_りんご、サンプルB_みかん…）
ただし、「サンプル」フォルダの格納場所は任意
・VBAを入れているExcel（「差込み」シート）に「○○」に該当する部分のリストが入力してあり、結合したい名前の隣の列に「１」が入力してある

①「サンプル」フォルダのファイルパスを取得する
②結合したファイルを格納するフォルダのファイルパスを取得する
③「サンプル」フォルダ内から「○○」部分の一致しているPDFを探し、結合、②で指定したフォルダに結合結果を保存する
（例　サンプルA_りんご、サンプルB_りんご　→　サンプル_りんご）

ExcelのVBAで作成しようとしていましたが、Excelでなくとも構いません。改善点、そもそも根本的に間違っているようであれば
実現するためのアドバイス等ご教示ください。
知識・理解が全く足りていないことは自覚しています。ご容赦ください。

（追記）
コードを実行すると、エラーは出ませんが結合もされることなく終了してしまいます。
myShell.Run (strCmd) のところで一瞬だけ黒いウィンドウが表示されるので何かが実行されているのだとは思うのですが…

試したこと

以下に、試行錯誤の結果を記載しておきます（あれこれ調べながら作るうちにわけのわからなくなったもので、使っていない変数の宣言などが残っていますが…）。
コマンドラインを呼び出して実行する、という方向で試してみていました。
VBAを実行したところ、エラーは出ませんでしたが、PDFの結合は実行されませんでした。

Option Explicit

Sub サンプルAとサンプルBを結合()

'Application.ScreenUpdating = False

    '結合する
    Dim StrScr          As Boolean
    Dim strCmd          As String
    Dim strWorkFolder   As String
    Dim IErrCount       As Long
    Dim IErrCode(4)     As Long
    Dim strOutFile(1)   As String
    Dim strErr          As String
    Dim IRetCode        As Long
    StrScr = RunCommandLineEX(strCmd, strWorkFolder, IErrCount, _
        IErrCode, strOutFile, strErr, IRetCode)

'Application.ScreenUpdating = true

End Sub

Public Function RunCommandLineEX( _
    ByVal strincommand As String, _
    ByVal strInWorkFolder As String, _
    ByVal IInErrCount As Long, _
    ByRef IInErrCode() As Long, _
    ByRef strOutFile() As String, _
    ByRef strOutErrMsg As String, _
    ByRef IOutRetCode As Long) As Boolean

'◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆
'サンプルAとサンプルBを格納してあるフォルダを選択する
Dim dlg As FileDialog
Dim fp As String

Set dlg = Application.FileDialog(msoFileDialogFolderPicker)

    If dlg.Show = False Then
        Exit Function
    End If

    fp = dlg.SelectedItems(1) & "\"

'◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆
'保存先を選択する
Dim dlg2 As FileDialog
Dim fp2 As String

Set dlg2 = Application.FileDialog(msoFileDialogFolderPicker)

    If dlg2.Show = False Then
        Exit Function
    End If
    
    fp2 = dlg.SelectedItems(1) '& "\"

'◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆
'Excelの設定
Dim LastRow, i As Long
Dim str, str2 As String
Dim SK As Worksheet
Set SK = ThisWorkbook.Worksheets("差込み")
LastRow = SK.Cells(Rows.Count, "D").End(xlUp).Row 'フィルター列

For i = 2 To LastRow
If SK.Range("D" & i).Value <> "" Then
    str = "サンプルA_" & SK.Range("B" & i).Value   'ファイル名
    str2 = "サンプルB_" & SK.Range("B" & i).Value   'ファイル名

    '◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆―◆
    '結合するファイルを変数に格納する
    'サンプルAを変数に格納する
    Dim KT As String
    If Dir(fp & str & ".pdf") <> "" Then
        KT = fp & str & ".pdf"
    Else
        MsgBox (fp & str & ".pdf" & "が見つかりませんでした。")
        Exit Function
    End If
    
    'サンプルBを変数に格納する
    Dim KB As String
    If Dir(fp & str2 & ".pdf") <> "" Then
        KB = fp & str2 & ".pdf"
    Else
        MsgBox (fp & str2 & ".pdf" & "が見つかりませんでした。")
        Exit Function
    End If

    
'引数で使う変数
Dim StrScr          As Boolean
Dim strCmd          As String
Dim strWorkFolder   As String
Dim IErrCount       As Long
Dim IErrCode(4)     As Long
'Dim strOutFile(1)   As String
Dim strErr          As String
Dim IRetCode        As Long
    
strCmd = "cmd /c PdfCmdCreator.exe /combine " & Chr(34) & KT & Chr(34) & Chr(32) & Chr(34) & KB & Chr(34) & " /out " & Chr(34) & fp2 & Chr(34)

Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
myShell.Run (strCmd) '実行

End If
Next

End Function

Comments

[sage]

strCmdに値を設定したあとでコマンドを実行する前の行まで間にbreakpointを設定し、strCmdの値を確認してもらえませんか? (予定どおりの値になっていますか?)

[sedfjkhlaQ]

Set myShell=のところでbreakpointを設定してMsgBoxで表示してみたところ、strCmdには以下が入っていました。

cmd/c PdfCmdCreator.exe /combine "C:\（ファイルパス）\サンプルA_.pdf""C:\（ファイルパス）\サンプルB_りんご.pdf" /out "C:\（ファイルパス）"

予定通りだとは思うんですが…
浅学で恥ずかしい限りですが、実は、コマンドを実行する行がどれなのかもよくわかっていないのです。差し支えなければ後学のためにご教示願えませんでしょうか。
私の書いていたコードでは、コマンドを実行できることになっていましたか？

[sedfjkhlaQ]

すみません、「サンプルA_.pdf」ではなく「サンプルA_りんご.pdf」です。上の返信でりんごが抜けていました。strCmdには正しく入っています。

[sedfjkhlaQ]

フルパスで記述してみましたが、まだ何も起こりませんでした…

strCmd = "cmd /C:\Program Files (x86)\JustSystems\JustPdf3\Creator\PdfCmdCreator.exe /combine " & Chr(34) & KT & Chr(34) & Chr(32) & Chr(34) & KB & Chr(34) & " /out " & Chr(34) & fp2 & Chr(34)

他に何か、環境設定が必要だったりするのでしょうか。

[sage]

「Program Files (x86)」中に空白文字があります。strCmdに代入する時の「"」はついていますが、コマンドを実行する時には「"」がないので動かないのでは?
それから、「cmd」への1つ目のオペランド(オプション)が「/c」で2つ目がフルバスでのコマンドです。上だと1つ目と2つ目がつながり、かつ「c」が1つ抜けています。

[sedfjkhlaQ]

できました！

オペランド…知りませんでした。
ということで、「/k」にしてみてみたところ、cmdを開いてもパスが「C:\Program」で切れてしまっているようでした。そこで、下のように記述したところできました！

myShell.Run "cmd.exe /c cd C:\Program Files (x86)\JustSystems\JustPdf3\Creator" & "&" & "start PdfCmdCreator.exe /combine " & Chr(34) & KT & Chr(34) & Chr(32) & Chr(34) & KB & Chr(34) & " /out " & Chr(34) & fp2 & Chr(34)

ご指摘いただいたとおり「/c」にしまして、カレントディレクトリをPdfCmdCreator.exeのある階層に変更して、コマンドの連続実行でPdfCmdCreator.exeを実行すると、できました。（「Program Files (x86)」中に空白文字があるのは、大丈夫みたいです）
長くなってしまっているところは、この後、調整していきたいと思います。
ありがとうございました！

Answer 1

結合する1個目のファイル名の最後の「"」と2個目のファイル名の前の「"」の間に空白がなく、「"」が連続しています。間に空白[Chr(32)]を挟んでください。
誤

Chr(34) & KT & Chr(34) & Chr(34) & KB & Chr(34)

正

Chr(34) & KT & Chr(34) & Chr(32) & Chr(34) & KB & Chr(34)

Comments

[sedfjkhlaQ]

ご回答ありがとうございます。ご指摘の通り修正してみました。ですが、何も起こりませんでした…
エラーは出ませんが、結合も実行されません。一瞬だけ黒いウィンドウが開くので、何かしらの実行はされていると思うのですが、PDFの結合まで行かないようです。
PdfCmeCreator.exeは開くけれど、コマンドが正しく入力されていない、ということなのでしょうか。

[sage]

もしかしたらこの環境ではパスが通っていないのかもしれません。PdfCmdCreator.exeをフルパスで記述してみてください。