| |
セルの名前を保存名にしてPDFを保存したいと思っています。
A,B列には保存名に使う名前を、C列は保管場所の指定、D列には
エラーになった場合に保存名エラーと書き出ししたいです。
A B C
1行目 保管 a 1
2行目 保管 ** 1
3行目 保管 o 2
4行目 保管 // 2
下記のコードを実行すると2行目のエラーはD列2行目にエラーの旨が書き出される
のですが、4行目でエラーで止まってしまいます。
どなたかいい方法ありましたら教えてください。
よろしくお願いします。
---------------------------------------------------
Sub test()
Dim i, 保管場所1, 保管場所2, ファイル名
保管場所1 = ThisWorkbook.Path
保管場所2 = "C:\Users\kojin\Downloads"
For i = 1 To 4
ファイル名 = Cells(i, "A") & Cells(i, "B")
On Error GoTo label
Select Case Cells(i, "C")
Case 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=保管場所1 & "\" & ファイル名
GoTo label1
Case 2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=保管場所2 & "\" & ファイル名
GoTo label1
End Select
label:
Cells(i, "D") = "保存名エラー"
label1:
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
