Sub PDF出力()'''PDF化する時はシート番号を利用しシート番号6~15の10シート分をPDF化 Dim FileName As String '保存先フォルダパス&ファイル名 Dim SheetName As String 'シート番号 Dim CNT As Long 'カウンタ For CNT = 6 To 15 '10シート分をPDF化する SheetName = Worksheets(CNT).Name FileName = "C:\会議資料H30年\会議資料\" & SheetName Worksheets(CNT).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName '選択したシートをPDF出力 Next CNT End Sub
上記のようなVBAを組んだのですが、実行すると最初3シート分までは出力されるのですが、途中で「実行時エラー"1004"」が出てきて、残りが出力されません。どこをどのように修正すればよいのでしょうか?
よろしくお願いします。
2018/5/1 追記
内容が足りずお手数をお掛けしました。
実行時エラー文の、この後の文章は「ドキュメントを保存できませんでした。ドキュメントが開いているか、保存時にエラーが発生した可能性があります。」です。
エラー行は
Worksheets(CNT).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
の所です。
よろしくお願いします。
2018/5/2 追記
シート名は「地区別売上」「地区別粗利」などの全て全角の文字で付けています。
また、エラーが出るシートはvbaを実行するたびに代わってしまいます。
よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー