如何根据excel表格列表批量搜索文件夹并将搜索到的文件夹放到同一个文件夹里？-鞋百科

今天鞋百科给各位分享如何区分提取文档的知识，其中也会对如何根据excel表格列表批量搜索文件夹并将搜索到的文件夹放到同一个文件夹里？进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在我们开始吧！

如何根据excel表格列表批量搜索文件夹并将搜索到的文件夹放到同一个文件夹里？

写vba代码，使用fso对象(需要添加引用miscrosoft script runtime)

怎样利用VBA将一个文件夹下所有的word文档中的指定数据读取到一个指定excel指定位置中？

我的空间中有把WORD提取到EXCEL的模板。。你可以下载使用

如何将一个word文档中的一页提取出来

Word中如何快速合并多个文档

如何从word文件中提取所有word文档对象？

代码不多，可是费了老劲。亲：一定要及时采纳哟。

Sub a()
'导出OLE里的文档
Dim strPath$, strTopic$, intCount%, intEnt%, OActdOC

strPath = ActiveDocument.Path & "\"

Set OActdOC = ActiveDocument
intCount = ActiveDocument.InlineShapes.Count

If intCount = 0 Then Exit Sub

For cx = 1 To intCount
With OActdOC.InlineShapes(cx).OLEFormat
If InStr(UCase(Format(.ClassType)), "WORD.DOCUMENT") 0 Then
With .Object
strTopic = Trim(.Paragraphs(1).Range.Text)
intEnt = InStr(strTopic, Chr(13)) - 1
strTopic = Left(strTopic, intEnt)
If Len(strTopic) > 200 Then strTopic = Left(strTopic, 30)
'如果出错，则是内嵌文件第一段里有不适用于文件名的字符，可用正则排除，本人不熟
.SaveAs strPath + strTopic
End With
End If
End With
Next

End Sub