2)Next iEnd Sub
求帮用python写从excel提取名字，改文件夹名称的代码
既然数据在EXCEL里面，用VBA来写是顺理成章的，VBA的好处是代码在EXCEL文件里面，比较友好的开发和调试环境，可以单步一行一行的执行代码，中途可以查看变量的值，便于更正程序，我初步写了一个VBA代码，方法是把文件另存为XLAM格式（带脚本的文件），按ALT+F11进入VBA环境，按CTRL+R打开工程管理器，插入模块，粘贴代码，如下图：
代码文件如下（有可能浏览器会偷吃特殊字符，一定结合上图）：
Option ExplicitSub 宏1()Dim arr, i, j, p, farr = ActiveSheet.UsedRangeFor i = 2 To UBound(arr)'文件改名p = "f:\downloads\1\" & arr(i, 1)f = Dir(p & "*.jpg")j = 1While f <> ""Name p & f As p & arr(i, 2) & arr(i, 3) & j & ".jpg"f = Dirj = j + 1Wend'文件夹改名Name p As p & arr(i, 2)Next iEnd Sub
2022-04-12
