ここから本文です

VBAでPDFエクスポート VBA勉強中のものです。

nak********さん

2016/9/2313:05:31

VBAでPDFエクスポート

VBA勉強中のものです。

エクセルの各シートで「FMT」という名の付いているシート以外のものを
指定のフォルダ先にPDFでエクスポートしようとしているのですがうまくいきません。

Sub PDF変換()
Dim savePath As String, i As Variant
savePath = "C:\Users\ユーザー名\Desktop\フォルダ\"
For i = Worksheets.Count To 1 Step -1
If InStr(Worksheets(i).Name, "FMT") < 0 Then
i.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=savePath & i.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next i
End Sub

エクスポートされません。
上記を修正して頂ければと思います。

みなさまご教授ください。
よろしくお願いします。

閲覧数:
61
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

nom********さん

2016/9/2313:13:21

以下の様に修正してみて下さい。

Sub PDF変換()
Dim savePath As String, i As Variant
savePath = "C:\Users\ユーザー名\Desktop\フォルダ\"
For i = Worksheets.Count To 1 Step -1
If InStr(Worksheets(i).Name, "FMT") > 0 Then ’★ 0以上とします。
’★ iは何番目のシートかなので、Worksheets(i)とします。
Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=savePath & Worksheets(i).Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next i
End Sub

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2016/9/23 14:21:11

nomboqさん

ありがとうございます。
思うものができました。

大変助かりました!!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる