统计来自多个csv文件的数据
我已经有数百个文件夹链接到共享文件夹中
例如：
a:\Images\abc\year\month\date\names1 a:\Images\abc\year\month\date\names2 a:\Images\abc\year\month\date\names3 etc,. 每个文件夹都有一个csv（ abc.csv在每个文件夹中的常量名称）包含几个信息。
例如：
1 Orange USA 2 Apple England 3 Orange Australia 4 Orange Austria 5 Apple India
在这里，我想要统计不同文件夹的CSV中的桔子，苹果，葡萄和瓜类的数量。
我期待输出如下：
Link Oranges Apples Grapes Melon \names1 5846 2000 85215 586 \Names2 4521 1542 45852 125 \Names3 365 4856 25415 548
请帮助…
试试这个代码。 它将打开列（1）中列出的每个文件夹中包含的文件abc.csv，对这些项目进行计数，然后closures文件并继续。
Option Explicit Sub CountApples() Dim wbk As Workbook, sht As Worksheet, wbkTemp As Workbook, lLoop As Long, lLastRow As Long 'turn off updates to speed up code execution With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With Set sht = ActiveSheet lLastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row For lLoop = 2 To lLastRow Set wbkTemp = Workbooks.Open(sht.Cells(lLoop, 1) & "\abc.csv") sht.Cells(lLoop, 2).Value = Application.WorksheetFunction.CountIf(wbkTemp.Sheets(1).Columns(1), "Oranges") sht.Cells(lLoop, 3).Value = Application.WorksheetFunction.CountIf(wbkTemp.Sheets(1).Columns(1), "Apples") sht.Cells(lLoop, 4).Value = Application.WorksheetFunction.CountIf(wbkTemp.Sheets(1).Columns(1), "Grapes") sht.Cells(lLoop, 5).Value = Application.WorksheetFunction.CountIf(wbkTemp.Sheets(1).Columns(1), "Melon") wbkTemp.Close (False) Next lLoop With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub