关于word中表格问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim app As New MSWord.Application
try
    Dim fileName = "C:\Documents and Settings\Administrator\My Documents\下载\从word取数据\从WORD取数据\黄某某.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim text = t.Cell(1, 2).Range.Text.ToString()
    text = text.Substring(0, text.Length - 2)
    msgbox(text)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

上面代码中 Dim t = doc.Tables(1)

t是tablek吗？能否遍历这个table?

主要是想解决t.Cell(1, 2)中1和2的问题，想通过遍历来动态设置？谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:投标人须知.zip

[此贴子已经被作者于2019/2/23 17:23:09编辑过]

Dim app As New MSWord.Application

try

Dim fileName = "C:\Documents and Settings\Administrator\My Documents\下载\从word取数据\从WORD取数据\黄某某.doc"

Dim doc = app.Documents.Open(fileName)

Dim tb = doc.Tables(1)

For i As Integer = 1 To tb.Range.cells.count

Output.Show(tb.Range.cells(i).Range.Text)

catch ex As exception

msgbox(ex.message)

finally

app.Quit

End try

有点蓝老师你好：

如何把word中的表格数据导入到foxtable表中？代码怎么写？

还有msgbox(tb.rows.count)能显示值，为什么sgbox(tb.cols.count)不能显示值？

此主题相关图片如下：hhh.png

[此贴子已经被作者于2019/2/24 11:42:28编辑过]

参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\投标人须知.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim tb = doc.Tables(1)
    For i As Integer = 1 To tb.Rows.count
        For j As Integer = 1 To tb.Columns.count
            Output.Show(tb.cell(i, j).Range.Text)
        Next
    Next

catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

我打开指定文件一次后加载数据（符合我的需求），关闭窗口后，再去电脑打开这个文件出现下面错误提示，如何处理？

此主题相关图片如下：98888.png

Dim app As New MSWord.Application

try

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "文件|*.xls;*.xls;*.doc;*.docx;*.pdf" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件

Dim doc = app.Documents.Open(dlg.fileName)

Dim tb = doc.Tables(1)

Dim tb2 As Table = Tables(e.Form.Name & "_Table2")

'-----生成临时表列名------

Dim dtb As New DataTableBuilder("招标信息导入")

For j As Integer = 1 To tb.Columns.Count

dtb.AddDef(tb.cell(1,j).Range.Text, Gettype(String), 250)

dtb.Build(True)

tb2.DataSource = dtb.BuildDataSource

'--------临时表增加明细-------------

Dim ndr As Row

For i As Integer = 2 To tb.Rows.Count

ndr = tb2.AddNew()

For j As Integer = 1 To tb.Columns.Count

ndr(j -1) = tb.cell(i, j).Range.Text.Replace(" ","")

End If

Catch ex As Exception

msgbox(ex.message)

app.Quit

End Try

[此贴子已经被作者于2019/2/24 15:28:26编辑过]

加上红色代码

catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try

或者在你原来的基础上修改

End If

app.Quit

Catch ex As Exception

msgbox(ex.message)

app.Quit

End Try

主题：关于word中表格问题