只要能完成数据统计通过任何方式都是可以的

肖二爷

有没有大神 ，我想做一个excl表格会自动统计，一个大文件夹下面所有下级文件夹中excl文件的标题和总价

boy666

光描述搞不了，你得发几个示例文件，数据自己脱敏就行

肖二爷

boy666 发表于 2024-8-30 14:51
光描述搞不了，你得发几个示例文件，数据自己脱敏就行

比如    0/ 1 /文件夹/文件1    2/文件夹/文件    统计表   
类似这样  统计表要统计0 这个大文件夹下面的所有文件

dazuyishi1314

建议搞点模板和完成效果演示。。。不然怎么搞

andy833john

不过我个人现在猜想 用   UNIQUE(TOCOL())   +   TAKE()   应该能满足你说的

肖二爷

andy833john 发表于 2024-9-2 08:06
不过我个人现在猜想 用   UNIQUE(TOCOL())   +   TAKE()   应该能满足你说的

能详细点吗 没看懂

肖二爷

andy833john 发表于 2024-9-2 08:06
不过我个人现在猜想 用   UNIQUE(TOCOL())   +   TAKE()   应该能满足你说的

我是说的自动哟  比如我在这个文件夹  又新建一个表格文件  它的数据又会自动在我的  统计这个表格上生成数据

andy833john

肖二爷 发表于 2024-9-2 08:25
我是说的自动哟  比如我在这个文件夹  又新建一个表格文件  它的数据又会自动在我的  统计这个表格上生成 ...

如果你说的自动！那么有三种方式。
第一种就是脚本。
第二种就是宏
第三种 就是app。
你看下你自己适合那种需求！

q3125418

不是很复杂；需要用VBA脚本；
代码：

[C#] 纯文本查看 复制代码

Sub CollectExcelData()
    Dim ws As Worksheet
    Dim mainFolder As String
    Dim fileName As String
    Dim folder As String
    Dim wb As Workbook
    Dim rowCount As Long
    
    '设置主文件夹路径
    mainFolder = "C:\Your\Main\Folder\Path" '修改为你的主文件夹路径
    rowCount = 2 '从第二行开始填充数据，假设第一行是标题
    
    '设置当前工作表
    Set ws = ThisWorkbook.Sheets(1) '假设数据汇总在第一个工作表中
    ws.Cells(1, 1).Value = "文件路径"
    ws.Cells(1, 2).Value = "文件名"
    ws.Cells(1, 3).Value = "总价"
    
    '遍历主文件夹及其子文件夹中的所有Excel文件
    folder = Dir(mainFolder & "\*.xls*", vbDirectory)
    Do While folder <> ""
        fileName = Dir(mainFolder & "\" & folder & "\*.xls*")
        Do While fileName <> ""
            Set wb = Workbooks.Open(mainFolder & "\" & folder & "\" & fileName)
            
            '假设标题是文件名，总价在B2单元格
            ws.Cells(rowCount, 1).Value = mainFolder & "\" & folder & "\" & fileName
            ws.Cells(rowCount, 2).Value = wb.Name
            ws.Cells(rowCount, 3).Value = wb.Sheets(1).Range("B2").Value
            
            wb.Close False '关闭不保存
            rowCount = rowCount + 1
            fileName = Dir '获取下一个文件
        Loop
        folder = Dir '获取下一个文件夹
    Loop
End Sub

EXCEL VBA的用法 百度下

肖二爷

q3125418 发表于 2024-9-2 16:23
不是很复杂；需要用VBA脚本；
代码：
[mw_shl_code=csharp,true]Sub CollectExcelData()

感谢大神指点  我先试试如果行 就采用你的  谢谢