已解决，如何将文件夹中几百个表，指定合并到一张工作表中

changhong8

起始单元格和粘贴到F1单元格好像有问题

静听溪流

1. https://www.bilibili.com/read/cv24265065/

复制代码

cztanghao

这个用python很方便，可以做一个脚本给你。

cztanghao

通过Python代码可以做到，自动化读取目标文件夹的内容，匹配到对应的银行，将对应区域的数据挪到你要的区域。另外最好都用xlsx格式的文件（xls的也能通过代码批量转成xlsx），我这里手工转成了xlsx格式。代码如下：
import os,openpyxl
root=os.getcwd()
os.chdir(root)
wb=openpyxl.load_workbook('./银行流水导入模型.xlsx')
for sheet in wb.sheetnames:
    if '行' in sheet:
        print(sheet)
        for file in os.listdir('./数据源'):
            if file.startswith(sheet) and file.endswith('.xlsx'):
                print(file)
                print(f'./数据源/{file}')
                swb=openpyxl.load_workbook(f'./数据源/{file}')
                sws=swb.worksheets[0]
                for r in range(2,sws.max_row+1):
                    for c in range(1,sws.max_column+1):
                        wb[sheet].cell(r,c+5).value=sws.cell(r,c).value
wb.save('./result.xlsx')
结果见附件图片，做成脚本的话，你不用管代码，直接一键运行就行了

韬韬他妈

changhong8 发表于 2024-1-14 17:19

谢谢大神，我试了，非常成功

韬韬他妈

changhong8 发表于 2024-1-14 17:20
起始单元格和粘贴到F1单元格好像有问题

己学习，谢谢

aouan

changhong8 发表于 2024-1-14 17:18
Sub Main()
    Dim spath, fn, sht As Worksheet, sSht As Worksheet, wb As Workbook
    Dim shtName, ...

好多高手，赞