『PDF保存時に名前の後に(1)付けたい』(ゆうた)
よろしくお願いします
PDF保存するときデスクトップに同名のPDFがあった場合、
(1)、(2)のように番号を付けるにはどうすればいいのでしょうか。
例
依頼番号:230928_田中.pdfがすでにある場合、
依頼番号:230928_田中(1).pdfとして保存する。
sheet1
A B C 1 依頼番号 田中 2 230928 3 4 5
Sub PDF保存()
Dim SaveName As String
Dim desktop As String
Dim QuotName As String
Dim FileName As String
Dim i As Integer
SaveName = Sheet1.Range("A2")
desktop = CreateObject("wscript.shell").specialfolders("desktop")
QuotName = Sheet1.Range("C1")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=desktop & "\" & "依頼番号:" & QuotName & "_" & SaveName & ".pdf", _
OpenAfterPublish:=False
FileName = desktop & "\" & "依頼番号:" & QuotName & "_" & SaveName & ".pdf"
Do While Dir(FileName) <> ""
i = i + 1 FileName = desktop & "\" & "依頼番号:" & QuotName & "_" & SaveName & Format(i, "(0)") & ".pdf" Loop
End Sub
< 使用 Excel:Excel2019、使用 OS:Windows10 >
desktop = CreateObject("wscript.shell").specialfolders("desktop") QuotName = Sheet1.Range("C1") SaveName = Sheet1.Range("A2")
FileName = desktop & "\" & "依頼番号:" & QuotName & "_" & SaveName & ".pdf" Do While Dir(FileName) <> "" i = i + 1 FileName = desktop & "\" & "依頼番号:" & QuotName & "_" & SaveName & Format(i, "(0)") & ".pdf" Loop
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName, OpenAfterPublish:=False (マナ) 2023/09/28(木) 15:03:37
ありがとうございました。
うまく動くようになりました。
(ゆうた) 2023/09/28(木) 16:38:10
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.