vba word调用excel?

131 2023-12-18 05:24

在有文件的文件夹中新建一个excel 工作簿,打开工作簿,按Alt + F11,把下面的代码复制进去,按F5执行。

代码会复制工作文件的前300个字符到excel中。

子测试()

Dim i%,myName $,myPath $,AppWord As Object

Set AppWord = CreateObject(“Word.Application”)

myPath = ThisWorkbook.Path&“\”

myName = Dir(myPath&“* .doc *”)

With ActiveSheet

.Columns(“A:B”)。ClearContents

Do my myName <>“”

AppWord.Documents.Open Filename:= myPath&myName

i = i +

1.Cells(i,1)= myName

.Cells(i,2) = AppWord.ActiveDocument.Range(开始:= 0,结束:= 300).Text

AppWord.ActiveDocument。关闭False

myName = Dir

Loop

End With

AppWord.Quit

Set AppWord = Nothing

MsgBox“已完成。”

End Sub

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
点击我更换图片