# 安装所需库# pip install pandas openpyxlimport pandas as pdimport globimport osfrom datetime import datetime

def merge_excel_basic(folder_path, output_file="合并结果.xlsx"):    """    基础版合并：合并指定文件夹下所有Excel文件    参数：    folder_path: Excel文件所在文件夹路径    output_file: 输出文件名    """    # 获取所有Excel文件路径    # 支持.xlsx和.xls格式    file_pattern = os.path.join(folder_path, "*.xlsx")    excel_files = glob.glob(file_pattern)    # 如果没有.xlsx文件，尝试.xls    if not excel_files:        file_pattern = os.path.join(folder_path, "*.xls")        excel_files = glob.glob(file_pattern)    if not excel_files:        print(f"在{folder_path}中未找到Excel文件")        return    print(f"找到{len(excel_files)}个Excel文件，开始合并...")    # 读取并合并所有文件    df_list = []    for file in excel_files:        try:            # 读取Excel文件            # sheet_name=None 读取所有工作表            # sheet_name=0 读取第一个工作表            df = pd.read_excel(file, sheet_name=0)            # 添加文件名列，便于追溯数据来源            df['源文件'] = os.path.basename(file)            df_list.append(df)            print(f"✓ 已读取: {os.path.basename(file)} - {len(df)}行")        except Exception as e:            print(f"✗ 读取失败: {file}, 错误: {str(e)}")            continue    if df_list:        # 合并所有DataFrame        combined_df = pd.concat(df_list, ignore_index=True, sort=False)        # 保存合并结果        combined_df.to_excel(output_file, index=False)        print(f"\n合并完成！总行数: {len(combined_df)}")        print(f"结果保存至: {output_file}")        # 显示数据预览        print("\n数据预览:")        print(combined_df.head())        return combined_df    else:        print("没有成功读取任何文件")        return None

def merge_excel_advanced(folder_path, output_file=None,                          sheet_name=0, header_row=0,                         required_columns=None,                         skip_files=None):    """    进阶版合并：处理更复杂的合并需求    参数：    folder_path: 文件夹路径    output_file: 输出文件路径，默认为"合并结果_时间戳.xlsx"    sheet_name: 工作表名或索引    header_row: 表头所在行（0-based）    required_columns: 必须包含的列，用于验证文件结构    skip_files: 需要跳过的文件名列表    """    # 设置默认输出文件名    if output_file is None:        timestamp = datetime.now().strftime("%Y%m%d_%H%M%S")        output_file = f"合并结果_{timestamp}.xlsx"    # 获取所有Excel文件    excel_files = []    for ext in ['*.xlsx', '*.xls', '*.xlsm']:        excel_files.extend(glob.glob(os.path.join(folder_path, ext)))    if not excel_files:        print("未找到任何Excel文件")        return    # 过滤需要跳过的文件    if skip_files:        excel_files = [f for f in excel_files                       if os.path.basename(f) not in skip_files]    print(f"开始处理{len(excel_files)}个文件...")    print("-" * 50)    df_list = []    error_files = []    success_count = 0    for i, file_path in enumerate(excel_files, 1):        file_name = os.path.basename(file_path)        print(f"[{i}/{len(excel_files)}] 处理: {file_name}")        try:            # 读取Excel文件            df = pd.read_excel(                file_path,                sheet_name=sheet_name,                header=header_row,                dtype=str  # 统一按字符串读取，避免类型问题            )            # 验证必要的列是否存在            if required_columns:                missing_cols = [col for col in required_columns                               if col not in df.columns]                if missing_cols:                    raise ValueError(f"缺少必要列: {missing_cols}")            # 添加元数据            df['源文件'] = file_name            df['处理时间'] = datetime.now().strftime("%Y-%m-%d %H:%M:%S")            # 清理列名（去除空格等）            df.columns = df.columns.str.strip()            df_list.append(df)            success_count += 1            print(f"   ✓ 成功读取，行数: {len(df)}")        except Exception as e:            error_files.append((file_name, str(e)))            print(f"   ✗ 读取失败: {str(e)}")        print("-" * 50)    # 合并数据    if df_list:        try:            # 合并所有DataFrame            combined_df = pd.concat(df_list, ignore_index=True)            # 保存结果            with pd.ExcelWriter(output_file, engine='openpyxl') as writer:                combined_df.to_excel(writer, index=False, sheet_name='合并数据')                # 添加汇总信息工作表                summary_data = {                    '统计项': ['总文件数', '成功合并数', '失败数', '总行数', '处理时间'],                    '数值': [len(excel_files), success_count,                            len(error_files), len(combined_df),                           datetime.now().strftime("%Y-%m-%d %H:%M:%S")]                }                summary_df = pd.DataFrame(summary_data)                summary_df.to_excel(writer, index=False, sheet_name='合并汇总')                # 如果有错误，添加错误信息工作表                if error_files:                    error_df = pd.DataFrame(error_files, columns=['文件名', '错误信息'])                    error_df.to_excel(writer, index=False, sheet_name='错误文件')            print("\n" + "="*50)            print("合并完成！")            print(f"成功合并文件: {success_count}/{len(excel_files)}")            print(f"总数据行数: {len(combined_df)}")            print(f"输出文件: {output_file}")            if error_files:                print(f"失败文件数: {len(error_files)}")                for f, e in error_files:                    print(f"  - {f}: {e}")            return combined_df        except Exception as e:            print(f"合并过程中发生错误: {str(e)}")            return None    else:        print("没有成功读取任何文件")        return None# 使用示例if __name__ == "__main__":    # 定义必须包含的列    required_cols = ['销售日期', '产品编号', '销售金额', '客户类型']    # 定义要跳过的文件    skip_list = ['模板.xlsx', '测试数据.xlsx']    result = merge_excel_advanced(        folder_path="./销售数据/",        sheet_name=0,        header_row=0,        required_columns=required_cols,        skip_files=skip_list    )

