如何批量导入工作表的

hgaopei

请教大神，情况时这样的：

在同一文件目录下4个工作簿，有：
总报表工作簿  含 三个工作表：A台账，B台账，C台账（3个台账数据类型不同）
A台账工作簿   含  一个工作表：A台账
B台账工作簿   含  一个工作表：B台账
C台账工作簿   含  一个工作表：C台账

这3个工作簿由不同的三个同事每周发给我，我需要每周汇总三表到总表中进行数据分析。
如何用VBA导将三个工作簿下的三个报表导入到 总台账工作簿 中。

思路是
打开 总台账工作簿 时
运行VBA，
删除 总台账下三个报表 并跳出确认窗口
历遍 总台账同一目录下文件
依次跳出选择文件窗口
选择文件
导入工作表

请大神指导。

QCW911

这不就是汇总吗
网上有好多帖子

望帝春心

网上找找代码对应改改试试

hgaopei

找过了啊。。就是找不到啊。

hgaopei

Sub 删除工作表()
Application.DisplayAlerts = False
With Worksheets
    Sheets("A台账").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("B台账").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("C台账").Select
    ActiveWindow.SelectedSheets.Delete
    End With
End Sub


Sub 新增工作表()
Dim Sh As Worksheet
With Worksheets
Set Sh = .Add(after:=Worksheets(.Count))
Sh.Name = "C台账"
Set Sh = .Add(after:=Worksheets(.Count))
Sh.Name = "C台账"
Set Sh = .Add(after:=Worksheets(.Count))
Sh.Name = "C台账"
End With
End Sub

jiahb2001

搞不懂 为什么要删除工作表？删除再创建？为什么不直接清空？

lxlyhu

这个很简单，网上搜“多薄多表合并Mergebooks.dll",里面有”多薄合并“功能