|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 zc123zc 于 2020-1-14 08:08 编辑
Sub Wordd()
Dim oDoc As Object
Dim myPath$, MyName$
myPath = ThisWorkbook.Path & "\入库单\"
MyName = Dir(myPath & "*.doc*")
Do While MyName <> ""
k = Split(Split(MyName, "(")(1), "号")(0) + 0
Set oDoc = GetObject(myPath & MyName)
k = k + 1
Cells(k + 1, 1) = k - 1
With oDoc.Shapes(1)
Cells(k + 1, 4) = Split(Split(.TextFrame.TextRange, "入库:")(1), ";(")(0)
End With
oDoc.Close True
MyName = Dir
Loop
End Sub |
评分
-
1
查看全部评分
-
|