- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何读取wps表格的数据，写入Foxtable中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195790)
-- 发布时间：2025/3/8 21:36:00
-- 如何读取wps表格的数据，写入Foxtable中
在foxtable中，有表1，表结构项号和内容，现有wps(word),电脑中同时安装有wps和office,文档表格中分两列，第1列是数字，第2列是内容。是从该文档第5行开始读取的，试了多次，不成功。请大师指点
-- 发布时间：2025/3/8 21:41:00
--
也搜索过，翻看了以前的帖子，少有类似问题。
-- 发布时间：2025/3/9 19:47:00
--
execl文档还是word文档？
-- 发布时间：2025/3/9 19:51:00
--
execl指定行数开始可以用代码填充：http://www.foxtable.com/webhelp/topics/2334.htm
-- 发布时间：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)
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
-- 发布时间：2025/3/10 14:32:00
--
如果是不规则的表格需要自己数是哪个单元格，然后一个一个单元格的取数据
t.Cell(行数, 列数).Range.Text.ToString()