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

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

主题：[求助]将EXCEL导入公式如何写？