VBA シートをPDF保存

シートをPDF保存

Sub MyPdf()

　　’ 　アクティブシートをPDF化
    Dim MyName As String
    Dim WS As Worksheet
    Dim Title As String
    Dim Num As Integer

    ’　拡張子除いたファイル名文字数
    Num = Len(ThisWorkbook.Name) - 5

    ’　'拡張子除いたファイル名を変数へ格納
    Title = Left(ThisWorkbook.Name, Num)

    Set WS = ThisWorkbook.ActiveSheet

    MyName = ThisWorkbook.Path & _
                        "\" & Title & "_" & _
                          WS.Range("I2")        'I2に関連コードを格納済

    WS.ExportAsFixedFormat _
                        Type:=xlTypePDF, _
                        Filename:=MyName

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る