Dim directory As String = "C:\Users\Administrator\Desktop\志愿表采集\"
Dim app As New MSWord.Application
Try
For Each File As String In FileSys.GetFiles(directory)
Dim fs As String = FileSys.GetName(file)
If fs.Contains(".docx") OrElse fs.Contains(".doc") Then
Dim dr As Row = Tables("表A").AddNew
Dim fileName = directory & fs
Dim doc = app.Documents.Open(fileName)
Dim t = doc.Tables(1)
Dim n1() As String = {1, 1, 1, 1, 2, 2, 2, 4, 4, 4, 5} '学生姓名
Dim n2() As String = {2, 4, 6, 8, 2, 4, 6, 2, 4, 6, 2} '学生姓名
For i As Integer = 0 To n1.Length - 1
Dim text = t.Cell(n1(i), n2(i)).Range.Text.ToString()
text = text.Substring(0, text.Length - 2)
text = text.Replace(" ", "")
text = text.Replace("老师", "")
dr("第" & i + 1 & "列") = text
Next
dr.Save
End If
Next
Catch ex As exception
msgbox(ex.message)
Finally
app.Quit
加好友 
发短信
Post By：2023/10/24 0:35:00 [只看该作者]
此主题相关图片如下：微信图片_20231024100438.png