Excel VBA質問箱 IV

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

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


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

11134 / 76735

←次へ　｜　前へ→


	【71141】Re:ファイル名変更について

ちん - 12/2/1(水) 16:30 -


	引用なし

	パスワード

▼インザーギさん、。▼sasa さん：こんにちわ、ちんといいます：
さささんのいう通り、何点か不備があります。
サーバー名もおかしい気がします。
まず、Excelを起動したときのPath名を取得した方が良いと思いますので、
とりあえず、

Sub test()
　 'アクティブウィンドウのブックのフォルダへの絶対パス
　　Workbook_path = ActiveWorkbook.Path
　　
　　'アクティブウィンドウのブックのファイル名までの絶対パス
　　Workbook_FullName = ActiveWorkbook.FullName

　　Workbook_FullName = Replace(Workbook_FullName, ".xls", ".pdf")
　　OldName = Range("BB500").Value
　　If Dir(Workbook_FullName) = "" Then
　　　MsgBox "pdfファイルが存在しません。"
　　Else
　　　prt3 = MsgBox("1の場合は、「はい」、Finalの場合は「いいえ」を選択してください", _
　　　　vbYesNo + vbInformation, "統計表印刷実行")
　　　Select Case prt3
　　　　Case vbYes
　　　　　NewName = Workbook_path & "\" & OldName & "_N1.pdf"
　　　　　If Dir(NewName) = "" Then
　　　　　　Name Workbook_FullName As NewName
　　　　　Else
　　　　　　　　MsgBox "既にファイルが存在します。"
　　　　　End If
　　　　Case vbNo
　　　　　NewName = Workbook_path & "\" & OldName & "_NF.pdf"
　　　　　If Dir(NewName) = "" Then
　　　　　　Name Workbook_FullName As NewName
　　　　　Else
　　　　　　　　MsgBox "既にファイルが存在します。"
　　　　　End If
　　　End Select

　　End If

End Sub

以上、参考までに・・・

5 hits

▼

【71139】ファイル名変更について インザーギ 12/2/1(水) 13:30