エクセルシートを分割でPDFファイルにする方法（マクロで）

質問

エクセルのsheetをマクロをつかって、
シート一つ一つを個別にPDFファイル作成し、
一括してシート名で保存させる
都合のいい方法はありませんか？

できればマクロ初心者なので、
マクロそのままを教えてください！！

回答No.2

merlionXX · ベストアンサー

pompompoemさんのコードをほんのちょっといじって・・・。

Sub Macro1()
Application.ActivePrinter = "クセロPDF on Ne00:"
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"クセロPDF on Ne00:", Collate:=True
Next i
End Sub

お礼

できました！！！
そのままsheet名で保存というわけにはいきませんが、
一挙にPDF化されました！

毎月の仕事だったため
負担が激減します！
本当にありがとうございました！

回答No.1

marbin

>できればマクロ初心者なので、
>マクロそのままを教えてください！！

この一言で回答者はみんな引くだろうな・・・。
勉強して作り上げていく、という態度がみえないと
回答はつきにくい、というより、つかないでしょう。

また、手取り足取り、となると、荷が重いので、これも
引く要因になります。

まずは、ＶＢＡ参考書やＶＢＡ関連サイトで勉強しまし
ょう。

※最低ＰＤＦ作成ソフトの名前、バージョン、エクセル
のバージョンくらいはないとさらに解答がつきにくいで
すね。

お礼

なるほど。。。そうゆうものですか。
ご指摘ありがとうございます…。
恥ずかしい限りです。

PDF化ソフトは先日ダウンロードした『クセロPDF』。
エクセルのバージョンは2003です。

以下悪戦苦闘し作った結果なのですが
これだと、最初のsheetがsheetの枚数だけ作られる結果になってしまいました…。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2006/12/19 ユーザー名 : f96293b
'

'
Application.ActivePrinter = "クセロPDF on Ne00:"
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"クセロPDF on Ne00:", Collate:=True
Next i

End Sub