質問編集履歴
2
見やすくしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -24,25 +24,13 @@
|
|
|
24
24
|
コードを実行すると、エラーは出ませんが結合もされることなく終了してしまいます。
|
|
25
25
|
myShell.Run (strCmd) のところで一瞬だけ黒いウィンドウが表示されるので何かが実行されているのだとは思うのですが…
|
|
26
26
|
|
|
27
|
-
|
|
28
|
-
### 発生している問題・エラーメッセージ
|
|
29
|
-
|
|
30
|
-
```
|
|
31
|
-
エラーメッセージ
|
|
32
|
-
```
|
|
33
|
-
|
|
34
|
-
### 該当のソースコード
|
|
35
|
-
|
|
36
|
-
```ここに言語名を入力
|
|
37
|
-
ソースコード
|
|
38
|
-
```
|
|
39
|
-
|
|
40
27
|
### 試したこと
|
|
41
28
|
|
|
42
29
|
以下に、試行錯誤の結果を記載しておきます（あれこれ調べながら作るうちにわけのわからなくなったもので、使っていない変数の宣言などが残っていますが…）。
|
|
43
30
|
コマンドラインを呼び出して実行する、という方向で試してみていました。
|
|
44
31
|
VBAを実行したところ、エラーは出ませんでしたが、PDFの結合は実行されませんでした。
|
|
45
32
|
|
|
33
|
+
```VBA
|
|
46
34
|
Option Explicit
|
|
47
35
|
|
|
48
36
|
Sub サンプルAとサンプルBを結合()
|
|
@@ -154,7 +142,4 @@
|
|
|
154
142
|
Next
|
|
155
143
|
|
|
156
144
|
End Function
|
|
157
|
-
|
|
158
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
159
|
-
|
|
160
|
-
|
|
145
|
+
```
|
1
strCmdの、結合対象ファイル間に空白Chr(32)を追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -20,7 +20,11 @@
|
|
|
20
20
|
実現するためのアドバイス等ご教示ください。
|
|
21
21
|
知識・理解が全く足りていないことは自覚しています。ご容赦ください。
|
|
22
22
|
|
|
23
|
+
（追記）
|
|
24
|
+
コードを実行すると、エラーは出ませんが結合もされることなく終了してしまいます。
|
|
25
|
+
myShell.Run (strCmd) のところで一瞬だけ黒いウィンドウが表示されるので何かが実行されているのだとは思うのですが…
|
|
23
26
|
|
|
27
|
+
|
|
24
28
|
### 発生している問題・エラーメッセージ
|
|
25
29
|
|
|
26
30
|
```
|
|
@@ -140,7 +144,7 @@
|
|
|
140
144
|
Dim strErr As String
|
|
141
145
|
Dim IRetCode As Long
|
|
142
146
|
|
|
143
|
-
strCmd = "cmd /c PdfCmdCreator.exe /combine " & Chr(34) & KT & Chr(34) & Chr(34) & KB & Chr(34) & " /out " & Chr(34) & fp2 & Chr(34)
|
|
147
|
+
strCmd = "cmd /c PdfCmdCreator.exe /combine " & Chr(34) & KT & Chr(34) & Chr(32) & Chr(34) & KB & Chr(34) & " /out " & Chr(34) & fp2 & Chr(34)
|
|
144
148
|
|
|
145
149
|
Dim myShell As Object
|
|
146
150
|
Set myShell = CreateObject("WScript.Shell")
|