要将Word文件中的内容通过程序读取到数据库中，怎么通过VBA来实现

Sub abc() Dim App, WrdDoc, MyPath, MyFile, BM, Str Mypath = "文件实际路径\doc" '请修改实际储存路径！ Set App = CreateObject("WordApplication") '用Set关键字创建Word应用成序对象！ MyFile = Dir(Mypath) ' 获得第一个WORD文档 do w

方法：

open 事件

Private Sub Workbook_Open()

End Sub

在VBE窗口中左边的“thisworkbook" ,双击，就出现左边（通用），把它选为workbook，再选OPEN事件

在这个事件中加入代码，就可以了！

也可以用

Sub auto_open()

End Sub

这个放在任何模块都可以。

以上就是关于要将Word文件中的内容通过程序读取到数据库中，怎么通过VBA来实现全部的内容，包括:要将Word文件中的内容通过程序读取到数据库中，怎么通过VBA来实现、如何excel的VBA来打开程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！