[求助]将EXCEL导入公式如何写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]将EXCEL导入公式如何写？

共有4129人关注过本帖树形打印复制链接主题：[求助]将EXCEL导入公式如何写？

大雪山

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

[求助]将EXCEL导入公式如何写？ 发帖心情

Post By：2017/11/23 19:17:00 [只看该作者]

1问题将EXCEL的数据导入

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩.xlsx

[此贴子已经被作者于2017/11/23 19:17:34编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/23 21:00:00 [只看该作者]

Dim dt1 As DataTable = DataTables("学生")
Dim dt2 As DataTable = DataTables("成绩")
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    For i As Integer = 0 To sheet.Rows.count-1
        If sheet(i,0).text = "姓    名" Then
            Dim ndr As DataRow = dt1.AddNew
            ndr("学号") = sheet(i,5).text
            ndr("姓名") = sheet(i,1).text
            For j As Integer = i+6 To sheet.Rows.count-1
                If sheet(j,0).text > "" Then
                    Dim ncdr As DataRow = dt2.addnew
                    ncdr("xhdm") = ndr("学号")
                    ncdr("课程") = sheet(j,0).text
                    ncdr("学分") = sheet(j,2).text
                    ncdr("学分绩点") = sheet(j,3).text
                    ncdr("成绩") = sheet(j,4).text
                Else
                    i = j
                    Exit For
                End If
            Next
        End If
    Next
End If

大雪山

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2017/11/23 21:24:00 [只看该作者]

问题1 导入公式中能将高等数学（课件）大学物理（课件）两课目及其它字段屏蔽？问题2 身份证号的加入麻烦老师再修改一下，谢谢

[此贴子已经被作者于2017/11/23 21:38:50编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/23 22:01:00 [只看该作者]

'''
Dim dt1 As DataTable = DataTables("学生")
Dim dt2 As DataTable = DataTables("成绩")
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    For i As Integer = 0 To sheet.Rows.count-1
        If sheet(i,0).text = "姓    名" Then
            Dim ndr As DataRow = dt1.AddNew
            ndr("学号") = sheet(i,5).text
            ndr("姓名") = sheet(i,1).text
            For j As Integer = i+6 To sheet.Rows.count-1
                If sheet(j,0).text > "" Then
                    If sheet(j,0).text.trim <> "高等数学（课件）" AndAlso sheet(j,0).text.trim <> "大学物理（课件）" Then
                        Dim ncdr As DataRow = dt2.addnew
                        ncdr("xhdm") = ndr("学号")
                        ncdr("课程") = sheet(j,0).text.trim
                        ncdr("学分") = sheet(j,2).text
                        ncdr("学分绩点") = sheet(j,3).text
                        ncdr("成绩") = sheet(j,4).text
                    End If
                Else
                    i = j
                    Exit For
                End If
            Next
        End If
    Next
End If

大雪山

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2017/11/23 23:12:00 [只看该作者]

这个公式如能身份证号专业学习形式这三项能加进去就完美解决，麻烦老师再修改一下，谢谢

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/24 9:05:00 [只看该作者]

以下是引用大雪山在2017/11/23 23:12:00的发言：
这个公式如能身份证号专业学习形式这三项能加进去就完美解决，麻烦老师再修改一下，谢谢

这个是很简单的问题，请自行修改代码，看红色代码，修改其位置即可，如

     If sheet(i,0).text = "姓    名" Then
            Dim ndr As DataRow = dt1.AddNew
            ndr("学号") = sheet(i,5).text
            ndr("姓名") = sheet(i,1).text
            msgbox(sheet(i+1,5).Text)

msgbox(sheet(i+4,2).Text)

大雪山

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2017/11/24 9:36:00 [只看该作者]

        If sheet(i,0).text = "姓    名" Then
            Dim ndr As DataRow = dt1.AddNew
            ndr("学号") = sheet(i,5).text
            ndr("姓名") = sheet(i,1).text
           ndr("身份证") = sheet(i,6).text
            ' msgbox(sheet(i+1,5).Text)
            'msgbox(sheet(i+4,2).Text)

身份证这个该怎么改，下面两行代码没实现