13问答网 > 如何在Excel2013中批量提取Word文档(以插入对象方式)

如何在Excel2013中批量提取Word文档(以插入对象方式)

批量插入也没有学会，但是现在我先想学如何批量提取。谢谢

2025-03-11 13:19:36

推荐回答（2个）

回答1：

宏代码如下：

i=2 '从第2行开始

do while 1
if range("B" & i)<>"" then
Range("E" & i).Select
ActiveSheet.OLEObjects.Add(Filename:= _
ThisWorkbook.Path & "\" &“range("b" & i) &".doc", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"D:\PROGRA~1\MICROS~2\Office14\WINWORD.EXE", IconIndex:=0, IconLabel:= _
ThisWorkbook.Path & "\" &“range("b" & i) &".doc").Select
else
exit do
end if
i=i+1
loop

回答2：