将1月份文件内容复制到对应的sheet中，例如1月复制到汇总表里的一月份，而不是二月份

laozibuxing

捞屎人

自己翻翻我的帖子  吧 你这个就是一个 合并工作表

laozibuxing

捞屎人 发表于 2022-11-25 19:46
自己翻翻我的帖子  吧 你这个就是一个 合并工作表

本来我是可以用录制功能可以完成的，但是我想当我运行宏的时候，能自动判断当前文件件里是否有文件的命名和汇总表里月份相同的字段，如果有，就执行复制和粘贴动作，如果没有就提示报错“请检查文件命名是否正确”。代码该怎么写呢？谢谢大神了

捞屎人

你都录出来了还有啥好问的啊

laozibuxing

捞屎人 发表于 2022-11-25 22:59
你都录出来了还有啥好问的啊

但是我发现用录制功能，并不能全部实现我的需求。我的需求就是：运行宏的时候1月的数据自动放到一月份中，2月的数据自动放到二月份中，3月的数据自动放到三月份中，以此类推。。。。。。如果我人工复制粘贴的话，工作量稍微有点大了

laozibuxing

附件已经上传，大神帮我看下啊，代码怎么写呢？

3190496160

Sub 批量导入()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wwb = ThisWorkbook
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & f, 0)
        mc = Split(wb.Name, ".")(0)
        wwb.Worksheets(mc).UsedRange.Clear
        wb.Worksheets(1).UsedRange.Copy wwb.Worksheets(mc).[a1]
        wb.Close False
    End If
f = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

3190496160

年累计规模.rar (908.28 KB, 下载次数: 14)

2022-11-26 11:55 上传

点击文件名下载附件

laozibuxing

3190496160 发表于 2022-11-26 11:55

大神厉害

laozibuxing

3190496160 发表于 2022-11-26 11:53
Sub 批量导入()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

大神，能够解释下每行的代码吗，尤其是IF 里的代码不知道什么意思，比如mc = Split(wb.Name, ".")(0) ，旁边怎么还有（0）呢？