
【フォルダの場所】
C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所
※ファイルは常に1つしか無い。おかない。
※既存ファイル task20250529123939 が置かれる場所
【既存ファイルの名前】
task20250529123939
※ファイル名は上記形式。数字の日付から秒までは変化します
※数字の意味:2025年05月29日12:39分39秒
【選択肢。プルダウン】
インバウンドあ
インバウンドい
インバウンドう
※既存ファイルの名前の先頭に付けたい名前をプルダウンから手作業で1つ選び
マクロを使い、既存ファイルの先頭に、名前をつける
※プルダウンは3-6種類まで増やす予定
【最終的に既存ファイルの先頭にプルダウンより1つ選び、作りたいファイル名】
インバウンドあtask20250529123939
※上記選択肢より、1番目を選んだ場合
No.3
- 回答日時:
>ファイルの名前も任意でいろいろな場合は、以下の
>ワイルドカードを以下にすれば良いのでしょうか?
>お手すきな時によろしくお願いします
>変更後: file_name = Dir(Folder & "\*")
>変更前: file_name = Dir(Folder & "\task*")
はい。それであってますが、1点 注意すべきことがあります。
もし、C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所 の直下にフォルダがあった場合は、そのフォルダ名も取得してしまいます。
直下にフォルダがなければ、問題ありません。
No.2
- 回答日時:
以下のようにしてください。
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
tatsumaru77 様
ありがとうございます。うまくできました
1つ質問ですが、既存ファイルを
task20250529123939だけではなく、全てのxlsxやcsvなど
ファイルの名前も任意でいろいろな場合は、以下の
ワイルドカードを以下にすれば良いのでしょうか?
お手すきな時によろしくお願いします
変更後: file_name = Dir(Folder & "\*")
変更前: file_name = Dir(Folder & "\task*")
No.1
- 回答日時:
プルダウンで選択した結果は、どのセルに格納されますか。
又、そのセルの内容が空白の場合もありえますか。(何も選ばなかった状態)
tatsumaru77 様
大変失礼しました。マクロやプルダウンを設置するファイルを書き忘れました。以下です。
何も選ばなかつた場合は、プルダウンは空白
プルダウンは、以下ファイのA1セル。シート名はSheet1にて
お願いします
他不足情報ありましたら、ご指摘頂ければと思います
マクロやプルダウンを設置するファイル
C:\Users\user\Documents\ツール\コントロール.xlsm
ファイル名⇒コントロール.xlsm
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【マクロ】【画像あり】4つのファイルデータを1つのエクセルブックにある4つのシートへそれぞれコピー
Excel(エクセル)
-
【マクロ】【画像あり】❶ブックから別ブックへデータ貼付❷分岐 シート①にデータありシート②へ貼付の件
Excel(エクセル)
-
勤怠表について ABS、TEXT関数の使い方について教えて下さい
Excel(エクセル)
-
-
4
【マクロ】【画像あり】ファイル名を別名にて保存。元ファイルはゴミ箱へ移動⇒する方法について
Excel(エクセル)
-
5
【Officer360?Officer365?のデータの入力規則の解除方法を教えてくださ
Excel(エクセル)
-
6
【関数】=EXACT(a1,b1) a1とb1が空白の場合trueではなく、空白を返すには?
Excel(エクセル)
-
7
Dir関数のDo Whileステートメントにおける1回目と2回目のファイル名の呼出し方法の違い
Excel(エクセル)
-
8
【WordでもExcelでも良いですが】A4サイズの用紙に1文字を印刷する方を教えてく
Excel(エクセル)
-
9
【マクロ画像あり】❶1つの条件一致❷1つの条件に部分一致❸最終行データコピー❶❷❸実現するマクロの件
Excel(エクセル)
-
10
LibreOffice Clalc(またはエクセル)において日祝日の場合に1を返すプログラムは?
Excel(エクセル)
-
11
Excelの条件付書式について教えてください。
Excel(エクセル)
-
12
【マクロ】A列にある、日付(本日:4月17日)を検索し、セルを選択するには?
Excel(エクセル)
-
13
【マクロ】アクティブセルの時間を別ブックから検索。見つかったセルを含めた最終行まで選択したい
Excel(エクセル)
-
14
2枚のエクセル表で数字をマッチングさせる方法を教えてください
Excel(エクセル)
-
15
【マクロ】列を折りたたみ非表示したセルの内、可視セルをコピーするとがエラーとなる
Excel(エクセル)
-
16
グループごとの個数をカウントしたい。
Excel(エクセル)
-
17
エクセル
Excel(エクセル)
-
18
【マクロ】エラー【#DIV/0!】が発生する場合の回避方法について
Excel(エクセル)
-
19
エクセルシートの見出しの文字を大きくしたい
Excel(エクセル)
-
20
【マクロ、画像あり】A表かB表かどちらか判断をして、処理をする
Excel(エクセル)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
隣の枝がはみ出してきたら切ってもいい?最もやってはいけないことは?
「隣の木が越境してきて困るが、勝手に切ってはいけないと聞くし…」そう思っている方も多いだろう。実は、2023年4月1日に民法が改正され、この「越境枝」のルールが大きく変わった。 教えて!gooでも「境界から出て...
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
cerファイル、pfxファイルの基...
-
【マクロ】既存ファイルの名前...
-
ChatGPT excel
-
A4ファイルを綺麗に並べる方法...
-
Excelのドキュメントの回復につ...
-
Google ドライブに意図しないフ...
-
win10でbinでダウンロードでき...
-
FlukeのLANテスター flwファイ...
-
plgファイルの開き方
-
ドライブからのダウンロードの...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
EXCEL2010でロータスのファイル...
-
VBA 数値を文字列として貼付したい
-
これは無効な PKCS#7証明書フ...
-
Excel VBA 転記について
-
Office Home & Business 2021で...
-
開かなくなった引き出しの開け方
-
CSDファイルの開き方
-
"~$[ファイル名].xlsx"というフ...
-
A3横型ファイルに対応したワゴ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google ドライブに意図しないフ...
-
【マクロ】既存ファイルの名前...
-
cerファイル、pfxファイルの基...
-
VBA 数値を文字列として貼付したい
-
A4ファイルを綺麗に並べる方法...
-
VBA:ユーザーフォームのマルチ...
-
拡張子sfvってなんですか?
-
「最小化」したファイルが元の...
-
ChatGPT excel
-
WPSスプレッドシートでエラー。...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
AUTOCAD
-
"~$[ファイル名].xlsx"というフ...
-
オフィス内のA4ファイルが倒れ...
-
開かなくなった引き出しの開け方
-
plgファイルの開き方
-
preAlloc Fileとは何ですか?
-
拡張子TKM
-
FlukeのLANテスター flwファイ...
-
メールに添付ファイル(エクセ...
おすすめ情報