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 VBA 指定したファイルが...
-
VBAでワークブックの名前を変数...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
データ参照先が別ファイルの場...
-
【Excel VBA】ファイル名が一...
-
エクセルマクロで不特定なファ...
-
Excelファイルがマクロを含むか...
-
ファイルを開かずにマクロを実行
-
VLookupで参照する範囲を変数で...
-
エクセルのシートの数を数えた...
-
エクセル(マクロ)のファイル...
-
新規 xlsmファイルにする方法...
-
word2007ファイル起動時のSQLに...
-
ACCESS VBAでファイルを開くダ...
-
Excelのマクロでファイルを開く...
-
ファイル名を変更するマクロ
-
エクセルのマクロで外部ファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
【マクロ】名前を保存する際に...
-
【Excel VBA】ファイル名が一...
-
ファイルを開かずにマクロを実行
-
accessフォルダを移動したらフ...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
エクセルマクロ 異なるファイ...
-
データ参照先が別ファイルの場...
おすすめ情報