Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: jhxu0809

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

[复制链接]
发表于 2017-6-15 21:25 | 显示全部楼层
本帖最后由 327718098 于 2017-6-15 21:26 编辑
jhxu0809 发表于 2017-6-15 20:58
您好,运行时显示对象变量或with变量未设置是什么原因?

附件传来看看,这局句没有问题应该是后面那句没有查找道对应的值
回复

使用道具 举报

 楼主| 发表于 2017-6-16 08:56 | 显示全部楼层
327718098 发表于 2017-6-15 21:25
附件传来看看,这局句没有问题应该是后面那句没有查找道对应的值

请查看,多谢!

费用.zip

43.6 KB, 下载次数: 13

回复

使用道具 举报

发表于 2017-6-16 13:39 | 显示全部楼层

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


回复

使用道具 举报

 楼主| 发表于 2017-6-16 17:58 | 显示全部楼层
327718098 发表于 2017-6-16 13:39
Sub text()
Dim wj$
wj = Dir(ThisWorkbook.Path & "\*.x*")

感谢,感谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 16:06 , Processed in 0.955785 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表