求幫用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