多个文件夹中的同名表格统计信息

staryu840

如附件，从每个文件夹中的【营运中心】中的【表1】把（何飞燕）的（实发工资）金额提取出来到一张新的excel表格当中，按照月份列式，求大神帮助感激不尽。(不需要统计表2的何飞燕工资。)

microyip

同样的问题，没必要发几次贴，贪获取经验吗？打怪升级？呵呵

sheeboard

windows 下路径改成"\\"

1. import os
   
2. import pandas as pd
   
3. 
   
4. os.chdir('工资表所在绝对目录')
   
5. df=pd.DataFrame()
   
6. folders=os.listdir('工资表')
   
7. for folder in folders:
   
8.     file='工资表'+'/'+folder+'/'+'营运中心.xlsx'
   
9.     data=pd.read_excel(file,sheetname='表1',skiprows=[0,1])
   
10.     result=data[data['姓名']=='何飞燕'][['姓名','实发工资']]
    
11.     result['文件夹名']=folder
    
12.     df=pd.concat([df,result],ignore_index=True)
    
13. df.sort_values('文件夹名')
    
14. df.to_excel('out.xlsx',index=False)

复制代码

opiona

http://club.excelhome.net/thread-1409141-1-1.html

staryu840

sheeboard 发表于 2018-7-22 12:29
windows 下路径改成"\\"

C:\Users\staryu\Desktop变成这样了，是哪里出问题了吗

sheeboard

staryu840 发表于 2018-7-22 14:49
变成这样了，是哪里出问题了吗

这个是python的脚本，下一个python，装一下pandas库。windows路径是“\”，而 \ 是转义符，所以要用“\\”。

staryu840

sheeboard 发表于 2018-7-22 15:14
这个是python的脚本，下一个python，装一下pandas库。windows路径是“\”，而 \ 是转义符，所以要用“\\ ...

谢谢大神，我去试试看

lsc900707

Sub gj23w98()
    tms = Timer
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Dim arr(), crr(1 To 1000, 1 To 3)
    Sheet1.[a1].CurrentRegion.Offset(1).ClearContents
    mypath = ThisWorkbook.Path & "\工资表\"
    myfile = Dir(mypath, vbDirectory)
    Do While myfile <> ""
        If myfile <> "." And myfile <> ".." Then
            If (GetAttr(mypath & myfile) And vbDirectory) = vbDirectory Then
                m = m + 1
                ReDim Preserve arr(m)
                arr(m) = mypath & myfile & "\"
            End If
        End If
        myfile = Dir
    Loop
    For j = 1 To m
        myfile = Dir(arr(j) & "营运中心.xlsx")
        While myfile <> ""
            Set wb = CreateObject(arr(j) & myfile)
            With wb.Sheets(1)
                brr = .[a1].CurrentRegion
                For i = 4 To UBound(brr)
                    If InStr(brr(i, 1), "何飞燕") Then
                        n = n + 1
                        crr(n, 1) = brr(i, 1)
                        crr(n, 2) = brr(i, 21)
                        crr(n, 3) = Split(arr(j), "\")(6)
                    End If
                Next
            End With
            wb.Close
            myfile = Dir()
        Wend
    Next
    [a2].Resize(n, 3) = crr
    Set wb = Nothing
    Application.ScreenUpdating = True: Application.DisplayAlerts = True
    MsgBox Format(Timer - tms, "何飞燕实发工资并查询成，耗时：0.00秒"), 64, "温馨提示"
End Sub

lsc900707

附件供测试：

staryu840

staryu840 发表于 2018-7-22 15:33
谢谢大神，我去试试看

亲测可行，感谢大神