- 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)
-- 发布时间：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
--
不支持的，仅支持直接插入的图片