Option ExplicitSub BatchProcessWorkbooksVBA()    Dim folderPath As String    Dim fileName As String    Dim wb As Workbook    Dim startTime As Double, endTime As Double    Dim processedCount As Long, errorCount As Long    Dim fileList() As String    Dim i As Long, fileCount As Long    ' 记录开始时间    startTime = Timer    ' 1. 选择包含Excel文件的文件夹    With Application.FileDialog(msoFileDialogFolderPicker)        .Title = "请选择包含Excel文件的文件夹"        .AllowMultiSelect = False        If .Show <> -1 Then Exit Sub        folderPath = .SelectedItems(1)    End With    ' 确保路径以反斜杠结尾    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"    ' 2. 获取文件夹中所有Excel文件列表    ' 先获取文件列表到数组，避免在循环中重复调用Dir    fileName = Dir(folderPath & "*.xls*")    fileCount = 0    ReDim fileList(1 To 100) ' 初始大小，根据需要调整    Do While fileName <> ""        fileCount = fileCount + 1        If fileCount > UBound(fileList) Then            ReDim Preserve fileList(1 To UBound(fileList) + 100)        End If        fileList(fileCount) = fileName        fileName = Dir()    Loop    ' 调整数组大小为实际文件数量    ReDim Preserve fileList(1 To fileCount)    If fileCount = 0 Then        MsgBox "在选定的文件夹中未找到Excel文件。", vbExclamation        Exit Sub    End If    ' 关闭屏幕更新，大幅提高性能    Application.ScreenUpdating = False    Application.DisplayAlerts = False ' 关闭提示，如"是否保存"等    ' 3. 遍历处理每个文件    processedCount = 0    errorCount = 0    For i = 1 To fileCount        Dim fullPath As String        fullPath = folderPath & fileList(i)        ' 进度显示        Application.StatusBar = "正在处理文件 " & i & "/" & fileCount & ": " & fileList(i)        On Error GoTo ErrorHandler        ' 打开工作簿        Set wb = Workbooks.Open(Filename:=fullPath, UpdateLinks:=0, ReadOnly:=False)        ' 4. 执行具体操作（示例：在A1单元格标记处理时间）        With wb.Worksheets(1)            .Range("A1").Value = "最后检查时间：" & Now            ' 这里可以添加更多处理逻辑，例如：            ' - 检查特定单元格的值            ' - 运行工作簿中的宏            ' - 复制特定范围的数据        End With        ' 强制重新计算整个工作簿（确保公式更新）        wb.Calculate        ' 5. 保存并关闭        wb.Save        wb.Close SaveChanges:=False ' 因为我们已经Save了，所以这里为False        processedCount = processedCount + 1        GoTo ContinueLoopErrorHandler:        ' 记录错误        errorCount = errorCount + 1        Debug.Print "处理文件失败：" & fileList(i) & " 错误：" & Err.Description        ' 尝试关闭可能已部分打开的工作簿        If Not wb Is Nothing Then            On Error Resume Next            wb.Close SaveChanges:=False            On Error GoTo 0        End IfContinueLoop:        Set wb = Nothing        On Error GoTo 0    Next i    ' 恢复应用程序设置    Application.StatusBar = False    Application.DisplayAlerts = True    Application.ScreenUpdating = True    ' 6. 生成处理报告    endTime = Timer    Dim timeTaken As Double    timeTaken = endTime - startTime    Dim msg As String    msg = "批量处理完成！" & vbNewLine & vbNewLine    msg = msg & "总计文件数：" & fileCount & vbNewLine    msg = msg & "成功处理：" & processedCount & vbNewLine    msg = msg & "处理失败：" & errorCount & vbNewLine    msg = msg & "总耗时：" & Format(timeTaken, "0.0") & " 秒" & vbNewLine    msg = msg & "平均每个文件：" & Format(timeTaken / fileCount, "0.0") & " 秒"    MsgBox msg, vbInformation, "批量处理报告"End Sub

' 只处理符合特定模式的文件fileName = Dir(folderPath & "*分公司*" & Year(Date) & Format(Month(Date), "00") & ".xlsx")

