import pandas as pdfrom pathlib import Pathimport shutil

def organize_product_photos(excel_path, photo_dir):    """    批量重命名并归类产品图片    :param excel_path: 映射表Excel路径    :param photo_dir: 图片文件夹路径    """    # 1. 读取Excel映射表    try:        df = pd.read_excel(excel_path)        # 清洗列名，去除可能存在的空格        df.columns = df.columns.str.strip()    except Exception as e:        print(f"读取Excel失败：{e}")        return    # 2. 定位图片文件夹    photo_path = Path(photo_dir)    # 3. 遍历DataFrame中的每一行映射关系    for index, row in df.iterrows():        old_name = row['旧文件名']        sku = row['SKU编码']        category = row['品类']        # 构建旧文件的完整路径        old_file = photo_path / old_name        # 检查旧文件是否存在        if not old_file.exists():            print(f"警告：文件 {old_name} 不存在，跳过。")            continue        # 4. 构建新文件名（保留原扩展名）        # 获取文件后缀，例如 .jpg        suffix = old_file.suffix        new_name = f"{sku}{suffix}"        # 5. 创建分类子文件夹        # mkdir(parents=True): 如果父目录不存在则创建        # exist_ok=True: 如果目录已存在则不报错        category_dir = photo_path / category        category_dir.mkdir(exist_ok=True)        # 6. 构建目标文件路径        target_file = category_dir / new_name        # 7. 移动并重命名        try:            # shutil.move 既可以移动也可以重命名            shutil.move(str(old_file), str(target_file))            print(f"成功：{old_name} -> {category}/{new_name}")        except Exception as e:            print(f"处理 {old_name} 失败：{e}")    print("所有文件处理完毕！")# 执行函数if __name__ == "__main__":    excel_file = r"D:\ProductPhotos\mapping.xlsx"    photos_folder = r"D:\ProductPhotos"    organize_product_photos(excel_file, photos_folder)

import csvdef read_mapping_csv(csv_path):    mapping = []    with open(csv_path, 'r', encoding='utf-8-sig') as f: # utf-8-sig解决Windows下BOM问题        reader = csv.DictReader(f)        for row in reader:            mapping.append(row)    return mapping

Sub OrganizeProductPhotos()    Dim FSO As Scripting.FileSystemObject    Dim ws As Worksheet    Dim photoDir As String    Dim lastRow As Long    Dim i As Long    Dim oldName As String, sku As String, category As String    Dim oldFile As Object, categoryFolder As Object    Dim fileExt As String    ' 1. 设置工作表和路径    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的Sheet名    photoDir = "D:\ProductPhotos\" ' 修改为你的图片路径    ' 2. 创建FileSystemObject    Set FSO = New Scripting.FileSystemObject    ' 3. 获取最后一行    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row    ' 4. 循环处理每一行    For i = 2 To lastRow ' 假设第一行是表头        oldName = ws.Cells(i, 1).Value ' A列：旧文件名        sku = ws.Cells(i, 2).Value    ' B列：SKU编码        category = ws.Cells(i, 3).Value ' C列：品类        ' 检查旧文件是否存在        If FSO.FileExists(photoDir & oldName) Then            ' 5. 获取文件扩展名            fileExt = FSO.GetExtensionName(photoDir & oldName)            ' 6. 创建分类文件夹            If Not FSO.FolderExists(photoDir & category) Then                FSO.CreateFolder (photoDir & category)            End If            ' 7. 移动并重命名            ' Name 语句可以跨文件夹移动并重命名            On Error Resume Next ' 防止重名文件报错中断            Name photoDir & oldName As photoDir & category & "\" & sku & "." & fileExt            If Err.Number <> 0 Then                Debug.Print "重命名失败: " & oldName & " -> " & sku & "." & fileExt                Err.Clear            Else                Debug.Print "成功: " & oldName & " -> " & category & "\" & sku & "." & fileExt            End If            On Error GoTo 0        Else            Debug.Print "文件不存在: " & oldName        End If    Next i    MsgBox "处理完毕！"End Sub