[已解决]如何提取一个文件夹里的所有EXCEL文件的最大值

骏马奔腾

我想提取一个文件夹里的文件，文件名称是有规律的4-1,4-2,4-3,到4-31，提取出来的数值放在A1，A2，A3到A31，提取的数值放在（曲线图excel表里），每天增加一个或两个excel文件，比如新增了4-3文件，然后曲线图文件的A3就自动有了4-3文件的最大的数值。真心希望哪位高手能帮帮我，先谢谢了！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-7 15:07

1. Sub 导入文件()
   
2.     Application.ScreenUpdating = False
   
3.     Dim Filename, wb As Workbook, Sht As Worksheet
   
4.     Filename = Dir(ThisWorkbook.Path & "\*.xls")
   
5.     Do While Filename <> ""
   
6.         If Filename <> ThisWorkbook.Name Then
   
7.             fn = ThisWorkbook.Path & "" & Filename
   
8.             Set wb = Workbooks.Open(fn)
   
9.             rq = Val(Split(wb.Name, "-")(1))      '日期（可作为表中的行数使用）
   
10.             Set Sht = wb.Worksheets(1)
    
11.             x = Application.WorksheetFunction.Max(Sht.UsedRange)    '最大值
    
12.             wb.Close False
    
13.         End If
    
14.         Cells(rq, 1) = x
    
15.         Filename = Dir
    
16.     Loop
    
17.     Set Sht = Nothing
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 导入文件()
   
2.     Application.ScreenUpdating = False
   
3.     Dim Filename, wb As Workbook, Sht As Worksheet
   
4.     Filename = Dir(ThisWorkbook.Path & "\*.xls")
   
5.     Do While Filename <> ""
   
6.         If Filename <> ThisWorkbook.Name Then
   
7.             fn = ThisWorkbook.Path & "" & Filename
   
8.             Set wb = Workbooks.Open(fn)
   
9.             rq = Val(Split(wb.Name, "-")(1))      '日期（可作为表中的行数使用）
   
10.             Set Sht = wb.Worksheets(1)
    
11.             x = Application.WorksheetFunction.Max(Sht.UsedRange)    '最大值
    
12.             wb.Close False
    
13.         End If
    
14.         Cells(rq, 1) = x
    
15.         Filename = Dir
    
16.     Loop
    
17.     Set Sht = Nothing
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

骏马奔腾

grf1973 发表于 2015-4-7 15:07

太好用了，真心的谢谢您。厉害为您竖起大拇指。