通过VB查找导入多个工作簿中某一个分表里面的数据，

辰星晕开记忆

在一个文件夹中有1-4个月的工作簿，每个工作簿中有多个工作表，现新建“分析表”的工作簿，想通过VB来导入1-4月份名为“11”工作表中实例1的数据，以序号为查找基础，我这边是根据这一段代码作为基础来修改，但是感觉无法实现，希望能够有老师来帮我解惑，感谢！Sub test()
Dim r1 As Range
Dim r2 As Range
Dim w As Workbook
ThisWorkbook.Activate
Set r1 = ThisWorkbook.Sheets("分析").[a1]
Set r2 = ThisWorkbook.Sheets("分析").[c2]

Set w = Workbooks.Open(ThisWorkbook.Path & "\2019.1.8.xls")
w.Sheets("11").[b1] = r1
w.Sheets("11").[b2] = r2
SendKeys "~"
w.Save
w.Close
End Sub

魂断蓝桥

根据你的附件写的

Sub a()
Dim myf$, r%, m%
myf = Dir(ThisWorkbook.Path & "\*.xls")
[b2:e999] = ""
Do While myf <> ThisWorkbook.Name
    Workbooks.Open ThisWorkbook.Path & "\" & myf
    With ActiveWorkbook
        m = m + 1
        r = .Sheets("11").[b999].End(3).Row
       .Sheets("11").Range("b2:b" & r).Copy ThisWorkbook.Sheets("分析").Range("b2").Offset(0, m - 1)
        .Close 0
    End With
    myf = Dir()
Loop
End Sub

zxcvbnm0000000

魂断蓝桥 发表于 2019-1-18 14:58
根据你的附件写的

Sub a()

麻烦看看这个也http://club.excelhome.net/thread-1457629-1-1.html

辰星晕开记忆

魂断蓝桥 发表于 2019-1-18 14:58
根据你的附件写的

Sub a()

太感谢了，再请教一下，我希望再每个月份的工作表里，能够自动导入上个月的数据应该怎么处理，比如说4月份的工作表中能看到3月份实例1 的数据，3月份能够看到2月份的数据

火爆大白菜

魂断蓝桥 发表于 2019-1-18 14:58
根据你的附件写的

Sub a()

这段代码,没有用到序号? 如果要根据序号,将1-4月填到分析表相应的序号后面,怎样实现?

魂断蓝桥

火爆大白菜 发表于 2019-6-14 11:38
这段代码,没有用到序号? 如果要根据序号,将1-4月填到分析表相应的序号后面,怎样实现?

他那些序号都是重复的，如果是不重复的可以用字典来实现。