Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2576|回复: 5

[已解决]在相应文件夹中找文件

[复制链接]
发表于 2014-10-9 14:58 | 显示全部楼层 |阅读模式
各位

       代号为需要查找文件夹中的文件名。
      “文件名”查找到记数1
      “文件名”&“-cn”查找到记数2
      以上都没有记数0

请问代码怎么码
最佳答案
2014-10-9 20:07
………………

问题三打包.zip

8.82 KB, 下载次数: 5

发表于 2014-10-9 20:06 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, mypath$, wj$, d, zf$, i&
  3. Set d = CreateObject("scripting.dictionary")
  4. arr = Range("a1").CurrentRegion
  5. mypath = ThisWorkbook.Path & "\测试文件"
  6. wj = Dir(mypath & "*.txt")
  7. Do While wj <> ""
  8.     zf = Split(Split(wj, ".txt")(0), "-")(0)
  9.     d(zf) = d(zf) + 1
  10.     wj = Dir
  11. Loop
  12. For i = 2 To UBound(arr)
  13.     arr(i, 2) = d(arr(i, 1))
  14. Next
  15. Range("b1").Resize(UBound(arr)) = Application.Index(arr, 0, 2)
  16. End Sub
复制代码
回复

使用道具 举报

发表于 2014-10-9 20:07 | 显示全部楼层    本楼为最佳答案   
………………

问题三打包.zip

11.64 KB, 下载次数: 5

回复

使用道具 举报

发表于 2014-10-9 21:22 | 显示全部楼层
问题三打包.rar (14.57 KB, 下载次数: 3)
回复

使用道具 举报

 楼主| 发表于 2014-10-10 11:18 | 显示全部楼层
好的,谢谢2位
回复

使用道具 举报

 楼主| 发表于 2014-10-10 13:05 | 显示全部楼层
dsmch 发表于 2014-10-9 20:07
………………

Range("B1").Resize(UBound(arr)) = Application.Index(arr, 0, 2)

这句话是什么意思

点评

数组的第二列放在b1开始的单元格  发表于 2014-10-10 13:12
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 18:22 , Processed in 0.578977 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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