Dim Book As New XLS.Book(ProjectPath & "Attachments\" & "各校学生胸卡模版.xls") '打开模板
Dim Sheet0 As XLS.Sheet = Book.Sheets("打校园卡")
Sheet0(0, 25).Value = "<end>"
Sheet0(1, 0).Value = "<兴学生名册,@3>"
Sheet0(1, 25).Value = "<all>"
Sheet0(4, 5).Value = "[学生_姓名]"
Sheet0(4, 13).Value = "[学生_姓名+1]"
Sheet0(4, 21).Value = "[学生_姓名+2]"
Sheet0(3, 5).Value = New XLS.Picture(GetImage( ProjectPath & "\学生照片\照片总库\323232201814024519" & ".jpg" ))
Sheet0(3, 5).Value = New XLS.Picture(GetImage( ProjectPath & "\学生照片\照片总库\" & "[身份号码]" & ".jpg" ))
Sheet0(8, 5).Value = "[第1家长_电话]"
Sheet0(8,13).Value = "[第1家长_电话+1]"
Sheet0(8,21).Value = "[第1家长_电话+2]"
Sheet0(11, 0).Value = "<兴学生名册>"
Sheet0(12, 0).Value = "<end>" '修改模板,加入信息
Dim fl As String = ProjectPath & "导出表\" & Vars("年度") & Vars("学期") & Vars("县市") & Vars("单位名称") & "学生胸卡.xls"
Book.Build() '生成细节区(此句出错)
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
遇到疑问：敬请老师赐教，感谢！
1、到了 执行 Book.Build() 就出错了
2、其中的 Sheet0(3, 5).Value 本准备写成 New XLS.Picture(GetImage( ProjectPath & "\学生照片\照片总库\" & "[身份号码]" & ".jpg" )) ，
只是其中黄色部分写法不对，临时写个实际身份号码执行了，我这里【身份号码】是表的一列，不知道用什么括号来写？
我想：实在不行我每次选中3行，用遍历的方式把三行的身份证号赋值给一个变量，用变量来表示照片的地址
加好友 
发短信
Post By：2023/3/3 21:21:00 [只看该作者]