import osimport globimport timefrom datetime import datetimefrom openpyxl import load_workbookfrom openpyxl.utils import get_column_letterimport tracebackdef batch_process_excel_files(folder_path, output_log="batch_processing_log.txt"):    """    批量处理指定文件夹中的所有Excel文件。    参数:    folder_path: 包含Excel文件的文件夹路径    output_log: 处理日志的输出文件    """    start_time = time.time()    # 1. 获取所有Excel文件    # 支持.xlsx, .xlsm, .xltx, .xltm    excel_patterns = ['*.xlsx', '*.xlsm', '*.xltx', '*.xltm']    excel_files = []    for pattern in excel_patterns:        excel_files.extend(glob.glob(os.path.join(folder_path, pattern)))    if not excel_files:        print(f"在文件夹 {folder_path} 中未找到Excel文件。")        return    file_count = len(excel_files)    print(f"找到 {file_count} 个Excel文件。开始处理...")    # 2. 初始化统计    processed_count = 0    error_count = 0    error_details = []    # 3. 遍历处理每个文件    for i, file_path in enumerate(excel_files, 1):        file_name = os.path.basename(file_path)        print(f"[{i}/{file_count}] 正在处理: {file_name}")        try:            # 4. 打开工作簿            # data_only=True 只读取值，不读取公式            wb = load_workbook(filename=file_path, data_only=False)            # 5. 执行操作示例            # 5.1 在第一个工作表的A1单元格标记处理时间            if wb.sheetnames:  # 确保有工作表                ws = wb[wb.sheetnames[0]]                ws['A1'] = f"最后检查时间：{datetime.now().strftime('%Y-%m-%d %H:%M:%S')}"            # 5.2 更多可能的操作示例：            # - 检查特定单元格的值            # check_value = ws['B10'].value            # if check_value and isinstance(check_value, (int, float)) and check_value < 0:            #     ws['B10'].value = 0  # 将负数修正为0            # - 在工作表末尾添加汇总行            # max_row = ws.max_row            # ws.cell(row=max_row+1, column=1, value="总计")            # ws.cell(row=max_row+1, column=2, value=f"=SUM(B2:B{max_row})")            # - 应用格式            # from openpyxl.styles import Font, PatternFill, Alignment            # header_font = Font(bold=True, color="FFFFFF")            # header_fill = PatternFill(fill_type="solid", start_color="366092")            # for cell in ws[1]:  # 第一行            #     cell.font = header_font            #     cell.fill = header_fill            # 6. 保存文件            # 注意：openpyxl保存时会覆盖原文件            # 如果需要备份原文件，可以先复制            wb.save(file_path)            # 7. 关闭工作簿（在openpyxl中，保存后会自动关闭文件句柄）            # 但显式关闭是个好习惯            wb.close()            processed_count += 1            print(f"  ✓ 处理成功")        except Exception as e:            error_count += 1            error_msg = f"  处理失败: {str(e)}"            print(f"  ✗ {error_msg}")            # 记录详细错误信息            error_details.append({                'file': file_name,                'error': str(e),                'traceback': traceback.format_exc()            })    # 8. 生成处理报告    end_time = time.time()    time_taken = end_time - start_time    # 9. 写入日志文件    with open(output_log, 'w', encoding='utf-8') as log_file:        log_file.write("=" * 60 + "\n")        log_file.write("Excel文件批量处理报告\n")        log_file.write("=" * 60 + "\n\n")        log_file.write(f"处理时间: {datetime.now().strftime('%Y-%m-%d %H:%M:%S')}\n")        log_file.write(f"处理文件夹: {folder_path}\n")        log_file.write(f"总文件数: {file_count}\n")        log_file.write(f"成功处理: {processed_count}\n")        log_file.write(f"处理失败: {error_count}\n")        log_file.write(f"总耗时: {time_taken:.2f} 秒\n")        log_file.write(f"平均每个文件: {time_taken/file_count if file_count>0else0:.2f} 秒\n\n")        if error_details:            log_file.write("=" * 60 + "\n")            log_file.write("错误详情:\n")            log_file.write("=" * 60 + "\n")            for detail in error_details:                log_file.write(f"\n文件: {detail['file']}\n")                log_file.write(f"错误: {detail['error']}\n")                log_file.write("-" * 40 + "\n")    # 10. 控制台输出摘要    print("\n" + "=" * 60)    print("批量处理完成报告")    print("=" * 60)    print(f"总文件数: {file_count}")    print(f"成功处理: {processed_count}")    print(f"处理失败: {error_count}")    print(f"总耗时: {time_taken:.2f} 秒")    print(f"平均每个文件: {time_taken/file_count if file_count>0else0:.2f} 秒")    print(f"详细日志已保存到: {output_log}")def batch_process_with_progress(folder_path, specific_pattern=None):    """    带进度条的批量处理（适合处理大量文件）    """    from tqdm import tqdm    import pandas as pd    # 获取文件列表    if specific_pattern:        excel_files = glob.glob(os.path.join(folder_path, specific_pattern))    else:        excel_patterns = ['*.xlsx', '*.xlsm']        excel_files = []        for pattern in excel_patterns:            excel_files.extend(glob.glob(os.path.join(folder_path, pattern)))    if not excel_files:        print("未找到Excel文件。")        return    # 结果列表    results = []    # 使用tqdm创建进度条    for file_path in tqdm(excel_files, desc="处理Excel文件", unit="文件"):        file_name = os.path.basename(file_path)        try:            # 打开工作簿            wb = load_workbook(filename=file_path, data_only=True)            ws = wb.active            # 示例：提取特定数据（假设每个文件在B2单元格有销售额）            sales_data = ws['B2'].value if ws['B2'].value else 0            # 记录提取的数据            results.append({                '文件名': file_name,                '销售额': sales_data,                '状态': '成功',                '处理时间': datetime.now().strftime('%H:%M:%S')            })            wb.close()        except Exception as e:            results.append({                '文件名': file_name,                '销售额': None,                '状态': f'失败: {str(e)[:50]}',                '处理时间': datetime.now().strftime('%H:%M:%S')            })    # 将结果转换为DataFrame并保存    df_results = pd.DataFrame(results)    output_file = os.path.join(folder_path, f"批量处理汇总_{datetime.now().strftime('%Y%m%d_%H%M%S')}.xlsx")    df_results.to_excel(output_file, index=False)    print(f"\n处理完成！结果已保存到: {output_file}")    print(df_results)# 使用示例if __name__ == "__main__":    # 示例1：基本批量处理    folder = r"C:\分公司月报\2023-10"  # 替换为实际文件夹路径    batch_process_excel_files(folder)    # 示例2：带进度条和汇总的批量处理    # batch_process_with_progress(folder, specific_pattern="*分公司*.xlsx")

