VB宏基本案例(8)

Sub changeBmpFileName()
    Dim prName, newName As String
   
    Sheets("unicode").Select
    pathB = "D:\GY_150_FONT\"
   
    For j = 1 To Sheets("unicode").Range("k1").Value
   
        If (Range("c" & j).Value = "" And Range("f" & j).Value <> "") Then
        prName = Range("b" & j).Value & ".bmp"
        newName = Range("f" & j).Value & ".bmp"
           
        Shell "cmd.exe /c ren " & pathB & prName & " " & newName
        End If

    Next j
End Sub