폴더에 많은 양의 Excel 파일이 있고 모든 파일 이름 끝에 -MN을 추가해야합니다. 나는 해결책을 찾기 위해 웹을 둘러 보았지만 분명한 대답을 찾지 못한 많은 행운이 없었다. 예를 들어폴더에 여러 .xlsx 파일의 파일 이름 끝에 텍스트를 추가하십시오.
:
examplefile.xlsx가 될 것이라고는 examplefile -MN.xlsx
어떤 도움을 크게 감상 할 수있다! 고맙습니다!
이렇게하면됩니다. 오른쪽 (myFileName가, 5) = ".XLSX"그런 다음에 ... 만약 우 (myFileName, 4) = ".XLSX"그럼
Sub RenameFiles()
Dim myFilePath As String, myFileName, NewFileName As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
myFilePath = "C:\Temp\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(myFilePath)
For Each objFile In objFolder.Files
myFileName = objFile.Name
If Right(myFileName, 5) = ".xlsx" Then
NewFileName = Replace(myFileName, ".xlsx", "-MN.xlsx")
Name myFilePath & objFile.Name As myFilePath & NewFileName
End If
Next objFile
End Sub
안녕하세요. 답변 해 주셔서 감사합니다. 이 해결책은 효과가없는 것처럼 보입니다. 나는 C : \ Temp \를 C : \ Users \ LLLLLL \ Desktop \ Ex 폴더로 바 꾸었습니다. \ –
나는 모든 파일이 들어있는 디렉토리로 C : \ Temp \를 변경해야한다고 가정합니다. –
예. 물론, 당신이 이것을 정기적으로한다면, 우리는 폴더 선택 부분을 만들 수 있습니다 ... – Hrothgar
당신이 원하는 솔루션에 대해 너무 특정되지 않은 경우 I가 변경되었습니다. 이것은 일회성 요구 사항입니까? 이 작업을 수행 할 수있는 여러 가지 유틸리티가 있습니다 (Total Commander가 가장 좋아합니다).하지만 반복해서 수행하려는 경우 FileSystemObject를 사용하여 매크로를 만들 수 있습니다. 그것은 본질적으로 Windows 파일 디렉토리 구조에서 VBA를 작동시키는 메커니즘입니다. – Hrothgar
안녕하세요! 예, 이것은 일회성 요구 사항이며 관련 업무입니다. 소프트웨어가 실행되는 한, 내 고용주가 승인하지 않으면 업무용 노트북의 알 수없는 소프트웨어를 다운로드 할 수 없도록 제한됩니다. –