Excel2010を利用したPDF化

[iti]

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

Excel2010ではPDF出力が標準でサポートされているので試してみました。

「Excelアドインを利用したPDF化」を参考にしてExcel2010で実行したところ、
問題なくPDF出力できました。
ご参考までにご報告します。

また、PDF出力のマクロを各テンプレートに組み込むのが嫌だったので、
マクロ部分を外だしにしてみました。

１．closePdf関数をテキストファイルに保存
　　例)closePdf.vbs
２．外部マクロをincludeさせた上でpdf出力するマクロ作成
　　（book全体をPDF出力しかしていませんが)
Dim app

'On Error Resume Next
'Err.Clear

Set app = CreateObject("Excel.Application")

' Excelは非表示にする
app.Visible = False
' ダイアログを非表示にする
app.DisplayAlerts = False

' 引数のチェック、ファイルを開く
Set args = WScript.Arguments.Named

If args.Exists("file") Then
' ファイルを開く
Set workbook = app.Workbooks
workbook.Open args("file")
Set book = app.ActiveWorkbook

'PDF出力用マクロをinclude
book.VBProject.VBComponents.Import args("outvbs")

'PDF出力実行
app.Run "closePdf" , args("outfname")

' アプリケーション終了
app.Quit
Set book = Nothing
Set workbook = Nothing
End If

app.DisplayAlerts = True
Set app = Nothing

３．このファイルをpdfExport.vbsとすると、こんな感じで呼び出します。
pdfExport /file:変換元Excelのフルパス /outfname:出力するPDFのフルパス /outvbs:closePdf関数
を記述したVBSファイルへのフルパス

４．但し、外部からVBAマクロをExcelにねじ込んでいるのでExcelのセキュリティ設定を行う必要があります。

Excelでファイル→オプション→セキュリティセンター→セキュリティセンターの設定→マクロの設定→
ＶＢＡプロジェクトオブジェクトモデルへのアクセスを信頼するにチェック

以上、ご参考になれば幸いです。

[横井@bbreak]

横井です。

情報共有ありがとうございます。
こういう情報を頂けると非常にありがたいです。

今後ともよろしくお願いします。