目的:现在有116个文件夹,及文件夹里的照片JPG需要重新命名。文件夹已经用数字序号进行命名(如截图),目录为:F:\downloads\1。
有个表格也在该目录下,表格文件名为data.xlsx。
data.xlsx中第一列是序号,第二列是城市,第三列是小区名。
现在需要把data.xlsx中的序号+城市名合并在一起后,提取出来,修改到对应序号的文件夹名称中;把data.xlsx中序号+城市+小区名合并在一起后,取出来,修改到对应序号文件夹里若干JPG的文件名中(如截图)。
每个文件夹的JPG数量不等。求python代码,本人新手,最好每个步骤后能用#备注下是用来干什么的,感谢!
æ¢ç¶æ°æ®å¨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
ä¸ä¼ç¨VBAï¼è¿è¡ååªææ件夹çååæ¹äºï¼
第ä¸ä¸ªName .. As ...æ¯ä¿®æ¹æ件åçï¼F8ä¸è¡ä¸è¡çæ§è¡äºè§£ä¸ä¸æ
åµï¼æå¤æ¥ä»£ç ï¼åç°ä¸é¢çè¯å¥æé®é¢ï¼
p = "f:\downloads\1\" & arr(i, 1)
åºè¯¥å¨æ«å°¾æ·»å \ï¼è¯¥è¯å¥åºè¯¥ä¿®æ¹ä¸ºï¼
p = "f:\downloads\1\" & arr(i, 1) & "\"
è¿æ ·ç¨åºåºè¯¥å°±æ£å¸¸äºï¼è½æ«ææ件并修æ¹ååã
è¯äºä¸ï¼æ¥éäºï¼ä¸è¿åæ件夹çååä¹æ²¡ææ¹ã
æ¥éçæ¶åè°è¯ä¸ä¸ï¼å¯ä»¥æCTRL+Gè¾åºæ¹åååçå
容ï¼ç¶ååæåå ï¼ççæ¯åå§æ件ä¸åå¨å¢ï¼è¿æ¯ç®çæ件已åå¨ï¼æ»æ¯è¿äºåå ä¹ä¸ï¼ç«å³çªå£è°è¯è¡¨è¾¾å¼çå¼å¯ä»¥ä½¿ç¨?å½ä»¤ï¼ä¾å¦ï¼
? p & f
太é¾äº_(:зãâ )_è¿æ¯æ æ³æ¹jpgæ件åãè½æ¹æ件夹就æ¹æ件夹å§ï¼ä¸æ£ææ¹æ件åäºãæè°¢åçï¼å é纳äºã