[求助]导出的EXCEL表的格式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt As Table = Tables("凭证")

Dim nms() As String = {"凭证ID", "会计年", "会计期间", "制单日期", "凭证类别", "凭证号", "制单人", "所附单据数", "备注1", "备注2", "科目编码", "摘要", "结算方式编码", "piao据号", "piao据日期", "币种名称", "汇率", "单价", "借方数量", "贷方数量", "原币借方", "原币贷方", "借方金额", "贷方金额", "部门编码", "职员编码", "客户编码", "供应商编码", "项目大类编码", "项目编码", "业务员", "自定义项1", "自定义项2", "自定义项3", "自定义项4", "自定义项5", "自定义项6", "自定义项7", "自定义项8", "自定义项9", "自定义项10", "自定义项11", "自定义项12", "自定义项13", "自定义项14", "自定义项15", "自定义项16", "现金流量项目", "现金流量借方金额", "现金流量贷方金额"} '要导出的列名

Dim caps() As String = {"凭证ID", "会计年", "会计期间", "制单日期", "凭证类别", "凭证号", "制单人", "所附单据数", "备注1", "备注2", "科目编码", "摘要", "结算方式编码", "piao据号", "piao据日期", "币种名称", "汇率", "单价", "借方数量", "贷方数量", "原币借方", "原币贷方", "借方金额", "贷方金额", "部门编码", "职员编码", "客户编码", "供应商编码", "项目大类编码", "项目编码", "业务员", "自定义项1", "自定义项2", "自定义项3", "自定义项4", "自定义项5", "自定义项6", "自定义项7", "自定义项8", "自定义项9", "自定义项10", "自定义项11", "自定义项12", "自定义项13", "自定义项14", "自定义项15", "自定义项16", "现金流量项目", "现金流量借方金额", "现金流量贷方金额"} '对应的列标题

Dim szs() As Integer = {130, 170, 140, 140, 140, 140, 140, 0, 0, 0, 140, 500, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 140, 140, 140, 0, 300, 0, 100, 140, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} '对应的列宽

Dim Book As New XLS.Book '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim st As XLS.Style = Book.NewStyle '日期列的显示格式

st.Format = "yyyy-MM-dd"

For c As Integer = 0 To nms.length - 1

Sheet(0, c).Value = caps(c) '指定列标题

Sheet.Cols(c).Width = szs(c) '指定列宽

If dt.Cols(nms(c)).IsDate Then '如果是日期列

Sheet.Cols(c).Style = st '设置显示格式

End If

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

For c As Integer = 0 To nms.length - 1

Sheet(r + 1, c).Value = dt.rows(r)(nms(c))

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter = "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

Book.Save(dlg.FileName)

Dim Proc As New Process

Proc.File = dlg.FileName

Proc.Start()

End If

通过以上代码导出的EXECEL表，如何让它的字号为9，

"凭证ID", "会计年", "会计期间", "制单日期", "凭证类别", "凭证号", "制单人"等字段居中

借方金额和贷方金额两列导出来是0的，如何让其变为空值

麻烦指导一下。

感谢

主题：[求助]导出的EXCEL表的格式问题