vba 将文件夹下所有表格的固定单元格导入新表中 求助

si109187368

工作中遇到问题，仪器导出数据以csv格式存储。至少有数百份。每个表格只有一页，每页的格式固定，人力计算要花费大量的时间。
希望在每个表格的数个指定单元格写入函数，c1计算A列的平均值，d1统计A列总数。并将每个表格的c1和d1的计算结果，集中存放到新的表格中。

以下是我网上找的代码，自己尝试改了一部分，可以实现在文件夹下所有的表格写入函数。但是将写入每个表格的函数的计算结果，集中放到新的表格中，还不会。求教

Sub key()
    Dim Path As String
    Dim File As String
    Dim WB As Workbook
        Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭时屏幕不会晃瞎你的狗眼
        Path = "C:\Users\Administrator\Desktop\12-07 0931     12-08 1530" '把目标文件夹路径赋值给变量，这里的路径可以自己改
        File = Dir(Path & "*.csv") '一次找寻路径中的excel文件，这里到底是.xlsx还是.xls，可以自己改
        Do While File <> "" '当指定路径中由文件时进行循环
            Set WB = Workbooks.Open(Path & File) '打开符合要求的文件
            range("c3:c3")="=AVERAGE(a:a)" '调用你的另一端对每个excel文件进行具体操作的宏，也可以直接写到这个宏中
            File = Dir '找寻下一个excel文件
        Loop
        Application.ScreenUpdating = True '解冻屏幕，让屏幕恢复正常刷新。和上面的那一句成对使用
End Sub

一帆风顺2020

结果是这样的格式吗