主题：帮我看一看我这个能不能进行开发了

这个代码在哪里进行操作？

做一个按钮执行。代码只是示例代码要看懂和改造的。

 

初学者，请先学习代码基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

看不懂代码，理解不了意思，请先自行学习基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

此主题相关图片如下：36`on`4d{l%x7lg4tt(_q1d.png

读word表很麻烦，你这种表电脑好难处理，上传一个电脑上填好数据的表看看。

请认认真真看这段文字，代码只是示例代码要看懂和改造的。

 

初学者，请先学习代码基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

看不懂代码，理解不了意思，请先自行学习基础 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

此主题相关图片如下：643()0tvvzhmscxd~apq0c.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:宁夏回族自治区养老服务评估申请审批表.rar

参考代码

 

Dim app As New MSWord.Application
try
    Dim dlg As new OpenFileDialog
    dlg.MultiSelect = True
    If dlg.ShowDialog = DialogResult.OK Then
        Dim t As Table = Tables("申请人基本情况")
        For Each filename As String In dlg.FileNames
            Dim nr As Row = t.addnew
            Dim doc = app.Documents.Open(fileName)
            Dim dt = doc.Tables(1)
            nr("姓名") = dt.Cell(2, 3).Range.text.tostring
            nr("性别") = dt.Cell(2, 5).Range.text.tostring
            nr("年龄") = dt.Cell(3, 3).Range.text.tostring
            nr("民族") = dt.Cell(3, 5).Range.text.tostring
            nr("文化程度") = dt.Cell(4, 3).Range.text.tostring
            doc.saved = True
            doc.close
        Next
    End If
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    app.Quit
End try

从狐表里导出数据应该怎么去做/

 

参考这个

 

http://www.foxtable.com/webhelp/scr/1299.htm

 

http://www.foxtable.com/webhelp/scr/2878.htm