def clean_and_merge_excel(folder_path, output_file):    """    合并时进行数据清洗    """    excel_files = glob.glob(os.path.join(folder_path, "*.xlsx"))    df_list = []    for file in excel_files:        df = pd.read_excel(file)        # 数据清洗步骤        # 1. 去除列名空格        df.columns = df.columns.str.strip()        # 2. 统一日期格式        date_columns = [col for col in df.columns if '日期' in col or 'date' in col.lower()]        for col in date_columns:            if col in df.columns:                try:                    df[col] = pd.to_datetime(df[col], errors='coerce')                except:                    pass        # 3. 统一金额格式（去除千分位逗号）        amount_columns = [col for col in df.columns if '金额' in col or 'amount' in col.lower()]        for col in amount_columns:            if col in df.columns:                # 如果是字符串，去除逗号和货币符号                if df[col].dtype == 'object':                    df[col] = df[col].astype(str).str.replace(',', '').str.replace('¥', '').str.replace('$', '')                    # 转换为数值                    df[col] = pd.to_numeric(df[col], errors='coerce')        # 4. 去除空行        df = df.dropna(how='all')        # 5. 重置索引        df = df.reset_index(drop=True)        df_list.append(df)    # 合并    combined_df = pd.concat(df_list, ignore_index=True)    # 保存    combined_df.to_excel(output_file, index=False)    return combined_df

Sub MergeExcelFilesBasic()    ' 基础版：合并多个Excel文件    Dim fileNames As Variant    Dim i As Long    Dim sourceWb As Workbook    Dim sourceWs As Worksheet    Dim targetWs As Worksheet    Dim lastRow As Long    Dim targetLastRow As Long    Dim fileCount As Long    Dim totalRows As Long    ' 设置目标工作表    Set targetWs = ThisWorkbook.Worksheets("合并结果")    ' 清除旧数据（保留标题行）    targetWs.Range("A2:Z" & targetWs.Rows.Count).ClearContents    ' 获取目标表的最后一行（从第2行开始，假设第1行是标题）    targetLastRow = 2    ' 让用户选择多个Excel文件    fileNames = Application.GetOpenFilename( _        FileFilter:="Excel Files (*.xlsx; *.xls; *.xlsm), *.xlsx; *.xls; *.xlsm", _        Title:="请选择要合并的Excel文件（可多选）", _        MultiSelect:=True)    ' 检查是否选择了文件    If Not IsArray(fileNames) Then        MsgBox "没有选择任何文件。", vbInformation        Exit Sub    End If    fileCount = 0    totalRows = 0    ' 禁用屏幕更新和自动计算，提高性能    Application.ScreenUpdating = False    Application.Calculation = xlCalculationManual    Application.DisplayAlerts = False    ' 遍历每个文件    For i = LBound(fileNames) To UBound(fileNames)        On Error Resume Next        Set sourceWb = Workbooks.Open(fileNames(i), ReadOnly:=True)        If Err.Number = 0 Then            ' 假设数据在第一个工作表            Set sourceWs = sourceWb.Worksheets(1)            ' 获取源数据的最后一行            lastRow = sourceWs.Cells(sourceWs.Rows.Count, 1).End(xlUp).Row            ' 如果文件有数据（大于1行，假设第1行是标题）            If lastRow > 1 Then                ' 复制数据（从第2行开始，避免重复标题）                If fileCount = 0 Then                    ' 第一个文件：复制标题和数据                    sourceWs.Range("A1").Resize(lastRow, sourceWs.Columns.Count).Copy _                        targetWs.Cells(targetLastRow, 1)                    targetLastRow = targetLastRow + lastRow                Else                    ' 后续文件：只复制数据（不复制标题）                    sourceWs.Range("A2").Resize(lastRow - 1, sourceWs.Columns.Count).Copy _                        targetWs.Cells(targetLastRow, 1)                    targetLastRow = targetLastRow + lastRow - 1                End If                totalRows = totalRows + lastRow - 1                fileCount = fileCount + 1            End If            ' 关闭源工作簿            sourceWb.Close SaveChanges:=False        Else            ' 记录错误文件            Debug.Print "无法打开文件: " & fileNames(i) & " 错误: " & Err.Description            Err.Clear        End If        On Error GoTo 0    Next i    ' 恢复设置    Application.ScreenUpdating = True    Application.Calculation = xlCalculationAutomatic    Application.DisplayAlerts = True    ' 显示汇总信息    Dim msg As String    msg = "合并完成！" & vbCrLf & _          "处理文件数: " & fileCount & "个" & vbCrLf & _          "总数据行数: " & totalRows & "行" & vbCrLf & _          "合并到: " & targetWs.Name & "工作表"    MsgBox msg, vbInformation, "合并结果"    ' 激活目标工作表    targetWs.ActivateEnd Sub