import concurrent.futuresfrom functools import partialdef process_single_file(file_path, operation_type="mark"):    """处理单个文件（线程安全）"""    try:        wb = load_workbook(filename=file_path)        ws = wb.active        if operation_type == "mark":            ws['A1'] = f"处理时间：{datetime.now().strftime('%Y-%m-%d %H:%M:%S')}"        elif operation_type == "extract":            # 提取数据并返回            data = {                'file': os.path.basename(file_path),                'value': ws['B2'].value            }            wb.close()            return data        wb.save(file_path)        wb.close()        return {'file': os.path.basename(file_path), 'status': 'success'}    except Exception as e:        return {'file': os.path.basename(file_path), 'status': 'error', 'error': str(e)}def batch_process_parallel(folder_path, max_workers=4):    """多线程批量处理"""    import glob    excel_files = glob.glob(os.path.join(folder_path, "*.xlsx"))    if not excel_files:        print("未找到Excel文件。")        return    print(f"开始多线程处理 {len(excel_files)} 个文件，使用 {max_workers} 个线程...")    # 使用线程池    with concurrent.futures.ThreadPoolExecutor(max_workers=max_workers) as executor:        # 使用partial固定operation_type参数        process_func = partial(process_single_file, operation_type="mark")        # 提交所有任务        future_to_file = {executor.submit(process_func, file): file for file in excel_files}        # 收集结果        results = []        for future in concurrent.futures.as_completed(future_to_file):            file_path = future_to_file[future]            try:                result = future.result()                results.append(result)                print(f"处理完成: {os.path.basename(file_path)} - {result['status']}")            except Exception as e:                print(f"处理异常: {os.path.basename(file_path)} - {e}")    # 统计结果    success_count = sum(1 for r in results if r['status'] == 'success')    error_count = len(results) - success_count    print(f"\n处理完成！成功: {success_count}, 失败: {error_count}")    return results