求帮用python写从excel提取名字,改文件夹名称的代码

既然数据在EXCEL里面，用VBA来写是顺理成章的，VBA的好处是代码在EXCEL文件里面，比较友好的开发和调试环境，可以单步一行一行的执行代码，中途可以查看变量的值，便于更正程序，我初步写了一个VBA代码，方法是把文件另存为XLAM格式（带脚本的文件），按ALT+F11进入VBA环境，按CTRL+R打开工程管理器，插入模块，粘贴代码，如下图：

代码文件如下（有可能浏览器会偷吃特殊字符，一定结合上图）：

Option Explicit

Sub 宏1()

Dim arr, i, j, p, f

arr = ActiveSheet.UsedRange

For i = 2 To UBound(arr)

'文件改名

p = "f:\downloads\1\" & arr(i, 1)

f = Dir(p & "*.jpg")

j = 1

While f <> ""

Name p & f As p & arr(i, 2) & arr(i, 3) & j & ".jpg"

f = Dir

j = j + 1

Wend

'文件夹改名

Name p As p & arr(i, 2)

Next i

End Sub