Dim Book As New XLS.Book(ProjectPath & "Attachments\\历史库员工信息表.xls")
Dim r As Row = CurrentTable.current
r("学习简历") = r("学习简历").Replace(chr(10), "").replace(chr(13), vbcrlf)
r("家庭情况") = r("家庭情况").Replace(chr(10), "").replace(chr(13), vbcrlf)
r("工作简历") = r("工作简历").Replace(chr(10), "").replace(chr(13), vbcrlf)
r("职业规划") = r("职业规划").Replace(chr(10), "").replace(chr(13), vbcrlf)
CurrentTable.save()
Dim fl As String = ProjectPath & "Reports\\历史库员工信息表01.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()