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

问题 用“学生”表中《学号》对“成绩”“ 成绩B”《课程》关联对比，将相同学号课程不同对比结果与成绩放入表成绩C中的公式

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

点击浏览该文件:数据1.table

创建查询表就可以：

2楼的公式中，如何添加导出成绩表中的照片？

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

点击浏览该文件:成绩.xls

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim dt1 As DataTable = DataTables("学生")
    Dim dt2 As DataTable = DataTables("成绩")
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
        Dim dic As new Dictionary(of Integer, object)
        For Each s As object In ws.Shapes
            Dim rng = s.TopLeftCell
            If dic.ContainsKey(rng.Row) = False Then
                dic.Add(rng.Row, s)
            Else
                dic(rng.Row) = s
            End If
        Next
       
        For n As Integer = 1 To rg.Rows.Count
            If ary(n,1) = "姓    名" Then
                Dim ndr As DataRow = dt1.AddNew
                ndr("学号") = ary(n,6)
                ndr("姓名") = ary(n,2)
                If dic.ContainsKey(n) Then
                    Dim name = ary(n, 6).trim & ".jpg"
                    dic(n).copy
                    Dim c = Ws.ChartObjects.Add(0,0,dic(n).width, dic(n).height)
                    c.chart.paste
                    c.chart.Export(projectPath & "attachments/" & name)
                   
                    ndr("第四列") = name
                End If
               
               
                For j As Integer = n+6 To rg.Rows.Count
                    If ary(j,1) > "" Then
                        Dim ncdr As DataRow = dt2.addnew
                        ncdr("学号") = ndr("学号")
                        ncdr("课程") = ary(j,1)
                        ncdr("学分") = ary(j,3)
                        ncdr("学分绩点") = ary(j,4)
                        ncdr("成绩") = ary(j,5)
                    Else
                        n = j
                        Exit For
                    End If
                Next
            End If
        Next
        MessageBox.Show("导入成功!","恭喜!")
        wb.saved = True
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        app.quit
    End try
End If

此主题相关图片如下：ki}acp{t_{0$hb_}l$oit.png

 

在你的项目那里，加入一个文件夹，命名为 attachments

 这个《学号》导入公式加相同《课程》字段如何改，麻烦老师给改一下，谢谢

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

点击浏览该文件:公式.txt

此主题相关图片如下：8`o$pwmnunshd%$nw2qkm7h.png

什么意思？没看懂

见对比公式 按钮

 

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

点击浏览该文件:修改.table

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

点击浏览该文件:修改成功.xls

没看懂你什么意思，截图说明你要做什么。