请教：VBA提取各个文件固定列数据，匹配到汇总表

zxx82

请教各位高手们：我手头有一个成绩录入模板，需要将同一个文件夹下的平时成绩文件夹里面所有Excel文件（数量不定，一般不超过10，命名随机）中的“成绩详情”工作表（还有其他表），人员的综合成绩（J列，实际人数有几百人）作为平时成绩，做成按钮，根据学号提取并匹配到成绩录入模板中的E列；


同时，将同一个文件夹下的期末成绩文件夹里面所有Excel文件（数量不定，一般不超过10，命名随机）中的“成绩详情”工作表，人员的综合成绩（J列，实际人数有几百人）作为期末成绩，做成按钮，根据学号提取并匹配到成绩录入模板中的F列；模板可以移动到未来的其他文件夹，读取匹配。万分感谢！

liulang0808

Private Sub CommandButton1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    arr = ThisWorkbook.Sheets(1).UsedRange
    For j = 4 To UBound(arr)
        If Len(arr(j, 2)) > 0 Then d(arr(j, 2)) = j
    Next j
    For Each f In fso.getfolder(ThisWorkbook.Path & "\平时成绩\").Files
        With Workbooks.Open(f)
            brr = .Sheets("成绩详情").UsedRange
            .Close False
        End With
        For j = 4 To UBound(brr)
            If d.exists(brr(j, 2)) Then
                arr(d(brr(j, 2)), 5) = brr(j, 10)
            End If
        Next j
    Next
    ThisWorkbook.Sheets(1).UsedRange = arr
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

liulang0808

处理了一个，另外一个雷同

明天会更好zj

liulang0808 发表于 2023-1-8 11:10
Private Sub CommandButton1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    Se ...

这就是专业！

zxx82

liulang0808 发表于 2023-1-8 11:10
Private Sub CommandButton1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    Se ...

谢谢大佬！刚才大意，搞错了，测试可用啊！哪里是献花的按钮，好像没找到

zxx82

刚才测试了一下，发现一个问题：我原来概工作表页面有函数，用这个按钮提取后，发现函数被去掉了，直接变成数值，请问如何是好？

Hontyu

把
ThisWorkbook.Sheets(1).UsedRange = arr
改为试试:
ThisWorkbook.Sheets(1).[E1].Resize(UBound(arr), 1) = Application.Index(arr, , 5)

送花点右下角的评分,这点小问题都不会如何提升自己

gwjkkkkk

zxx82 发表于 2023-1-8 14:11
刚才测试了一下，发现一个问题：我原来概工作表页面有函数，用这个按钮提取后，发现函数被去掉了，直接变成 ...

请楼主参考附件，请解压后使用。。。做了一个，另一个自行修改。。。

zxx82

Hontyu 发表于 2023-1-8 18:33
把
ThisWorkbook.Sheets(1).UsedRange = arr
改为试试:

谢谢指教，不过改过后还是会清除。

zxx82

gwjkkkkk 发表于 2023-1-8 18:43
请楼主参考附件，请解压后使用。。。做了一个，另一个自行修改。。。

大佬这个也好用，感谢帮助！大家的帮助让我节省大量时间！谢谢大家！