フォルダ内のすべてのファイルの名前を変更するには、アンダースコアの前に何かを置き換え、エラー時にexcel vbaを使用してフォルダ内のすべてのファイルの名前を変更
-3
A
答えて
0
Sub RenameFiles()
Const FolderLoc = "P:\yourfolder\"
Dim x As Long
x = 1
Dim s As String
s = Dir(FolderLoc & "*.*")
Do While s <> ""
Name FolderLoc & s As FolderLoc & x & Right(s, Len(s) - (InStr(s, "_") - 1))
s = Dir()
x = x + 1
Loop
End Sub
+0
コードは最初のアンダースコアを置き換えます。すべてのアンダースコアを置き換え、最後に接頭辞を付けます。 例:11.52.03_11.52.07_Sheet5はx.Sheet5、 52.10_Tempはx.Tempにする必要があります – Anurag
0
順 でバックアップしたファイルと場所の名前を変更するには「MACROサブRename2()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object, abc As Object
Dim i As String
Dim s As String, dest As String
dest = "H:\Automation\outputs\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
FolderLoc = dest
Set objFolder = objFSO.GetFolder(dest)
'MsgBox objFolder
i = 1
s = Dir(FolderLoc & "*.*")
次
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
Do While (InStr(s, "_")) > 0
'MsgBox s
'Name OldFile as NewFile
Name FolderLoc & s As FolderLoc & i & "." & Right(s, Len(s) - (InStr(s, "_") + 2))
s = i & "." & Right(s, Len(s) - (InStr(s, "_") + 2))
'MsgBox s
'abc = Name FolderLoc & s As FolderLoc & "(" & i & ")" & Right(s, Len(s) - (InStr(s, "@[email protected]") + 2))
'i = i + 1
Loop
i = i + 1
s = Dir()
Next objFile
エンド私のサブ
関連する問題
- 1. zipmoduleを使用してzipフォルダ内のファイルの名前を変更します
- 2. VBAを使用してフォルダ内のファイルを並べ替える
- 3. ランダムな名前のフォルダ内のすべてのファイルの名前を変更します。
- 4. バッチを使用してユーザーディレクトリ内のフォルダの名前を変更します。
- 5. Excel VBAでファイルの名前を変更する
- 6. 配列内のすべてのファイル/フォルダの名前を取得
- 7. Application.FileDialogを使用してVBAでファイルの名前を変更する
- 8. .BAT Excelファイルを同じフォルダにコピーして名前を変更します
- 9. フォルダ内のforeachファイルの名前を変更して保存します
- 10. フォルダ内のすべてのファイルの番号を増やして名前を変更
- 11. フォルダ内のすべてのファイルのExcelマクロを変更するVBScript
- 12. Pythonを使用してディレクトリ内のすべてのファイルの名前を変更します
- 13. Java - 1つのフォルダから別のフォルダにすべてのファイルを移動して名前を変更
- 14. ファイルの名前を変更して親フォルダの名前を付けるバッチファイル
- 15. ExcelのVBAをコピーする - > Excelの列からWindowsファイルを複数ペーストして名前を変更する
- 16. Pythonは、作業ディレクトリ内のそのファイルタイプのすべてのファイルに対して、ファイル内の内容を使用してファイルの名前を変更します。
- 17. フォルダ内のすべてのExcelファイルを開くためのVBAコード
- 18. Excel VBAコードを使用して、フォルダ内のrtfファイルをpdfファイルに一括変換する
- 19. フォルダ内のファイルの名前を変更する
- 20. ハッシュテーブルを使用してファイルの名前を変更します。
- 21. cmd/batchファイルを使用してディレクトリ内の名前xのすべてのフォルダを削除する方法
- 22. Perlを使用してディレクトリ内のファイルの名前を変更する
- 23. ディレクトリ内のフォルダにあるすべてのファイルの名前を変更します。
- 24. Pythonスクリプトは、フォルダとサブフォルダ内のすべてのファイルの名前を再帰的に変更します
- 25. すべて同じベース名のファイルの名前を変更
- 26. vbaを使用してExcelの列名を変更するには
- 27. ImageMagickを使用してアップロードしたファイルの名前を変更
- 28. Pythonがフォルダをループして名前を変更するファイル
- 29. フォルダ内の大きなグループのExcelファイルのファイル名を変更する
- 30. パス名を使用してファイルの名前を変更するVBSスクリプト
ルックを再開[ソリューション](https://stackoverflow.com/questions/47982997/the-old-file-names-are-in-column-a-and-new-file-names-are-in-colum n-b-how-to-re/47983186#47983186) – JohnyL
ようこそスタックオーバーフロー!それはあなたの要求にすばやく答えるためのひどい種類の人たちでした...(もし彼らが投票してもらえれば回答を受け入れてください)(https://stackoverflow.com/help/someone-answers))通常これは「無料のコーディングサービス」ではなく、コーディングの問題に関する具体的な質問があり、これまでにどのような努力をしているかの例が示されています。 [ツアー]だけでなく[質問]も[mcve]もチェックしてください。 – ashleedawg