Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

411 / 76807

←次へ　｜　前へ→


	【82063】Re:PDF　連番保存

OK - 22/8/31(水) 11:58 -


	引用なし

	パスワード

なるべく元コードを生かすようにして書き換えました。

Sub test()
'名前をつけて保存
Dim Desktop_Path As String
Dim fileSaveName As String
Dim fileSaveName_Name As String
Dim fileSavePath As String
Dim kaku As String
Dim ws As Worksheet

　Set ws = ActiveSheet
　kaku = "pdf"
　Desktop_Path = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop")
　fileSaveName = ws.Range("AI1").Value
　fileSaveName_Name = fileSaveName
　fileSavePath = Desktop_Path & "\" & fileSaveName_Name & "." & kaku
　'''保存しようとしたファイル名と既に同じファイル名が存在するならば、
　'''ファイル名の末尾に(i)をつける
　If Dir(fileSavePath) <> "" Then
　　 k = 0
　　Do While Dir(fileSavePath) <> ""
　　　k = k + 1
　　　'保存ファイル名を取得
　　 fileSaveName_Name = fileSaveName & Format(k, "(0)")
　　 fileSavePath = Desktop_Path & "\" & fileSaveName_Name & "." & kaku
　　Loop
　End If
　ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSavePath
　Set ws = Nothing
End Sub

3 hits

▼

【82054】PDF　連番保存 はる 22/8/29(月) 17:29