点击汇总表，将同一文件夹中的其他表格的B列依次提取到汇总表

jhxu0809

如题，想实现的目标是点击汇总表，将同一文件夹中的其他格式完全一致表格的B列依次提取到汇总表的B列、C列、D列等等，求如何用VBA等解决。

hongqiqqq

已经明确要用VBA了，发这个地方就错了

china_hxx

半自动的VBA倒是很简单。你就选择 宏-录制宏  然后稍微改改就行了。自动的VBA我再琢磨琢磨

327718098

Sub text()
Dim wj$
wj = Dir(ThisWorkbook.Path & "\*.x*")
Do While wj <> ""
If wj <> ThisWorkbook.Name Then
Workbooks.Open (ThisWorkbook.Path & "\" & wj)
ActiveWorkbook.Sheets(1).Range("b3:b" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, 2).End(3).Row).Copy _
ThisWorkbook.Sheets(1).Rows("2:2").Find(Left(ActiveWorkbook.Name, 4) & "费用").Offset(1, 0)
ActiveWorkbook.Close 1
End If
wj = Dir
Loop
End Sub

jhxu0809

hongqiqqq 发表于 2017-6-14 20:15
已经明确要用VBA了，发这个地方就错了

自己用vlookup写了一下感觉不能实现动态化，所以是不是VBA是最好的方法。

jhxu0809

china_hxx 发表于 2017-6-15 09:51
半自动的VBA倒是很简单。你就选择 宏-录制宏  然后稍微改改就行了。自动的VBA我再琢磨琢磨

多谢！

jhxu0809

327718098 发表于 2017-6-15 10:31
Sub text()
Dim wj$
wj = Dir(ThisWorkbook.Path & "\*.x*")

我试一下，有问题再请教，多谢啦！

jhxu0809

327718098 发表于 2017-6-15 10:31
Sub text()
Dim wj$
wj = Dir(ThisWorkbook.Path & "\*.x*")

您好，请问如果我将每个表格的M列依次提取到汇总表的B列、C列这样，怎么样修改代码，自己修改了显示错误VBA小白，求指教。

327718098

jhxu0809 发表于 2017-6-15 18:57
您好，请问如果我将每个表格的M列依次提取到汇总表的B列、C列这样，怎么样修改代码，自己修改了显示错误V ...

ActiveWorkbook.Sheets(1).Range("m3:m" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, "m").End(3).Row).Copy
就该改这句，其它不变

jhxu0809

327718098 发表于 2017-6-15 20:36
ActiveWorkbook.Sheets(1).Range("m3:m" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, "m").End(3).Row ...

您好，运行时显示对象变量或with变量未设置是什么原因？