- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导出命名问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69955)
-- 发布时间：2015/6/13 14:38:00
-- 导出命名问题
Dim ex As New Exporter
Dim a As String = e.Form.Controls("ComboBox2").Text
ex.SourceTableName = "过机已对单" \'指定导出表
ex.FilePath = "E:\\工作文件\\订单\\过机已对单\\" & Format(Date.Now, "MM-dd") & a & ".xls" \'指定目标文件
ex.Fields = "货品代码,货品名称,订货数量,订货金额,销售数量,销售金额,差异数量,差异金额,库存数量"
ex.Format = "Excel" \'导出格式为Excel
ex.Export()
这段代码该怎么改 ,
-- 发布时间：2015/6/13 14:39:00
--
请问出现什么问题? 你要实现什么效果?
-- 发布时间：2015/6/13 14:42:00
--
导出来的文件名是6-13 想要的是6-13+控件ComboBox2 的Text
-- 发布时间：2015/6/13 14:58:00
--
a是空吧
-- 发布时间：2015/6/13 15:47:00
--
现在导出名称可以了,就是导出后的字体变小了,也没有合计行
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("过机已对单").SaveExcel(dlg.FileName, "过机已对单") \'保存文件
End If
用这个代码导出的字体一样 也有合计行,就是每次都要输入文件名才能导出 有没有其他更好的方法解决呢
-- 发布时间：2015/6/13 15:51:00
--
要设置保存样式
SaveExcelFlags类型的属性包括：
CellStyle： 是否保存单元格样式，默认为False
RowNumber： 是否包括行号列，默认为False
MergedRanges：是否保存合并模式，默认为True
VisibleOnly： 是否只保存可见列，默认为True
-- 发布时间：2015/6/13 16:03:00
--
可以了,
