请教遍历文件夹及子文件夹的Excel文件

LMY123

joforn 发表于 2012-8-10 23:37
无意中发现，自己第一个API函数的声明不小心写错了。
虽然对程序的运行结果没有影响，但会导致程序在处理时 ...

不知什么时候我才能达到大师这样的水平，学习学习再学习。

烈日

liucqa 发表于 2012-8-6 21:22
Sub 获取D盘中所有Excel文件()  '包括子目录
    With CreateObject("WScript.Shell")
     .Popup .Exec ...

楼主 你好 获取的文件目录如何写入EXCEL表内，谢谢

yangyangzhifeng

试试看

1. Sub 获取D盘中所有Excel文件()    '包括子目录
   
2.     Dim sh As New WshShell, fd$, ar, st$, br, i&, n&, t
   
3.     With sh
   
4.         fd = .Environment("Process").Item("TEMP")
   
5.         st = .Exec("cmd.exe /c dir/s /a-d  d:\*.xl* > %temp%\222.txt").StdOut.ReadAll
   
6.     End With
   
7.     Open fd & "\222.txt" For Input As #1
   
8.     ar = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
9.     Close #1
   
10.     ReDim br(1 To UBound(ar), 1 To 2)
    
11.     For i = 0 To UBound(ar)
    
12.         If InStr(ar(i), "的目录") > 0 Then fd = Split(ar(i), "的目录")(0) & ""
    
13.         If InStr(ar(i), ".xls") > 0 Then
    
14.             t = Split(ar(i), " ")
    
15.             n = n + 1
    
16.             br(n, 1) = t(0) & " " & t(2)
    
17.             br(n, 2) = fd & t(UBound(t))
    
18.         End If
    
19.     Next
    
20.     Range("a1").Resize(n, 2) = br
    
21. End Sub

复制代码

lijiawu1122

yangyangzhifeng 发表于 2012-10-7 13:55
试试看

我怎么不行呢？我用的是EXCEL2007，Dim sh As New WshShell，显示用户定义类型未定义；

wqfzqgk

呵呵，抛个大砖引来了凤凰，试试哪个快

yangyangzhifeng

要引用windows Script Host Object Model

lijiawu1122

liucqa 发表于 2012-8-6 21:22
Sub 获取D盘中所有Excel文件()  '包括子目录
    With CreateObject("WScript.Shell")
     .Popup .Exec ...

虽然简洁，但结果没有显示到EXCEL里，好像没法用啊

yf_home

joforn 发表于 2012-8-6 19:35
完整代码示例表：

版主，5楼的文件，下载解压出错？

能否重新上传，谢谢！

张雄友

joforn 发表于 2012-8-6 19:40
说明:
一、如果没有调用过SetExtensionList方法或是在调用搜索前使用了CleanExtensionList方法，则会搜索 ...

太强大了。

张雄友

yangyangzhifeng 发表于 2012-10-7 13:55
试试看

用 mypath 选择时，内存溢出。