共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何读取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:00execl文档还是word文档？
4楼
有点蓝 发表于：2025/3/9 19:51:00execl指定行数开始可以用代码填充：http://www.foxtable.com/webhelp/topics/2334.htm
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)
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
6楼
有点蓝 发表于：2025/3/10 14:32:00如果是不规则的表格需要自己数是哪个单元格，然后一个一个单元格的取数据
t.Cell(行数, 列数).Range.Text.ToString()
共6 条记录, 每页显示 10 条, 页签:
[1]