VBA使用頻度の高いコード（５）：エクセルシートのPDF出力

エクセルシートのPDF出力

エクセルシートのPDF出力用コード

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub PDF出力()
'
' PDF出力
'
Dim fPath, pPoint, BaseFilename, CurrentFile As String
'ファイル名
CurrentFile = ActiveWorkbook.Name
pPoint = InStrRev(CurrentFile, ".")
BaseFilename = Left(CurrentFile, pPoint - 1)
fPath = ThisWorkbook.Path & "\【一覧表】" & BaseFilename & Format(Now, "_yyyymmddhhnnss") & ".pdf"

'同名のファイルが存在するか確認
If Dir(fPath, vbNormal) <> "" Then
fPath = ThisWorkbook.Path & "\【一覧表】" & BaseFilename & Format(Now, "_yyyymmddhhnnss") & "_1.pdf"
MsgBox "同名のファイルが存在。別名で保存" & fPath

End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fPath, Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