質問編集履歴
4
誤記修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
【 EXCELｰVBA 】助けて下さい！リストの順にPDFファイルを印刷
|
|
1
|
+
【 EXCELｰVBA 】助けて下さい！ リストの順にPDFファイルを印刷したい。
|
test
CHANGED
|
@@ -1,8 +1,8 @@
|
|
|
1
1
|
現在、サンプルコードを参考にさせて頂いて、フォルダ内のPDF図面を自動で印刷するというVBAを作っています。
|
|
2
2
|
|
|
3
|
-
EXCELアクティブシートにA1からA2,A3…と下にファイル名が
|
|
3
|
+
EXCELアクティブシートにA1からA2,A3…と下にファイル名が並んでおり、そのリストの上から1件ずつ順にフォルダ内にファイルがあるかを検索し、ファイルがあれば印刷してエクセルにあるファイル名を赤字に変更、ファイルがなければエクセルにあるファイル名に取り消し線を入れる。リストが空白になったらVBA終了という流れです。（その画面のイメージを下に添付致します）
|
|
4
4
|
|
|
5
|
-
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、コード的にもほぼ完成に近い状態と思っているのですが、マクロを実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されず困っております。
|
|
5
|
+
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、下記コード的にもほぼ完成に近いところまできている状態と思っているのですが、マクロを実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されず困っております。
|
|
6
6
|
|
|
7
7
|
何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いか、もしこれをご覧になってお判りになられる方いらっしゃいましたら、どうか添削やご教示お願い致します！
|
|
8
8
|
|
3
誤記修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
【 EXCELｰVBA 】リスト順にPDFファイルを印刷することができ
|
|
1
|
+
【 EXCELｰVBA 】助けて下さい！リストの順にPDFファイルを印刷することができません。
|
test
CHANGED
|
@@ -1,10 +1,10 @@
|
|
|
1
1
|
現在、サンプルコードを参考にさせて頂いて、フォルダ内のPDF図面を自動で印刷するというVBAを作っています。
|
|
2
2
|
|
|
3
|
-
EXCELアクティブシートにA1からA2,A3…と下にファイル名があり、そのリスト
|
|
3
|
+
EXCELアクティブシートにA1からA2,A3…と下にファイル名があり、そのリストの上から1件ずつ順にフォルダ内にファイルがあるかを検索し、ファイルがあれば印刷してエクセルにあるファイル名を赤字に変更、ファイルがなければエクセルにあるファイル名に取り消し線を入れる。リストが空白になったらVBA終了という流れです。（その画面のイメージを下に添付致します）
|
|
4
4
|
|
|
5
|
-
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、コード的にもほぼ完成に近い状態と思っているのですが、マクロを実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されま
|
|
5
|
+
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、コード的にもほぼ完成に近い状態と思っているのですが、マクロを実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されず困っております。
|
|
6
6
|
|
|
7
|
-
何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いか、もしお判りになられる方いらっしゃいましたら、どうか添削やご教示お願い致します
|
|
7
|
+
何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いか、もしこれをご覧になってお判りになられる方いらっしゃいましたら、どうか添削やご教示お願い致します！
|
|
8
8
|
|
|
9
9
|
```ここに言語を入力
|
|
10
10
|
Sub ListPrint() '図面印刷VBA
|
2
誤記修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
EXCEL
|
|
1
|
+
【 EXCELｰVBA 】リスト順にPDFファイルを印刷することができない
|
test
CHANGED
|
@@ -1,10 +1,10 @@
|
|
|
1
|
-
現在、サンプルコードを参考にさせて頂いて、フォルダのPDF図面を自動で印刷するというVBAを作っています。
|
|
1
|
+
現在、サンプルコードを参考にさせて頂いて、フォルダ内のPDF図面を自動で印刷するというVBAを作っています。
|
|
2
|
-
アクティブシートにA1からA2,A3…と下にファイル名があり、そのリストを上から1件ずつ順にフォルダ内にファイルがあるかを確認し、ファイルがあれば印刷してエクセルにあるファイル名を赤字に変更、ファイルがなければエクセルにあるファイル名に取り消し線を入れる。リストが空白になったらVBA終了という流れです。
|
|
3
|
-
（その画面のイメージを下に添付致します）
|
|
4
2
|
|
|
5
|
-
|
|
3
|
+
EXCELアクティブシートにA1からA2,A3…と下にファイル名があり、そのリストを上から1件ずつ順にフォルダ内にファイルがあるかを確認し、ファイルがあれば印刷してエクセルにあるファイル名を赤字に変更、ファイルがなければエクセルにあるファイル名に取り消し線を入れる。リストが空白になったらVBA終了という流れです。（その画面のイメージを下に添付致します）
|
|
6
4
|
|
|
5
|
+
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、コード的にもほぼ完成に近い状態と思っているのですが、マクロを実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されません。
|
|
6
|
+
|
|
7
|
-
何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いかお判りになられる方、どうかご教示お願い致します。
|
|
7
|
+
何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いか、もしお判りになられる方いらっしゃいましたら、どうか添削やご教示お願い致します。
|
|
8
8
|
|
|
9
9
|
```ここに言語を入力
|
|
10
10
|
Sub ListPrint() '図面印刷VBA
|
1
誤記訂正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
EXCELで組んでいるVBAでリスト順に自動で印刷する指令が実行されない
|
test
CHANGED
|
@@ -1,11 +1,10 @@
|
|
|
1
1
|
現在、サンプルコードを参考にさせて頂いて、フォルダのPDF図面を自動で印刷するというVBAを作っています。
|
|
2
|
-
アクティブシートにA1から下にファイル名があり、そのリストを
|
|
2
|
+
アクティブシートにA1からA2,A3…と下にファイル名があり、そのリストを上から1件ずつ順にフォルダ内にファイルがあるかを確認し、ファイルがあれば印刷してエクセルにあるファイル名を赤字に変更、ファイルがなければエクセルにあるファイル名に取り消し線を入れる。リストが空白になったらVBA終了という流れです。
|
|
3
|
+
（その画面のイメージを下に添付致します）
|
|
3
4
|
|
|
4
|
-
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、コード的にもほぼ完成に近いと思
|
|
5
|
+
[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、コード的にもほぼ完成に近い状態と思っているのですが、今はマクロ実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されません。
|
|
5
6
|
|
|
6
|
-
マクロ実行するとリストのファイル名に、ただ取り消し線が入るだけの状況です。
|
|
7
|
-
|
|
8
|
-
構文endまで有効にするにはど
|
|
7
|
+
何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いかお判りになられる方、どうかご教示お願い致します。
|
|
9
8
|
|
|
10
9
|
```ここに言語を入力
|
|
11
10
|
Sub ListPrint() '図面印刷VBA
|