重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら>

【GOLF me!】初月無料お試し

【フォルダの場所】
C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所
※ファイルは常に1つしか無い。おかない。
※既存ファイル task20250529123939 が置かれる場所


【既存ファイルの名前】
task20250529123939
※ファイル名は上記形式。数字の日付から秒までは変化します
※数字の意味:2025年05月29日12:39分39秒


【選択肢。プルダウン】
インバウンドあ
インバウンドい
インバウンドう
※既存ファイルの名前の先頭に付けたい名前をプルダウンから手作業で1つ選び
 マクロを使い、既存ファイルの先頭に、名前をつける
※プルダウンは3-6種類まで増やす予定

【最終的に既存ファイルの先頭にプルダウンより1つ選び、作りたいファイル名】
インバウンドあtask20250529123939
※上記選択肢より、1番目を選んだ場合

A 回答 (4件)

No3です。


すみません。勘違いしていました。
No3は無視してください。

変更後: file_name = Dir(Folder & "\*")
でOKです。
C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所 の直下にフォルダがあった場合でも、そのフォルダ名を取得することはありません。
    • good
    • 1
この回答へのお礼

tatsumaru77 様
プルダウンにて選んだ名前をファイル名にする 動作
うまく出来ました。ありがとうございます

お礼日時:2025/06/08 08:28

>ファイルの名前も任意でいろいろな場合は、以下の


>ワイルドカードを以下にすれば良いのでしょうか?
>お手すきな時によろしくお願いします
>変更後: file_name = Dir(Folder & "\*")
>変更前: file_name = Dir(Folder & "\task*")

はい。それであってますが、1点 注意すべきことがあります。
もし、C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所 の直下にフォルダがあった場合は、そのフォルダ名も取得してしまいます。
直下にフォルダがなければ、問題ありません。
    • good
    • 1

以下のようにしてください。



Option Explicit
Public Sub ファイル名変更()
Const Folder As String = "C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所"

Dim file_name As String
Dim add_name As String
Dim old_name As String
Dim new_name As String
file_name = Dir(Folder & "\task*")
If file_name = "" Then Exit Sub
add_name = Worksheets("Sheet1").Range("A1").Value
If add_name = "" Then Exit Sub
old_name = Folder & "\" & file_name
new_name = Folder & "\" & add_name & file_name
Name old_name As new_name
MsgBox ("ファイル名変更完了 " & file_name & "=>" & add_name & file_name)
End Sub
    • good
    • 1
この回答へのお礼

tatsumaru77 様
ありがとうございます。うまくできました

1つ質問ですが、既存ファイルを
task20250529123939だけではなく、全てのxlsxやcsvなど
ファイルの名前も任意でいろいろな場合は、以下の
ワイルドカードを以下にすれば良いのでしょうか?

お手すきな時によろしくお願いします

変更後: file_name = Dir(Folder & "\*")
変更前: file_name = Dir(Folder & "\task*")

お礼日時:2025/06/03 10:52

プルダウンで選択した結果は、どのセルに格納されますか。


又、そのセルの内容が空白の場合もありえますか。(何も選ばなかった状態)
    • good
    • 0
この回答へのお礼

tatsumaru77 様
大変失礼しました。マクロやプルダウンを設置するファイルを書き忘れました。以下です。

何も選ばなかつた場合は、プルダウンは空白
プルダウンは、以下ファイのA1セル。シート名はSheet1にて
お願いします

他不足情報ありましたら、ご指摘頂ければと思います

マクロやプルダウンを設置するファイル
C:\Users\user\Documents\ツール\コントロール.xlsm
ファイル名⇒コントロール.xlsm

お礼日時:2025/06/03 07:20

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

今、見られている記事はコレ!


このQ&Aを見た人がよく見るQ&A