以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXCEL用了一个图片控件宏,怎么在狐表里就保存不了照片了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153451)

--  作者:xhydxs
--  发布时间:2020/8/11 11:40:00
--  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

[此贴子已经被作者于2020/8/11 12:12:36编辑过]

--  作者:有点蓝
--  发布时间:2020/8/11 14:04:00
--  
不支持的,仅支持直接插入的图片