pip install pandas openpyxl

import pandas as pdimport globimport osdef merge_excel_with_python(folder_path, output_path):    """    批量合并Excel工作簿的函数    :param folder_path: 存放所有日报的文件夹路径（比如r"C:\周报\0721"）    :param output_path: 合并后总表的保存路径（比如r"C:\周报\全国日报_0721.xlsx"）    """    # 第一步：用glob获取文件夹下所有xlsx文件路径（*是通配符，匹配任意字符）    excel_files = glob.glob(os.path.join(folder_path, "*.xlsx"))    # 容错：如果文件夹里没有Excel文件，直接报错提示    if not excel_files:        raise ValueError(f"在{folder_path}中未找到任何.xlsx文件，请检查路径是否正确")    # 第二步：循环读取每个Excel，存到dataframes列表里    dataframes = []    for file in excel_files:        try:            # 读取Excel的第一个工作表（sheet_name=0表示第一个sheet）            df = pd.read_excel(file, sheet_name=0, engine="openpyxl")            # （可选）给每个df加一列“来源文件”，方便追溯数据来自哪个城市（比如“北京_0721.xlsx”）            df["来源文件"] = os.path.basename(file)            dataframes.append(df)            print(f"成功读取：{os.path.basename(file)}，共{len(df)}行数据")        except Exception as e:            print(f"读取{file}失败，错误原因：{e}")            continue  # 跳过错误的文件，不影响其他文件合并    # 第三步：纵向拼接所有DataFrame（axis=0表示按行拼接）    # ignore_index=True：重置索引，避免原表的索引（比如1、2、3）重复叠加    merged_df = pd.concat(dataframes, axis=0, ignore_index=True)    # 第四步：导出为总表    merged_df.to_excel(output_path, index=False, engine="openpyxl")    print(f"\n合并完成！总表保存至：{output_path}")    print(f"共合并{len(excel_files)}个文件，总数据量：{len(merged_df)}行")# ------------------- 调用函数示例 -------------------if __name__ == "__main__":    # 替换为你的实际路径（注意Windows路径前要加r，避免转义字符问题）    folder_path = r"C:\产品运营\周报\0721城市日报"    output_path = r"C:\产品运营\周报\全国日报_0721.xlsx"    merge_excel_with_python(folder_path, output_path)

merged_df = pd.concat(dataframes, axis=0, ignore_index=True, join="inner")

import dask.dataframe as dddf = dd.read_excel(file, sheet_name=0, engine="openpyxl")

df.empty：if not df.empty:    dataframes.append(df)else:    print(f"{os.path.basename(file)}为空表，已跳过")

Sub MergeExcelWithVBA()    Dim folderPath As String    Dim fileName As String    Dim srcWorkbook As Workbook    Dim destWorkbook As Workbook    Dim srcSheet As Worksheet    Dim destSheet As Worksheet    Dim lastRow As Long    Dim copyRange As Range    '------------------- 参数设置（根据你的实际路径修改） -------------------    folderPath = "C:\产品运营\周报\0721城市日报\"  ' 文件夹路径（末尾要加\）    Set destWorkbook = ThisWorkbook  ' 当前工作簿作为总表（也可以新建一个工作簿）    Set destSheet = destWorkbook.Sheets("总表")  ' 总表的工作表名称（如果没有，先新建一个名为“总表”的sheet）    ' 关闭屏幕更新（加快运行速度，避免闪烁）    Application.ScreenUpdating = False    ' 关闭警告提示（比如“是否覆盖文件”，这里不需要）    Application.DisplayAlerts = False    ' 获取文件夹下第一个xlsx文件名    fileName = Dir(folderPath & "*.xlsx")    ' 循环遍历所有Excel文件    Do While fileName <> ""        ' 打开源文件（只读模式，避免修改原文件）        Set srcWorkbook = Workbooks.Open(folderPath & fileName, ReadOnly:=True)        ' 假设源文件的第一个工作表是需要合并的（比如“日报数据”）        Set srcSheet = srcWorkbook.Sheets(1)        ' 找到源文件中数据的最后一行（从A列往上数，非空行的行号）        lastRowSrc = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row        ' 定义需要复制的区域（假设数据从A1开始，到D列结束，根据实际列数调整）        Set copyRange = srcSheet.Range("A1:D" & lastRowSrc)        ' 找到总表的下一行空白行（从第1列往下数，第一个空行的行号）        lastRowDest = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1        ' 复制源数据到总表（如果总表第一行是表头，第一次粘贴时要保留表头，之后跳过表头）        If lastRowDest = 2 Then  ' 总表只有表头时，从第二行开始粘贴（包含表头）            copyRange.Copy Destination:=destSheet.Range("A" & lastRowDest - 1)        Else  ' 已经有数据时，跳过表头，从第二行开始复制            srcSheet.Range("A2:D" & lastRowSrc).Copy Destination:=destSheet.Range("A" & lastRowDest)        End If        ' 关闭源文件，不保存（因为只读打开，无需保存）        srcWorkbook.Close SaveChanges:=False        Debug.Print "成功合并：" & fileName  ' 在立即窗口输出日志（按Ctrl+G查看）        ' 获取下一个文件名        fileName = Dir    Loop    ' 恢复屏幕更新和警告提示    Application.ScreenUpdating = True    Application.DisplayAlerts = True    MsgBox "合并完成！共合并" & (lastRowDest - 1) & "行数据", vbInformationEnd Sub

lastCol = srcSheet.Cells(1, srcSheet.Columns.Count).End(xlToLeft).ColumnSet copyRange = srcSheet.Range(srcSheet.Cells(1, 1), srcSheet.Cells(lastRowSrc, lastCol))

Dim count As Integercount = 0Do While fileName <> "" And count < 100  ' 最多合并100个文件    count = count + 1    ' ... 原有代码 ...Loop