質問編集履歴
3
説明修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -74,7 +74,7 @@
|
|
|
74
74
|
|
|
75
75
|
|
|
76
76
|
|
|
77
|
-
Set WB = ExFileName
|
|
77
|
+
Set WB = Workbooks(ExFileName)
|
|
78
78
|
|
|
79
79
|
|
|
80
80
|
|
|
@@ -98,7 +98,7 @@
|
|
|
98
98
|
|
|
99
99
|
End If
|
|
100
100
|
|
|
101
|
-
|
|
101
|
+
Next Sh
|
|
102
102
|
|
|
103
103
|
'指定した名前のシートがあるか確認
|
|
104
104
|
|
|
@@ -124,7 +124,7 @@
|
|
|
124
124
|
|
|
125
125
|
|
|
126
126
|
|
|
127
|
-
|
|
127
|
+
|
|
128
128
|
|
|
129
129
|
|
|
130
130
|
|
|
@@ -149,12 +149,6 @@
|
|
|
149
149
|
|
|
150
150
|
|
|
151
151
|
```
|
|
152
|
-
|
|
153
|
-
|
|
154
|
-
|
|
155
|
-
上記のように記述することによりSet WB = ExFileNameの部分で型が一致しないとのエラーが出ます。
|
|
156
|
-
|
|
157
|
-
正直記事を参考にして闇雲に作ってしまった感がありちょっとパニック状態です。
|
|
158
152
|
|
|
159
153
|
|
|
160
154
|
|
2
説明追加
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBA
|
|
1
|
+
VBA シート名にDBを含むシートは除いて、すべてをPDF出力したい
|
test
CHANGED
|
@@ -176,6 +176,8 @@
|
|
|
176
176
|
|
|
177
177
|
参考記事：https://www.moug.net/tech/exvba/0040032.html
|
|
178
178
|
|
|
179
|
+
:http://luster.fem.jp/blog/2014/08/post-7.html
|
|
180
|
+
|
|
179
181
|
|
|
180
182
|
|
|
181
183
|
OS：macOS Catalina バージョン10.15.3
|
1
説明修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
|
|
7
|
-
そこで
|
|
7
|
+
そこでシート名にDBを含むシートは除いて、すべてをPDF出力すると言うコードにしたく以下のように書き直してみました。
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|