我如何使Dir()按字母顺序运行

时间:2018-10-22 11:49:36

标签: excel vba

您好,我起草了以下代码,该代码使用DIR函数循环浏览所有文件并重命名它们,但这不是按字母顺序进行的

可以修改以下代码,以确保其按字母顺序完成。

    Sub Rename_Files()

Dim name As String
Dim returnaname As String

returnName = ActiveWorkbook.name

Application.ScreenUpdating = True
Application.DisplayAlerts = False
Application.EnableEvents = False

'On Error Resume Next

MyFolder = "G:\Corpdata\STRAT_Information\Open\1. Yot Data (Scoring)\34. Disproportionality Tool\201718 Tool\Local Level Tool\Database_Extract_Tools\Area Files Offences"

MyFile = Dir(MyFolder & "\*.xls")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile

name = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5)
name = name & ("_Offence")

ActiveWorkbook.SaveAs Filename:=name

Windows(returnName).Activate

MyFile = Dir$ 'goes to next entry

Loop

End Sub

0 个答案:

没有答案