回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -27,4 +27,26 @@
|
|
|
27
27
|
MsgBox "エラー:" & Err.Number & " " & Err.Description
|
|
28
28
|
On Error GoTo 0
|
|
29
29
|
End Select
|
|
30
|
+
```
|
|
31
|
+
|
|
32
|
+
よく見たら、上記のコード、なんか遠回りのことをしてますね。
|
|
33
|
+
|
|
34
|
+
```vba
|
|
35
|
+
Dim ws As Worksheet
|
|
36
|
+
|
|
37
|
+
On Error Resume Next 'エラー無視
|
|
38
|
+
Set ws = Worksheets("レポート")
|
|
39
|
+
On Error GoTo 0 'エラー無視解除
|
|
40
|
+
If ws Is Nothing Then '"レポート"シートが存在しなければ、
|
|
41
|
+
Worksheets(Array("表紙", "検索", "表示箇所", "行動", "順位")).Select
|
|
42
|
+
ActiveSheet.ExportAsFixedFormat _
|
|
43
|
+
Type:=xlTypePDF, _
|
|
44
|
+
Filename:=ExcelFilePath & ExFileName, _
|
|
45
|
+
OpenAfterPublish:=True
|
|
46
|
+
Else
|
|
47
|
+
ws.ExportAsFixedFormat _
|
|
48
|
+
Type:=xlTypePDF, _
|
|
49
|
+
Filename:=ExcelFilePath & ExFileName, _
|
|
50
|
+
OpenAfterPublish:=True
|
|
51
|
+
End If
|
|
30
52
|
```
|