[[20170604115634]]　『Excel2010で大量のデータを1つのPDFとして保存しａx（お肉さん）　ページの最後に飛ぶ

『Excel2010で大量のデータを1つのPDFとして保存したい』（お肉さん）

お世話になります。
複数のデータを一つのPDFファイルに保存できないかと考えていますが可能でしょうか？
一つのシートをPDFにする事はこちらの過去の書き込みから

Sub outputPDF()

Dim fileName As String '保存先フォルダパス＆ファイル名
fileName = ThisWorkbook.Path & "\報告書_Format(Date, yyyymmdd).pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub

の文で出来たのですが、複数同時に行うとシート名が変わらず最後に保存したものしか残りません。更にyyyymmddの部分も””でくくるとエラーが起きるので今の文になっています。
分かりづらいかもしれませんがお付き合い頂けると大変助かります。

まとめると
１．シート印刷の代わりにPDFで保存したい。
２．名前に日付を入れたい
３．複数のシートをまとめてPDFにしたい（出来ない場合は複数作成になっても可）

よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

＞２．名前に日付を入れたい
＞fileName = ThisWorkbook.Path & "\報告書_Format(Date, yyyymmdd).pdf"
　　　↓
fileName = ThisWorkbook.Path & "\報告書_" & Format(Date, yyyymmdd) & ".pdf"

これで、試してみてください。
でも、同じ日に実行すると上書きになります。
例えば、ブック名、シート名など入れるとか工夫が必要では？

＞３．複数のシートをまとめてPDFにしたい

http://officetanaka.net/excel/vba/tips/tips31.htm

（マナ） 2017/06/04(日) 14:49

マナさんありがとうございます。
試してみましたがコンパイルエラーが表示されてしまいます。
ちょっと自分でもいろいろ試してみますが何かご指摘いただければ助かります。
よろしくお願いします。
（お肉さん） 2017/06/04(日) 18:41

失礼しました。

Format(Date, "yyyymmdd")

でした。

（マナ） 2017/06/04(日) 18:50

マナさん早速ありがとうございます。
ただ、またコンパイルエラーが出ました。
よろしくお願いします。
（お肉さん） 2017/06/04(日) 19:03

エラーの出たコードをここにコピペしてください。

（マナ） 2017/06/04(日) 19:13

エラーコードなどが出ていると具体的に伺えるのですが、

コンパイルエラー：

プロジェクトまたはライブラリが見つかりません。

となっているので伺えませんでした。
よろしくお願いします。
（お肉さん） 2017/06/04(日) 19:18

そうではなくて、どうのように修正したのかを知りたいのです。
これでコンパイルエラーがでたのでしょうか。

Sub outputPDF()

    Dim fileName As String '保存先フォルダパス＆ファイル名
    fileName = ThisWorkbook.Path & "\報告書_" & Format(Date, "yyyymmdd") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub

（マナ） 2017/06/04(日) 19:29

はい、上の文で間違いないです。
で、実行すると必ずdateの所で止まって状態になるみたいです。
（お肉さん） 2017/06/04(日) 19:34

念のため、実行したマクロをここにコピペしてください。

（マナ） 2017/06/04(日) 19:40

これで良いでしょうか？
Sub outputPDF()

Dim fileName As String '保存先フォルダパス＆ファイル名
fileName = ThisWorkbook.Path & "\報告書_" & Format(Date, "yyyymmdd") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub

ちなみに先程マナさんが書いて頂いたものも試しましたが同じ結果でした。

（お肉さん） 2017/06/04(日) 19:43

これでしょうか
https://www.moug.net/tech/exvba/0150128.html

（マナ） 2017/06/04(日) 19:53

マナさんありがとうございます。
解決しました。
チェックを外せば良かったんですね。
何度も対応して頂きホントにありがとうございました。
（お肉さん） 2017/06/04(日) 20:01

コメント返信：

[ 一覧(最新更新順) ]

[[20170604115634]] 『Excel2010で大量のデータを1つのPDFとして保存しａx（お肉さん） ページの最後に飛ぶ

[[20170604115634]]　『Excel2010で大量のデータを1つのPDFとして保存しａx（お肉さん）　ページの最後に飛ぶ