[[20200505200250]]　『VBA　任意のシート　PDF保存』（ゆう）　ページの最後に飛ぶ

『VBA　任意のシート　PDF保存』（ゆう）

複数シートあるエクセルの一番左のシート以外をすべてPDF保存する場合はどのようなコードを書けばよろしいでしょうか？

PDFのファイル名はエクセルのファイル名と同じでお願いいたします。
保存場所もエクセルの保存場所と同じでお願いいたします。

何卒ご教授よろしくお願いいたします。

＜使用 Excel：unknown、使用 OS：unknown ＞

 参考に
 Sub Test()
    Dim i As Long
    With ThisWorkbook
        For i = 2 To .Worksheets.Count
            .Sheets(i).Select Replace:=i = 2
        Next
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Left(.FullName, Len(.FullName) - 5)
        .Sheets(1).Select
    End With
 End Sub

（ピンク） 2020/05/05(火) 20:35

ピンクさん

やりたいように動きました！
本当にありがとうございます。
（ゆう） 2020/05/05(火) 22:20

コメント返信：

[ 一覧(最新更新順) ]

[[20200505200250]] 『VBA 任意のシート PDF保存』（ゆう） ページの最後に飛ぶ

[[20200505200250]]　『VBA　任意のシート　PDF保存』（ゆう）　ページの最後に飛ぶ