1 ‘ 该函数是获取指定目录下所有的 文件夹 名 2 Sub readFile() 3     Path = "d:\" 4     sonpath = Dir(Path, vbDirectory) 5     Do While sonpath <> "" 6         ‘ 跳过当前的目录及上层目录 7         If sonpath <> "." And s <> ".." Then 8             ‘ 使用位比较来确定MyName代表一目录 9             If (GetAttr(Path & sonpath) And vbDirectory) = vbDirectory Then10                 MsgBox sonpath  ‘ 如果它是一个目录，打印名称11                 ‘ 然后就可以打开这些目录下的文件12             End If13         End If14         sonpath = Dir   ‘查找下一个目录15     Loop16 End Sub

 1 ‘ 该函数为获取指定目录下所有文件名 2 ‘ 注释部分，如果加上，则不包括"."和".." 3 ‘ 否则获取的文件名包括上面列出的两个 4 Sub readFile1() 5     Path = "D:\video\" 6     sonpath = Dir(Path, vbDirectory) 7     Do While sonpath <> "" 8         ‘ If sonpath <> "." And sonpath <> ".." Then 9             MsgBox sonpath10         ‘ End If11         sonpath = Dir12     Loop13 End Sub

 1 ‘ 读取文件内容，并将每行依次复制到A列   2 ‘ path为文件绝对地址，lineNum为行号   3 Function readFile2(path, lineNum)   4     ‘ 错误机制处理，可以去掉，如果有错误，会自动跳转到Error标签处执行   5     On Error GoTo Error   6        7     ‘ 打开文件，并以符号"1"来代替文件流   8     Open path For Input As #1   9           10         ‘ 判断文件流"1"是否读取到文件尾  11         Do While Not EOF(1)  12               13             ‘ 读取文件流"1"中的一行，并赋值给变量"a"  14             Line Input #1, a$  15             ‘ 将变量"a"复制到指定单元格里  16             Range("A" + CStr(lineNum)).Value =http://www.mamicode.com/ a$  17             ‘ 行号+1  18             lineNum = lineNum + 1  19         Loop  20     Close #1  21     Exit Function  22 Error: MsgBox Err.Description  23 Close #1  24 End Function

 1 ‘ 读取指定目录下的所有txt文件，并将其内容拷贝到sheet1的A列中   2 Sub readTxts()   3     ‘ 父级路径设置，最后有"\"，注意   4     path = "d:\data\data\"   5     ‘ 设置行号   6     lineNum = 1   7        8     ‘ 获取该目录下所有文件名（只放置txt格式文件，其他的格式尚未判断）   9     sonpath = Dir(path, vbDirectory)  10     Do While sonpath <> ""  11         If sonpath <> "." And sonpath <> ".." Then  12             MsgBox "正在读取" + sonpath  13               14             ‘ 调用读取文件的函数（txt文件绝对路径，行号）  15             result = readFile2(path + sonpath, lineNum)  16         End If  17         sonpath = Dir  18     Loop  19 End Sub