EXCEL VBA pdfを複数作成する場合に、ファイルを1つに結合する

Question

いつもお世話になっております。

VBAはほとんど触ったことがないため、間違ったことを言っているかもしれませんがご容赦下さい。

VBAでエクセル内のページを変数で値を変えながら、pdfを作成できるように以下のように記述しております。

「印刷」ボタンを押すと、印刷シートの内容を順に、1.pdf、2.pdf、3.pdf……　というように
「C:\Users\xxxxxx\Downloads\sagyou\」フォルダの中にpdfが作成されていくようにしております（アカウントデータシートに書かれたデータの数だけ作成されれる）。

現在のやり方ですと、ファイルが複数作られてしまいますが、これを一つのpdfとして作成するには、どのようにすればよろしいでしょうか。

ご教示いただけますと幸いです。
よろしくお願いいたします。

Sub 印刷()
    Dim LastRow As Long
    Dim i As Long
    Dim myNo As Long

    If vbNo = MsgBox("pdfを作成開始していいですか？", vbYesNo) Then Exit Sub

    With Worksheets("アカウントデータ")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            myNo = .Range("A" & i).Value

            Worksheets("印刷シート").Range("J4").Value = myNo

            Dim fileName As String
            fileName = "C:\Users\xxxxxx\Downloads\sagyou\" & CStr(i) & ".pdf"

            
            Worksheets("印刷シート").PageSetup.PrintArea = "A1:F30"
            Worksheets("印刷シート").ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, IgnorePrintAreas:=False
            
        Next i
    End With

    MsgBox "印刷が終わりました"

End Sub

Answer 1

VBAで複数のPDFドキュメントを一つに結合するには、こちらの無料ライブラリーSpire.PDF for .NETを利用することもいい方法かもしれません。次のコードを参照してドキュメントを結合することができます：

Imports Spire.Doc
Imports Spire.Xls
Imports Spire.Pdf

Namespace MergeMultiTypestoOnePDF
	Class Program
		Private Shared Sub Main(args As String())
			Dim documents As PdfDocument() = New PdfDocument(3) {}
			Using ms1 As New MemoryStream()
				Dim doc As New Document("01.doc", Spire.Doc.FileFormat.Doc)
				doc.SaveToStream(ms1, Spire.Doc.FileFormat.PDF)
				documents(0) = New PdfDocument(ms1)
			End Using
			Using ms2 As New MemoryStream()
				Dim docx As New Document("02.docx", Spire.Doc.FileFormat.Docx2010)
				docx.SaveToStream(ms2, Spire.Doc.FileFormat.PDF)
				documents(1) = New PdfDocument(ms2)
			End Using
			Using ms3 As New MemoryStream()
				Dim workbook As New Workbook()
				workbook.LoadFromFile("03.xls", ExcelVersion.Version97to2003)
				workbook.SaveToStream(ms3, Spire.Xls.FileFormat.PDF)
				documents(2) = New PdfDocument(ms3)
			End Using
			documents(3) = New PdfDocument("04.pdf")

			For i As Integer = 2 To -1 + 1 Step -1
				documents(3).AppendPage(documents(i))
			Next

			documents(3).SaveToFile("Result.pdf")

		End Sub
	End Class
End Namespace

ご参考になればなによりです。

Answer 2

印刷用にワークシートを作成して、そこに全データを作成→そのシートをPDFに出力→シートを削除、みたいにするしかないかと。

Comments

[lyzmfeqpxs54]

早速のご回答ありがとうございます。
そういった手法が一般的なのですね。

お手数をおかけして申し訳ございませんが、どちらか参考になるサイト等、ご教示いただくことは可能でしょうか。

[shinobu_osaka]

普通に新規シート作成して、そこにコピーして貼り付け…を繰り返して、それからその新規シートを印刷、で、そのシートを削除、するだけです。

[lyzmfeqpxs54]

shinobu_osaka様
ご回答ありがとうございます。大変お恥ずかしい話ですが、VBAは始めたばかりで、ご教示いただいた「普通に新規シート作成して、そこにコピーして貼り付け…を繰り返して」部分のイメージすらわかない状況です。

もし、数行で済むレベルでしたらコードをご教示いただくことは可能でしょうか。
不勉強で申し訳ございませんが、よろしくお願いいたします。

[shinobu_osaka]

マクロ保存を開始して、新規シートを作って、コピペして、新規シートを削除して、保存を終了して、保存したマクロを参考にしてください。ここは「わからない事を聞く」ところであり代わりにコードを書いてもらったり調べればわかることを調べずに教えてもらったりすることろではありませんので…。

[ttyp03]

shinobu_osakaさん＞
不在中の対応ありがとうございます。

lyzmfeqpxs54さん＞
もうひとつ案がありました。
今確認したところ、シートを複数選択すれば、その選択したシートをpdfに出力することができました。
なので、ひとつのシートにまとめるのではなく、シートを複製→そのシートを修正、を繰り返す。
最後に複製したシートを全部選択してpdfに出力する、という流れの方が作りやすいかもしれません。
shinobu_osakaさんが仰っているように、ここはわからないことを聞く場です。
ちょっとしたものなら時間に余裕があれば作成することもありますが、それなりの規模の場合はやはりご自分で解決するべきです。
2つ案を出しましたが、どちらか決めてまずは作ってみてください。
その上でわからないことがあれば、また別途質問を挙げてください。

[lyzmfeqpxs54]

ご回答ありがとうございます。
一度作製し改めてコードを書き込みます。

その際はまたご教示いただけますと幸いです。