[[20230928141317]]　『PDF保存時に名前の後に(1)付けたい』（ゆうた）　ページの最後に飛ぶ

『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

コメント返信：

[ 一覧(最新更新順) ]

[[20230928141317]] 『PDF保存時に名前の後に(1)付けたい』（ゆうた） ページの最後に飛ぶ

[[20230928141317]]　『PDF保存時に名前の後に(1)付けたい』（ゆうた）　ページの最後に飛ぶ