Sub MergeExcelFilesAdvanced()    ' 进阶版：带错误处理、日志记录和进度显示    Dim fileNames As Variant    Dim i As Long    Dim sourceWb As Workbook    Dim sourceWs As Worksheet    Dim targetWs As Worksheet    Dim logWs As Worksheet    Dim lastRow As Long    Dim targetLastRow As Long    Dim startTime As Double    Dim endTime As Double    Dim totalTime As Double    Dim fileCount As Long, successCount As Long, failCount As Long    Dim totalRows As Long    ' 记录开始时间    startTime = Timer    ' 创建或选择日志工作表    On Error Resume Next    Set logWs = ThisWorkbook.Worksheets("合并日志")    If logWs Is Nothing Then        Set logWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))        logWs.Name = "合并日志"        ' 设置日志标题        With logWs            .Range("A1") = "文件名"            .Range("B1") = "状态"            .Range("C1") = "数据行数"            .Range("D1") = "错误信息"            .Range("E1") = "处理时间"            .Rows(1).Font.Bold = True        End With    End If    On Error GoTo 0    ' 设置目标工作表    On Error Resume Next    Set targetWs = ThisWorkbook.Worksheets("合并数据")    If targetWs Is Nothing Then        Set targetWs = ThisWorkbook.Worksheets.Add        targetWs.Name = "合并数据"    End If    On Error GoTo 0    ' 清除目标表的旧数据    targetWs.Cells.Clear    targetLastRow = 1    ' 选择文件    fileNames = Application.GetOpenFilename( _        FileFilter:="Excel Files (*.xlsx; *.xls; *.xlsm), *.xlsx; *.xls; *.xlsm", _        Title:="请选择要合并的Excel文件（可多选）", _        MultiSelect:=True)    If Not IsArray(fileNames) Then        MsgBox "操作已取消。", vbInformation        Exit Sub    End If    ' 性能优化设置    Application.ScreenUpdating = False    Application.Calculation = xlCalculationManual    Application.DisplayAlerts = False    Application.EnableEvents = False    fileCount = 0    successCount = 0    failCount = 0    totalRows = 0    ' 显示进度条    Dim progress As Object    Set progress = CreateProgressBar(UBound(fileNames) - LBound(fileNames) + 1, "正在合并文件...")    ' 遍历文件    For i = LBound(fileNames) To UBound(fileNames)        Dim fileName As String        Dim filePath As String        Dim logRow As Long        Dim hasTitle As Boolean        filePath = fileNames(i)        fileName = Dir(filePath)        ' 更新进度条        progress.Update i - LBound(fileNames) + 1, "正在处理: " & fileName        ' 确定日志行        logRow = logWs.Cells(logWs.Rows.Count, 1).End(xlUp).Row + 1        If logRow = 2 And logWs.Range("A2") = "" Then logRow = 2        ' 记录基本信息        logWs.Cells(logRow, 1) = fileName        logWs.Cells(logRow, 5) = Now()        On Error Resume Next        ' 尝试打开文件        Set sourceWb = Workbooks.Open(filePath, ReadOnly:=True, UpdateLinks:=0)        If Err.Number = 0 Then            ' 成功打开文件            Set sourceWs = sourceWb.Worksheets(1)            lastRow = sourceWs.Cells(sourceWs.Rows.Count, 1).End(xlUp).Row            ' 检查是否有数据            If lastRow > 0 Then                ' 判断是否需要复制标题                hasTitle = (targetLastRow = 1) ' 如果是第一行，需要标题                If hasTitle Then                    ' 复制整个范围（包括标题）                    sourceWs.UsedRange.Copy targetWs.Cells(targetLastRow, 1)                    targetLastRow = targetLastRow + lastRow                Else                    ' 不复制标题行                    If lastRow > 1 Then                        sourceWs.Range("A2:A" & lastRow).EntireRow.Copy targetWs.Cells(targetLastRow, 1)                        targetLastRow = targetLastRow + lastRow - 1                    End If                End If                ' 更新计数                totalRows = totalRows + IIf(hasTitle, lastRow, lastRow - 1)                successCount = successCount + 1                ' 记录成功                logWs.Cells(logRow, 2) = "成功"                logWs.Cells(logRow, 3) = IIf(hasTitle, lastRow, lastRow - 1)            Else                ' 空文件                logWs.Cells(logRow, 2) = "空文件"                logWs.Cells(logRow, 4) = "文件无数据"                failCount = failCount + 1            End If            ' 关闭文件            sourceWb.Close SaveChanges:=False        Else            ' 打开文件失败            logWs.Cells(logRow, 2) = "失败"            logWs.Cells(logRow, 4) = Err.Description            failCount = failCount + 1            Err.Clear        End If        On Error GoTo 0        fileCount = fileCount + 1    Next i    ' 关闭进度条    progress.CloseProgressBar    ' 恢复设置    Application.ScreenUpdating = True    Application.Calculation = xlCalculationAutomatic    Application.DisplayAlerts = True    Application.EnableEvents = True    ' 记录结束时间    endTime = Timer    totalTime = endTime - startTime    ' 格式调整    If targetLastRow > 1 Then        targetWs.Range("A1").CurrentRegion.Columns.AutoFit        targetWs.Range("A1").CurrentRegion.Rows(1).Font.Bold = True    End If    logWs.Columns.AutoFit    ' 显示汇总    Dim summary As String    summary = "合并完成！" & vbCrLf & vbCrLf & _              "总计文件: " & fileCount & " 个" & vbCrLf & _              "成功合并: " & successCount & " 个" & vbCrLf & _              "失败文件: " & failCount & " 个" & vbCrLf & _              "总数据行: " & totalRows & " 行" & vbCrLf & _              "处理时间: " & Format(totalTime, "0.00") & " 秒" & vbCrLf & vbCrLf & _              "详细日志请查看【合并日志】工作表"    MsgBox summary, vbInformation, "合并结果汇总"    ' 激活目标表    targetWs.Activate    targetWs.Range("A1").SelectEnd Sub' 进度条函数（需要放在标准模块中）Function CreateProgressBar(maxValue As Long, Optional title As String = "进度") As Object    ' 创建进度条的用户窗体    ' 这里简化处理，实际使用中需要创建ProgressBar用户窗体    ' 返回一个模拟进度条对象    Dim progress As Object    Set progress = New ProgressBarClass    progress.Init maxValue, title    Set CreateProgressBar = progressEnd Function

