标题：如何读取wps表格的数据，写入Foxtable中

1楼

xxcwdlwgo 发表于：2025/3/8 21:36:00

在foxtable中，有表1，表结构项号和内容，现有wps(word),电脑中同时安装有wps和office,文档表格中分两列，第1列是数字，第2列是内容。是从该文档第5行开始读取的，试了多次，不成功。请大师指点

2楼

xxcwdlwgo 发表于：2025/3/8 21:41:00

也搜索过，翻看了以前的帖子，少有类似问题。

3楼

有点蓝 发表于：2025/3/9 19:47:00

execl文档还是word文档？

4楼

有点蓝 发表于：2025/3/9 19:51:00

5楼

xxcwdlwgo 发表于：2025/3/10 14:19:00

此主题相关图片如下：微信截图_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)

Doc.Close()

Catch ex As Exception

MessageBox.Show("发生错误:" & ex.Message) ' 显示错误信息

Finally

' 关闭文档并退出 Word 应用程序

'If doc IsNot Nothing Then doc.Close()

app.Quit()

End Try

读取后写入表1

6楼

有点蓝 发表于：2025/3/10 14:32:00

如果是不规则的表格需要自己数是哪个单元格，然后一个一个单元格的取数据

t.Cell(行数, 列数).Range.Text.ToString()

共6 条记录, 每页显示 10 条, 页签: [1]