- Set fso = CreateObject("Scripting.FileSystemObject")
- Set xls = CreateObject("Excel.Application")
- xls.Visible = False
- xls.WorkBooks.Open("d:\测试.xls")
- xls.WorkSheets(1).Activate
-
- i = 1
- Do Until xls.Cells(i,1).Value = ""
- ReDim PreServe ar(i)
- ar(i) = xls.Cells(i,1).Value & "*" & xls.Cells(i,2).Value
- i = i + 1
- Loop
- xls.quit :Set xls = Nothing
-
- For i = 1 to UBound(ar) - 1
- For j = i + 1 to UBound(ar)
- If Split(ar(i),"*")(0) < Split(ar(j),"*")(0) Then
- Tmp = ar(i) : ar(i) = ar(j) : ar(j) = Tmp
- End If
- Next
- Next
-
- For i = 1 to UBound(ar)
- NewName = Split(ar(i),"\")(UBound(Split(ar(i),"\")))
- If fso.FolderExists(Split(ar(i),"*")(0)) Then
- If fso.GetFolder(Split(ar(i),"*")(0)).Name <> NewName Then
- fso.GetFolder(Split(ar(i),"*")(0)).Name = NewName
- End If
- End If
- Next
-
- MsgBox "OK"
复制代码
|