此主题相关图片如下：微信截图_20250310141326.png
要读取的word表格样式。
在论坛上搜索了一些方法，也修改了，在表格规则的情况下，可以读取，遇到有合并的单元格，报错。
代码如下：
Dim app As New MSWord.Application
Try
Dim fileName = "D:\GPT浏览器下载\从WORD取数据\301号.doc"
Dim doc = app.Documents.Open(fileName)
Dim t = doc.Tables(1) ' 获取文档中的第一个表格
' 获取表格的行数
Dim rowCount As Integer = t.Rows.Count
MessageBox.Show("表格共有 " & rowCount & " 行")
' 遍历表格的每一行
For i As Integer = 1 To rowCount
' 遍历当前行的每一列
For j As Integer = 1 To t.Columns.Count
' 获取单元格的文本内容
Dim text As String = t.Cell(i, j).Range.Text.ToString()
text = text.Substring(0, text.Length - 2) ' 去掉末尾的特殊字符
MessageBox.Show("第 " & i & " 行,第 " & j & " 列的内容:" & text)
Next
Next
Doc.Close()
Catch ex As Exception
MessageBox.Show("发生错误:" & ex.Message) ' 显示错误信息
Finally
' 关闭文档并退出 Word 应用程序
'If doc IsNot Nothing Then doc.Close()
app.Quit()
End Try
读取后写入表1
加好友 
发短信
Post By：2025/3/8 21:36:00 [只看该作者]
