主题：EXCEL用了一个图片控件宏，怎么在狐表里就保存不了照片了

 MainTable = Tables("报名表")
DataTables("报名表").DeleteFor("")
For Each file As String In filesys .GetFiles("D:\Data")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("报名表").AddNew
        dr("层次学科") = sheet(9,2).text
        dr("岗位代码") = sheet(9,3).Text
        dr("姓名") = sheet(2,4).Text
        dr("身份证号") = sheet(2,9).text
        dr("年龄") = sheet(2,15).text
        dr("参加工作时间") = sheet(9,3).text
        dr("农村工作年限") = sheet(9,4).text
        dr("编制所在单位") = sheet(9,5).text
        dr("现单位在编在岗工作年限") = sheet(9,6).text
        dr("第一学历专业") = sheet(9,6).text
        dr("最高学历专业") = sheet(9,8).text     
        dr("教师资格种类学科") = sheet(9,9).text
        dr("任教层次学科") = sheet(9,10).text
        dr("现专业技术等级") = sheet(9,11).text
        dr("年度学期") = sheet(9,12).text
        dr("层次科目") = sheet(9,13).text
        dr("何种考试及名次") = sheet(9,14).text
        dr("权重名次是否过半") = sheet(9,15).text
        dr("考核单位2017年") = sheet(9,16).text       
        dr("年度考核结论2017年") = sheet(9,17).text
        dr("考核单位2018年") = sheet(9,18).text
        dr("年度考核结论2018年") = sheet(9,19).text
        dr("考核单位2019年") = sheet(9,20).text       
        dr("年度考核结论2019年") = sheet(9,21).text
        dr("年度考核加分") = sheet(9,22).text
        dr("教学成绩加分") = sheet(9,23).text
        dr("现场赛课加分") = sheet(9,24).text
        dr("联系电话") = sheet(2,18).text
        Dim fl As String = ProjectPath & "Attachments\" & dr("身份证号") & ".jpg"
        If Sheet(2,25).SaveImage(fl) Then '如果照片保存成功
            dr("照片") = fileSys.GetName(fl)
        End If
    End If
Next
此主题相关图片如下：}lr_n`regq0y4e5t4%o1ln.png

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

点击浏览该文件:data.rar

不支持的，仅支持直接插入的图片