Foxtable(狐表)用户栏目专家坐堂 → EXCEL用了一个图片控件宏,怎么在狐表里就保存不了照片了


  共有3990人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
xhydxs
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:2238 威望:0 精华:0 注册:2016/10/29 14:17:00
EXCEL用了一个图片控件宏,怎么在狐表里就保存不了照片了  发帖心情 Post By:2020/8/11 11:40:00 [只看该作者]

图片点击可在新窗口打开查看
 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/11 14:04:00 [只看该作者]

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

 回到顶部