自动罗列出某文件夹下所有文件固定单元格的数据，在线等，急。

星语心愿

自动罗列出某文件夹下所有文件固定单元格的数据，就是在汇总表中自动罗列出学校文件夹里面的所有工作薄中的“封面”这张工作表中的C18 .D18两个数据以及单位名称，单位名称可以用文件名称。希望得到朋友们的帮助。

苏小亓

EXCEL必备工具箱有这个功能，百度搜索EXCEL必备工具箱第一个就是。数据收集功能。

jiangxiaoyun

1. Sub doloop() '遍历当前路径所有文件
   
2.     Dim sFName As String '文件名称
   
3.     Dim sFType As String '文件类型
   
4.     Dim sPath As String '路径
   
5.    
   
6.     '//根据实际路径和文件类型而修改
   
7.     sPath = ThisWorkbook.Path & "\学校"
   
8.     sFType = "*.xls*"
   
9.     sFName = Dir(sPath & sFType)
   
10.     Application.ScreenUpdating = False
    
11.     Application.DisplayAlerts = False
    
12.     '//在代码操作区写代码即可
    
13.     Set sht = Workbooks("汇总.xlsm").Sheets("sheet1")
    
14.     sht.Range("a3:c66666").Clear '清空数据区域
    
15.     Do Until sFName = ""
    
16.         Set wb = Workbooks.Open(sPath & sFName) '依次遍历打开目标工作簿
    
17.         '//导入数据操作
    
18.         With sht
    
19.             r = .Cells(Rows.Count, 1).End(xlUp).Row + 1 '最后行号+1
    
20.             '复制,导入数据
    
21.             .Cells(r, 1) = Split(wb.Name, ".")(0)
    
22.             .Cells(r, 2) = wb.Sheets("封面").[c18]
    
23.             .Cells(r, 3) = wb.Sheets("封面").[d18]
    
24.             wb.Close False '关闭工作簿
    
25.         End With
    
26.         sFName = Dir  '下一个工作簿
    
27.     Loop
    
28.     Application.ScreenUpdating = True
    
29.     Application.DisplayAlerts = True
    
30. End Sub

复制代码

jiangxiaoyun

汇总.zip (1.15 MB, 下载次数: 42)

2018-8-6 10:29 上传

点击文件名下载附件

sheeboard

python写的

1. import pandas as pd
   
2. import xlrd
   
3. import os
   
4. import glob
   
5. 
   
6. os.chdir(r'路径') #比如 c:\xx\desktop\...\学校
   
7. 
   
8. data=[]
   
9. for file in glob.glob("*.xls"):
   
10.     wb=xlrd.open_workbook(file)
    
11.     sheet=wb.sheet_by_name('封面')
    
12.     people=sheet.cell(17,2).value
    
13.     salary=sheet.cell(17,3).value
    
14.     school=file.split('.')[0]
    
15.     row=[school,people,salary]
    
16.     data.append(row)
    
17. 
    
18. df=pd.DataFrame(data,columns=['单位名称','人数','工资总额']
    
19. df.to_excel('汇总.xls',index=False) #文件前面也可以加路径

复制代码

LMY123

同夹多薄指定表合并成一薄一表

星语心愿

可以了。谢谢楼上的几位朋友。