|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
各位:我原来有一段“文件批量改名”的代码,是加一个后缀,现在要修改文件名的几个字(也就是替换)该用什么思路呢?
请高手指教,谢谢!!
Sub 批量改名()
Dim MyPath$, MyFile$, wb As Workbook, c
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Visible = False
With Application.FileDialog(4)
MsgBox "请选择你要处理的文件夹。"
c = .Show
If c = 0 Then
Exit Sub
Else
MyPath = .SelectedItems(1) & "\"
End If
End With
MyFile = Dir(MyPath)
Do
If MyFile <> ThisWorkbook.Name Then
Set wb = GetObject(MyPath & MyFile)
wb.SaveAs wb.Name & "201404" & ".xlsx"
wb.Close True
Kill MyPath & MyFile
'Worksheets("201402").Move before:=Worksheets("201403")
End If
MyFile = Dir
Loop While MyFile <> ""
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Shell "Explorer.exe " & MyPath, 1
Application.Visible = True
Application.Quit
End Sub
|
|