VBAでExcelシートを一枚ずつpdfファイルに出力したい

お世話になっております

ExcelのVBA初心者です

Excelファイルに複数枚のシートが存在しており、
全てのシートの印刷設定は完了しています

各シートを１枚ずつにPDFファイルに出力したいと考えています
シート数だけpdfファイルができるようなイメージです。

そこで、以下のようなプログラムを書きました

vba
1Sub sample()
2
3    Dim st As Object
4    Dim outPutPath As String
5    Dim fileName As String
6    Dim waitTime As Variant
7    
8    outPutPath = '保存先のパス'
9
10    For Each st In Sheets
11     st.Activate
12     fileName = outPutPath & st.Name
13     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
14     waitTime = Now + TimeValue("0:00:03")
15     Application.Wait waitTime
16    Next
17
18End Sub

問題なく実行され
pdfファイルを出力され続けるのですが、以下のエラーが表示され
途中で処理が落ちてしまいます。
落ちる場所もランダムで、特定のシートで止まっているわけではありません

エラー内容

検索してもこのエラーが発生する原因が多いので特定することができませんでした

環境は以下の通りとなります
ご教授頂ければと思います

OS：Windows10
Excelバージョン：Excel2013

みなさま、コメントありがとうございます

皆様のコメントやご指摘を対応しておりますが、
現状、エラーは表示されております。

デバッグしたところ、pdfの出力処理、以下の行を実行後にエラーが発生しております。

vba
1st.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
2

ループ中ランダムのタイミングで出力されるので、シートに問題が有るわけではないようです。
本処理を実行後、pdfを出力してからエラーが発生する感じです。
ちなみに、出力したファイルに問題はありません。

申し訳ありませんが、ご教授頂ければと思います。

moh1ee

2017/08/05 17:18

Application.Waitで処理を止めるのは何か目的があってのことでしょうか？

退会済みユーザー

2017/08/06 01:46 編集

私は。保存直後に待機なしでループさせるとクラッシュする、と踏んだからだと思っていました（実際どうなるかは...）

lazy

2017/08/06 01:50

最初は、Application.Waitの処理はいれてませんでしたが、保存処理に時間がかかった場合の事を考慮してですね

退会済みユーザー

2017/08/06 02:20

fileName = outPutPath & st.NameのoutPutPath は常にブランクですか？

lazy

2017/08/06 02:21

ご指摘ありがとうございます。自分のファイルパスが入っていたので質問からは削除していました。質問内容を修正させていただきます。

行動規範の内容に同意します

回答5件

ベストアンサー

エラーコード 400 の意味はこちらを参考にして下さい。

おそらく、いくつかのオブジェクトの定義が曖昧なため、何らかの原因で処理中にワークシートなどが参照できない状態になり、 400 番エラーが出ているのではないでしょうか。

ひとまず、提示されたプログラムを流用して、具体的なオブジェクトを指定できるようにしてみました。
何枚印刷するかわかりませんが、とりあえずワークシート100枚程度ならば落ちませんでした。

vba
1Option Explicit
2
3' ファイル名 outputpdf.xlsm として保存。
4' イミディエイトウィンドウで、以下の通り、ワークブックを引数として呼び出す
5' call sample(workbooks("outputpdf.xlsm"))
6Sub sample(wb As Workbook)
7
8    ' 曖昧な定義を訂正
9    'Dim st As Object
10    Dim st As Worksheet
11    Dim outPutPath As String
12    Dim fileName As String
13    'Dim waitTime As Variant
14
15    outPutPath = "c:\work\"
16
17    ' 指定したワークブック中のワークシート分ループ。
18    For Each st In wb.Sheets
19     st.Activate
20     fileName = outPutPath & st.Name
21
22     ' ワークシートオブジェクトは、現在のワークシートを示す st を用いる。
23     'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
24     st.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
25
26     ' weit 不要
27     'waitTime = Now + TimeValue("0:00:03")
28     'Application.Wait waitTime
29    Next
30
31End Sub

投稿2017/08/07 04:54

tukuroku

総合スコア234

lazy

2017/08/09 07:02

ありがとうござます。提示頂いたコードで問題なくできましたが、どうやら、保存先のパスが原因っぽかったです c配下であれば、問題なく出力できたのですが、 dropbox配下などはダメでしたパスに日本語が含まれているのが原因かと思ったのですが、それも、関係有りませんでしたとりあえず、今のパスのままでやっていこうと思います（笑）ありがとうございます

行動規範の内容に同意します

こちらは無料のVBA向けのコンポーネントSpire.XLS for .NETがありまして、問題のExcelからPDFに出力することがでいきると思いますので、一度試してみませんか、ダウンロードしてから参照に追加するだけで普通に使用できますから、無料にしては意外と簡単ですよ。使えるコードも一応貼り付けてます：

Imports
1
2Namespace Excel_Worksheet_to_PDF
3	Class Program
4		Private Shared Sub Main(args As String())
5			Dim workbook As New Workbook()
6			workbook.LoadFromFile("Sample.xlsx")
7
8			Dim sheet As Worksheet = workbook.Worksheets(0)
9
10			sheet.SaveToPdf("toPDF.pdf")
11			System.Diagnostics.Process.Start("toPDF.pdf")
12		End Sub
13	End Class
14End Namespace