求助大神帮忙！！用VBA汇总数据到总表中，不胜感谢！

努力学习168 · 发表于 2024-2-24 09:07

本帖最后由努力学习168 于 2024-2-24 09:49 编辑

因工作原因，经常复制表格中数据到一个表中进行计算，复制太慢，搜了其他贴子没有找到适合的VBA，
怕耽误老师的时间，需求做了简化，还是老师帮忙解决下，不胜感谢！

说明：
（图1），某某总表是计算结果后的表格，A,B,C表格是我需从数据源文件夹中导入的表格。（可能不止ABC表，或者有10几个表）
需从数据文件夹中导入一一对应的文件名的表格。ED，，表可能在数据源文件夹不存在，所以导入时不需做修改其他动作。
总结：
导入时选择数据源文件夹，只导入对应相同名字表格即可。因为数据源文件夹很多个不同的数据表格。
数据源文件夹A,B,C表格名称和总表中的分表名是一致的。（图2）:

图1：

图2：

gwjkkkkk · 发表于 2024-2-24 09:13

附件呢？？？

ykcbf1100 · 发表于 2024-2-24 09:19

附件先压缩再上传

fzxba · 发表于 2024-2-24 10:12

本帖最后由 fzxba 于 2024-2-24 10:21 编辑

模拟数据.zip (82.93 KB, 下载次数: 19)

补一段文本_假设有标题.zip (939 Bytes, 下载次数: 14)

明天会更好zj · 发表于 2024-2-24 10:25

你对文件夹，工作簿，工作表都没有区得了。

ykcbf1100 · 发表于 2024-2-24 14:27

附件供参考。。。

ykcbf1100 · 发表于 2024-2-24 14:27

参与一下。。。

Sub ykcbf() '//2024.2.24
Dim wb, ws
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = CreateObject("Scripting.Dictionary")
Set ws = ThisWorkbook
Set sh = ws.Sheets("某某总表")
For Each sht In ws.Sheets
If sht.Name <> sh.Name Then d(sht.Name) = ""
Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择文件夹"
.InitialFileName = ThisWorkbook.Path & ""
If .Show = -1 Then
p = .SelectedItems(1) & ""
End If
End With
p1 = p & "数据源文件"
For Each f In fso.GetFolder(p).Files
If f.Name Like "*.xls*" Then
fn = fso.GetBaseName(f)
If d.exists(fn) Then
Set wb = Workbooks.Open(f, 0)
With wb.Sheets(1)
.Name = fn
.Cells.Copy ws.Sheets(fn).[a1]
wb.Close False
End With
End If
End If
Next
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub

复制代码

努力学习168 · 发表于 2024-2-25 10:28

fzxba 发表于 2024-2-24 10:12

谢谢老师帮忙。谢谢！
试用了，在导入原数据后有点问题，大致是，原数据表格如第1列或者第1行无数值时导入后会随机分配一个数值。感谢！

努力学习168 · 发表于 2024-2-25 10:43

ykcbf1100 发表于 2024-2-24 14:27
附件供参考。。。

谢谢老师帮忙解决，谢谢！
目前试用无发现问题，谢谢！

努力学习168 · 发表于 2024-2-25 10:44

gwjkkkkk 发表于 2024-2-24 09:13
附件呢？？？

谢谢，已经上传

		自动登录	找回密码
密码			免费注册

[求助] 求助大神帮忙！！用VBA汇总数据到总表中，不胜感谢！

评分

评分

评分

评分

评分