次の方法で共有

MacでのVBAの構文エラーについて(シートごとにPDFで保存)

Anonymous
2017-09-06T05:25:13+00:00

エクセルの各シートごとにPDFで書き出しをしたいのですが、

Sub test()

Dim i As Long

For i = 1 To Worksheets.Count

Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=ThisWorkbook.Path & “:” & _ Worksheets(i).Name, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, OpenAfterPublish:=True

Next i

End Sub

の内容で、構文エラーになってしまいます。

どこに問題があるか、ご教示いただけないでしょうか?

**モデレーター注**

この質問は [Office | Excel | Mac | Office 365 for business] のカテゴリに投稿されましたが、内容から判断しこちらのカテゴリに移動いたしました。適切なカテゴリに投稿すると、返信や回答が得られやすくなり、同じ質問を持つ他のユーザーの参考にもなります。

開発者テクノロジ | Visual Basic for Applications

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント コメントはありません

5 件の回答

並べ替え方法: 最も役に立つ
  1. Anonymous
    2017-09-06T07:56:48+00:00

    私はExcel for Mac(office365)を使用しているのですが、どうやら「ExportAsFixedFormat」に互換性がないようです...

    この回答は役に立ちましたか?

    2 人がこの回答が役に立ったと思いました。
    0 件のコメント コメントはありません
  2. Anonymous
    2017-09-06T08:04:01+00:00

    ありがとうございました!

    参考にさせていただきます。

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません
  3. Anonymous
    2017-09-06T07:53:11+00:00

    私の環境はWindows8.1+Excel2013で保存出来たのですが、、、

    http://sunlight.cocolog-nifty.com/sunlight/2016/03/exportasfixedfo.html

    「『ExportAsFixedFormat』で『pdf』ファイルを作成する際の意外なエラーに弄ばれる!」

    というのがありました。

    これにも該当しなければ私には原因が分かりませんので

    下記フォーラムで質問しては如何でしょう。

    https://social.msdn.microsoft.com/Forums/ja-JP/home?forum=vbajp

    「Visual Basic for Application(VBA)フォーラム」

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません
  4. Anonymous
    2017-09-06T07:35:49+00:00

    ご返信ありがとうございます。

    こちらで実行してみましたところ、

    「アプリケーション定義またはオブジェクト定義のエラーです。」

    のエラーが表示され、デバッグをクリックしましたところ、

    Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _

    の部分は指し示されました。

    この部分にエラー要素が含まれているのでしょうか?

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません
  5. Anonymous
    2017-09-06T06:25:06+00:00

    私はExcel2013ですが、

    ファイル名の一部にコロン(:)は使えないので代わりにマイナス(-)を使ったら保存出来ました。

    Sub test()

        Dim i As Long

        For i = 1 To Worksheets.Count

            Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _

                Filename:=ThisWorkbook.Path & "-" & Worksheets(i).Name, _

                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _

                        IgnorePrintAreas:=False, OpenAfterPublish:=True

        Next i

    End Sub

    (参考情報)

    https://support.microsoft.com/ja-jp/help/879749

    「ファイル名に使用できる文字について」

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません