关于Excel邮件合并提高工作效率

吾爱浩浩

简单的说能不能用dos搞，或者考软件，吧每个文件夹导出我需要的表格类型，类型条件是有序号，有名字，主要做邮件合并用提高自己的工作效率......

518

[Python] 纯文本查看 复制代码

import xlrd
import xlwt
from xlutils3.copy import copy
import os
import re
def wxl(a,b):
    filename = r'de.xls'
    workbook = xlrd.open_workbook(filename, formatting_info=True)
    sheet = workbook.sheet_by_index(0)
    rowNum = sheet.nrows
    newbook = copy(workbook)
    newsheet = newbook.get_sheet(0)
    newsheet.write(rowNum, 0, a)
    newsheet.write(rowNum, 1, b)
    newbook.save(filename)
if __name__ == '__main__':
    wb = xlwt.Workbook()
    wb.add_sheet('sheet1')
    wb.save('de.xls')
    j=1
    for i, filename in enumerate(os.listdir("./")):
        if (re.findall(r'.*[0-9].*',filename)!=[]):
            wxl(j,filename)
            j+=1

你看看可以吗  筛选条件可以改

吾爱浩浩

求助下，Excel的大佬

518

用python不可以吗

约定的童话

VBA貌似可以实现，去EH论坛发帖求助

wuwuxin123

看到哦py大佬了

thefour

fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总） http://club.excelhome.net/thread-1165866-1-1.html

四、遍历当前文件夹及所有子文件夹下的文件

[Visual Basic] 纯文本查看 复制代码

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.ClearContents
    Cells(1, 1) = "相对路径文件名"
    Cells(1, 2) = "绝对路径文件名"
    Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
    Application.ScreenUpdating = True
End Sub
Sub Getfd(ByVal pth)
    Set Fso = CreateObject("scripting.filesystemobject")
    Set ff = Fso.getfolder(pth)
    For Each f In ff.Files
        Rem 具体提取哪类文件，还是需要根据文件扩展名进行处理
        Cells(Rows.Count, 1).End(3).Offset(1) = f.Name
        Cells(Rows.Count, 2).End(3).Offset(1) = f
    Next f
    For Each fd In ff.subfolders
        Getfd (fd)
    Next fd
End Sub