专家你好。
我是用按钮实现按照模版导出表。
但是结果都会在主表里多一行。好像应该要在模版里删除主表最后一列,但是子表不是要主表里面吗?
以下是按钮代码:
Dim Book As New XLS.Book(ProjectPath & "Attachments\测试项目.xls")
Dim fl As String = ProjectPath & "Reports\" & Date.Today() & ".xls"
Book.Build() '生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
以下是模版:
|
项目工程师 |
项目编号 |
供应商编码 |
申请时间 |
备注 |
项目进度异常描述 |
样品型号 |
额定电压 |
产品版本号 |
<End> |
<信息表> |
[项目工程师] |
[项目编号] |
[供应商编码] |
[申请时间] |
[备注] |
[项目进度异常描述] |
|
|
|
<ALL> |
<样品表> |
[信息表,项目工程师] |
[信息表,项目编号] |
[信息表,供应商编码] |
[信息表,申请时间] |
[信息表,备注] |
[信息表,项目进度异常描述] |
[样品型号] |
[额定电压] |
[产品版本号] |
|
<信息表> |
|
|
|
|
|
|
|
|
|
|
<End> |
<M> |
<M> |
<M> |
<M> |
<M> |
<M> |
|
|
|
|