汇总某文件夹下的多个workbook统计数据

wang_jg

cnmlgb9998 发表于 2024-3-12 09:59
搜 power query

能一键操作吗？VBA写好代码后一键就搞定了，效率也可以的

cnmlgb9998

wang_jg 发表于 2024-3-12 10:00
能一键操作吗？VBA写好代码后一键就搞定了，效率也可以的

当然。点刷新，自动更新！

wang_jg

ykcbf1100 发表于 2024-3-11 11:36
代码如下：

            s = CStr(.Cells(i, 3))
            If d.Exists(s) Then
                .Cells(i, 4) = d(s)(0)
                .Cells(i, 5) = d(s)(1)
                .Cells(i, 6) = .Cells(i, 5) * .Cells(i, 7)
                .Cells(i, 8) = .Cells(i, 6)
            End If
这段判断代码也是不符合实际的，不需要判断，而是程序据实填写到表格里面。

wang_jg

fzxba 发表于 2024-3-11 15:05
Sub test0() '我陪着玩一下
  
  Dim strPath As String

认真学习了一下代码，新的思路，用了sql，强！

fzxba

wang_jg 发表于 2024-3-17 17:10
认真学习了一下代码，新的思路，用了sql，强！

啥也不是，也就别人不玩了，我接着玩一下而已。

wang_jg

fzxba 发表于 2024-3-17 17:58
啥也不是，也就别人不玩了，我接着玩一下而已。

能否将这些表格的数据输出出word模板（验收报告有固定的框架）

wang_jg

fzxba 发表于 2024-3-17 17:58
啥也不是，也就别人不玩了，我接着玩一下而已。

汇总某文件夹下的多个workbook统计数据，并自动生成WORD报告模板
https://club.excelhome.net/thread-1687266-1-1.html
(出处: ExcelHome技术论坛)

wang_jg

ykcbf1100 发表于 2024-3-11 13:37
让别人陪你玩吧。
我不想再浪费时间。

汇总某文件夹下的多个workbook统计数据，并自动生成WORD报告模板
https://club.excelhome.net/thread-1687266-1-1.html
(出处: ExcelHome技术论坛)

wang_jg

cnmlgb9998 发表于 2024-3-12 09:59
搜 power query

汇总某文件夹下的多个workbook统计数据，并自动生成WORD报告模板
https://club.excelhome.net/thread-1687266-1-1.html
(出处: ExcelHome技术论坛)

ykcbf1100

wang_jg 发表于 2024-3-16 13:27
s = CStr(.Cells(i, 3))
            If d.Exists(s) Then
                .Cells(i, 4)  ...

那你自己改一下吧。