ここから本文です

フォルダ内にある全てのエクセルファイルのファイル名の先頭に、指定の文字を追加...

xcn********さん

2019/7/2820:00:21

フォルダ内にある全てのエクセルファイルのファイル名の先頭に、指定の文字を追加するためのマクロを教えていただきたいです。

(例)
マクロ名 → フォルダ名変更
フォルダ → C:¥●●…
フォル

ダ直下のファイル
あああ
.xlsx → 完了_あああ.xlsx
いいいい.xlsx → 完了_いいいい.xlsx

①フォルダの場所は毎回変わります。
②フォルダ直下にはExcel以外のデータはありません。

閲覧数:
19
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

pro********さん

2019/7/2820:37:02

Sub sample999999()
Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Folder
Dim objFile As File
Dim strPath As String
Dim strFileName As String

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
strPath = .SelectedItems(1)
End If
End With


Set objFSO = New Scripting.FileSystemObject
Set objFolder = objFSO.GetFolder(strPath)
For Each objFile In objFolder.Files
strFileName = objFile.Name
strFileName = "完了_" & strFileName
objFile.Name = strFileName
Next

Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

End Sub

ご参考までに。
FileSystemObjectを使用するので、Microsoft Scripting Runtimeへの参照設定が必要です。

  • 質問者

    xcn********さん

    2019/7/2821:27:17

    早速のご回答ありがとうございます!
    無事に実行することができました!!
    すごいです!

    初心者のため、ほとんど言語の意味が理解できていませんが…理解できるようにこれから勉強していきます。

    ありがとうございました!

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/7/28 21:28:04

ありがとうございました!
さっとご自分で書けるのって、本当にスゴいですね…。
憧れます。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる