...将一个文件夹下所有的word文档中的表格数据读取到一个excel中?_百度...
发布网友
发布时间：2024-03-27 05:22
共1个回答
热心网友
时间：2024-04-25 22:03
Dim fcc,fo,fso
Set fso = CreateObject("Scripting.filesystemobject")
Set fo = fso.getfolder("C:\AA") '文件夹
i=1
For Each fc In fo.subFolders
For Each fcc In fc.Files
If InStr(1, fcc.Name, ".doc", 1) Then
Range("A" & i) = fcc.Name
i = i + 1
End If
Next
Next