' 在工作表中创建按钮，并指定宏Sub ShowMergeDialog()    ' 显示合并对话框    ' 这里可以创建一个用户窗体，让用户选择更多选项    ' 例如：是否包含标题、选择特定工作表、设置输出位置等    Dim frm As New frmMergeOptions    frm.ShowEnd Sub

# 使用chunksize处理大文件chunk_size = 10000chunks = []for chunk in pd.read_excel('large_file.xlsx', chunksize=chunk_size):    chunks.append(chunk)df = pd.concat(chunks, ignore_index=True)# 指定数据类型减少内存占用dtype_dict = {'销售金额': 'float32', '销售数量': 'int32'}df = pd.read_excel('file.xlsx', dtype=dtype_dict)

' 1. 禁用屏幕更新Application.ScreenUpdating = False' 2. 禁用自动计算Application.Calculation = xlCalculationManual' 3. 使用数组操作代替单元格操作Dim dataArr As VariantdataArr = sourceWs.Range("A1:Z10000").Value' 处理数组...targetWs.Range("A1").Resize(UBound(dataArr, 1), UBound(dataArr, 2)).Value = dataArr

# Python：详细的错误日志import logginglogging.basicConfig(    level=logging.INFO,    format='%(asctime)s - %(levelname)s - %(message)s',    handlers=[        logging.FileHandler('merge_log.log'),        logging.StreamHandler()    ])