No.3ベストアンサー
- 回答日時:
こんにちは。
本来は、UserForm に取り付ければよいのですが、掲示板提供では、そういうわけにも行かないので、工夫しました。
ピンボイントの回答もあるけれども、ある程度の汎用性があるものを作らなければ、後付けで、わざわざ書く意味もありません。
1201課題.xls →1201完了.xls
また、
1201.xls という場合も、課題1201.xls ということも可能です。
もう少し、コードをきれいに整頓する必要性は感じますが、参考程度にしてください。
マクロというのは、対話型ではなく、動作を見えないままに一括変換することが多いので、その場合は、他のサンプルを参考にしてください。また、対話型なら、実際には、ユーティリティを使ったほうが良いような気もします。
'-------------------------------------------
'標準モジュール登録用
Sub FileNameChange()
Dim nFiles As Variant
Dim sText As Variant
Dim sRept As Variant
Dim tmp As Variant
Dim ret As VbMsgBoxResult
Dim BaseName As String
Dim fName As String
Dim i As Long
Dim v As Variant
''=========================================
Const sEXT As String = "*.xl*" '拡張子
''=========================================
nFiles = Application.GetOpenFilename("Excel(" & sEXT & ")," & sEXT, , "ファイル名変更", , True)
If VarType(nFiles) = vbBoolean Then Exit Sub
i = InStrRev(nFiles(1), "\")
BaseName = Mid(nFiles(1), 1, i)
tmp = Mid(nFiles(1), i + 1)
sText = Application.InputBox(tmp & vbCrLf & "検索する単語を入れてください。", "検索する単語", Type:=2)
If VarType(sText) = vbBoolean Or sText = "" Then Exit Sub
sRept = Application.InputBox(tmp & vbCrLf & "置換する単語を入れてください。" & vbCrLf _
& "削除する場合や付加する場合は、そのままOK/Enterを入れてください。", "置換する単語", Type:=2)
If VarType(sRept) = vbBoolean Then Exit Sub
If InStr(1, tmp, sText, 1) > 0 Then
ret = MsgBox("例:" & Replace(tmp, sText, sRept, , 1, 1) & vbCrLf & _
"このようにしますか?" & vbCrLf & "ファイル名に付加する場合はNo/いいえ", vbInformation + vbYesNoCancel)
Else
ret = vbNo
End If
If ret = vbCancel Then
Exit Sub
End If
If ret = vbNo Then 'オプション
ret = MsgBox(sText & "を付加します。" & vbCrLf & "Yes/ファイル名の手前(Prefix) " & _
"No/拡張子の手前(Sufix)" & vbCrLf & "Cancel/取りやめ", _
vbInformation + vbYesNoCancel, "ファイル名変更")
If ret = vbYes Then
Call AddFileNameChange(sText, nFiles, 1)
GoTo EndLine
ElseIf ret = vbNo Then
Call AddFileNameChange(sText, nFiles, 0)
GoTo EndLine
Else
Exit Sub
End If
End If
For Each v In nFiles
fName = Replace(v, BaseName, "", , 1, 1)
Name v As BaseName & Replace(fName, sText, sRept, , 1, 1)
Next v
EndLine:
If MsgBox("終了しました。確認しますか?", vbQuestion + vbOKCancel) = vbOK Then
tmp = Application.GetOpenFilename("Excel(" & sEXT & ")," & sEXT, , "ファイル名変更")
End If
End Sub
Sub AddFileNameChange(ByVal sText As String, nFiles As Variant, Optional location As Long)
Dim i As Long
Dim v As Variant
If location = 1 Then
'Prefix
For Each v In nFiles
i = InStrRev(v, "\")
Name v As Mid(v, 1, i - 1) & "\" & sText & Mid(v, i + 1)
Next v
Else
'Sufix
For Each v In nFiles
i = InStrRev(v, ".")
Name v As Mid(v, 1, i - 1) & sText & Mid(v, i)
Next v
End If
End Sub
No.2
- 回答日時:
あるフォルダを処理すれば、他のフォルダを考える必要は無い情況と思います。
(1)あるフォルダの全ファイル名を捉えるコードはWEBにあふれている。
Googleででも「VBA ファイル名 取得」や「vba フォルダ ファイル名 取得」で照会する。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
ほか多数。
その中から目的(処理対象)のブック(ファイル)名を選別するのは、質問に書いてないが
・エクセルブックxlsであること
・ファイル名に「課題」という文字を含んでいること
か?この点質問者が考えて、はっきり書かないと、部外者には情況がわからないのだ。
フォルダの全ファイルの場合は選別は不要なのは当たり前だが、どうかな。
(2)そのファイルを捉えたとして、ファイル名の変更は、これもWEBですぐ判る。
これもGoogleなどで「VBA ファイル名変更」で照会すれば、多数の記事がある。
http://officetanaka.net/excel/vba/tips/tips91.htm
など多数。
結局、WEB照会もせず、質問しているのではないですか。
プログラムを書こうとする場合、WEB照会ぐらい習慣付けないと。
No.1
- 回答日時:
参考:
■ VBAでファイルの操作
http://officetanaka.net/excel/vba/tips/tips91.htm
■ ファイルの移動、ファイル名の変更、ファイルの削除
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
上記のコードサンプルを参考にしてください。
実際には ボタンや リストボックス などを用いて 画面を作って あげれば
操作性が よくなります。
参考URL:http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) エクセルのマクロについて質問があります。 現在は下記のマクロでエクセル表を保存しています ThisW 2 2022/09/16 11:22
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ内のexcelファイルを順...
-
EXCEL VBA 指定したファイルが...
-
Excel VBA でファイルが開かれ...
-
エクセルマクロで不特定なファ...
-
VBAでワークブックの名前を変数...
-
エクセルマクロのファイルの存...
-
エクセル 複数ファイルの一括...
-
データ参照先が別ファイルの場...
-
エクセル(マクロ)のファイル...
-
Excelのマクロでファイルを開く...
-
LTSpiceにLMV358-Nのモデルを入...
-
テキストファイルのファイル名...
-
【マクロ】読取専用のファイル...
-
EXCELマクロを無効にして開く方法
-
Excelファイルを開いた時に、特...
-
Excel VBA seleniumのedge操作...
-
Excelファイルがマクロを含むか...
-
エクセルのマクロについて教え...
-
エクセルのファイルを開くと複...
-
ワードの履歴情報を消すマクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
【マクロ】名前を保存する際に...
-
VBAでワークブックの名前を変数...
-
エクセルマクロで不特定なファ...
-
【マクロ】読取専用のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセルのシートの数を数えた...
-
フォルダ内のexcelファイルを順...
-
エクセル(マクロ)のファイル...
-
vlookup関数の引数を変数で指定...
-
エクセル 複数ファイルの一括...
-
ファイルを開かずにマクロを実行
-
フォルダ内のブック全部にパス...
-
【Excel VBA】ファイル名が一...
-
ファイルの保存場所を変えたら...
-
vba初心者です。 質問です。 毎...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
Excel VBA でファイルが開かれ...
-
エクセルマクロ 異なるファイ...
おすすめ情報