matlab 读取word的表格数据,请教高手：使用VBA批量提取word中的表格数据，急！

代码如下：

Dim FilesList(1 To 99999, 1 To 1) '在主SUB代码外定义数组及位置变量，为跨SUB调用

Dim FilesList_i As Integer

Dim FS As Object

Dim If_Sub As String

Sub 遍历文件() '主SUB

Dim Path_todo As String

Path_todo = InputBox("输入待处理目录路径", "路径录入", "e:\test")                    '输入目录

If_Sub = InputBox("是否遍历子文件夹【0→否；1→是】", "是否遍历", 1) '是否遍历的记录

Set FS = CreateObject("Scripting.FileSystemObject")

Call GetAllFiles(Path_todo) 'Call 遍历文件过程

If FilesList_i = 0 Then Exit Sub '若遍历后发现没有任何文件，就直接退出'

Call Tables_to_DOC 'Call 提取表格数据过程

End Sub

Sub GetAllFiles(ByVal RecepPath As String)'获取全部文件sub

Dim Mainfolder, SubFolder, File_Currentfolder As Object '分别为当前主目录，子目录，主目录下文件列表

On Error Resume Next '一些系统文件夹可能导致代码报错&#x