Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

360 / 76735

←次へ　｜　前へ→


	【82042】Re:PDF出力した際のファイル名につきまして

hamil - 22/6/23(木) 9:34 -


	引用なし

	パスワード

▼マナさん：
>▼hamil さん：
>
>>マクロにてエラーが出てしまいました。
>
>どんなマクロですか。。

マナさん
ありがとうございます！以下となります。

Option Explicit

Sub 一括PDF出力()

　　' 変数宣言
　　Dim ws帳票 As Worksheet: Set ws帳票 = Worksheets("帳票")
　　Dim ws台帳 As Worksheet: Set ws台帳 = Worksheets("台帳")
　　Dim 台帳最終行 As Long: 台帳最終行 = ws台帳.Range("A1").CurrentRegion.Rows.Count
　　Dim i As Long
　　
　　' 一括出力対象データ数の確認
　　Dim 出力データ数 As Long: 出力データ数 = 0
　　For i = 2 To 台帳最終行
　　　　If ws台帳.Cells(i, 2).Value = "Y" Then
　　　　　　出力データ数 = 出力データ数 + 1
　　　　End If
　　Next
　　
　　' ユーザーに処理続行の確認
　　If 出力データ数 > 0 Then
　　　　Dim rc
　　　　rc = MsgBox(出力データ数 & "件のデータをPDF出力します。よろしいですか？", vbYesNo)
　　　　If rc = vbNo Then
　　　　　　MsgBox ("処理を中断しました。")
　　　　　　Exit Sub
　　　　End If
　　Else
　　　　' 対象データなしの場合は処理終了
　　　　MsgBox ("出力対象のデータがありません。")
　　　　Exit Sub
　　End If
　　
　　' PDF出力処理
　　Dim 管理番号 As Long
　　For i = 2 To 台帳最終行
　　　　If ws台帳.Cells(i, 2).Value = "Y" Then
　　　　　　管理番号 = ws台帳.Cells(i, 1).Value
　　　　　　ws帳票.Cells(2, 1).Value = 管理番号
　　　　　　ws帳票.ExportAsFixedFormat _
　　　　　　　　　 Type:=xlTypePDF, _
　　　　　　　　　 Filename:=ThisWorkbook.Path & "\PDF\" & 管理番号 & ".pdf"
　　　　End If
　　Next
　　
　　' 完了メッセージの表示
　　MsgBox (ThisWorkbook.Path & "\PDF" & " にPDFファイルを出力しました。")
End Sub

10 hits

▼

【82040】PDF出力した際のファイル名につきまして hamil 22/6/22(水) 1:10