- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎么让excel导出有多层表头，统计，序号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78077)
-- 发布时间：2015/12/1 17:50:00
-- [求助]怎么让excel导出有多层表头，统计，序号
未导出：
此主题相关图片如下：qq图片20151201174415.png
已导出
此主题相关图片如下：qq截图20151201174802.png
如图 发现导出没有统计 和 多层表头，还有怎么可以在旁边添加序号列？
-- 发布时间：2015/12/1 17:56:00
--
用saveExcel导出
http://www.foxtable.com/help/topics/0559.htm
-- 发布时间：2015/12/1 18:12:00
-- 回复：（大红袍）用saveExcel导出 http://ww...
这样的话没有办法另存路径了啊？还有一些线条都没有用了？
-- 发布时间：2015/12/1 18:59:00
--
谁说没办法另存路径
Dim
dlg
As
New
SaveFileDialog
\'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls"
\'设置筛选器
If
dlg.ShowDialog = DialogResult.Ok
Then
\'如果用户单击了确定按钮
Tables("订单").SaveExcel(dlg.FileName, "订单") \'保存文件
End
If
-- 发布时间：2015/12/1 19:10:00
-- 回复：（大红袍）谁说没办法另存路径 Dim dl...
但是这样的话又不能合并表头了啊 跟我之前的导出就是一样了
-- 发布时间：2015/12/1 19:21:00
--
可以了 忘了之前还有定义 样式
-- 发布时间：2015/12/1 19:49:00
-- 回复：（大红袍）谁说没办法另存路径 Dim dl...
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？
-- 发布时间：2015/12/1 19:55:00
--
以下是引用vvfree在2015/12/1 19:49:00的发言：
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？
导出以后，打开excel用代码设置
http://www.foxtable.com/help/topics/1163.htm
-- 发布时间：2015/12/1 19:56:00
--
以下是引用vvfree在2015/12/1 19:49:00的发言：
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？
或者，你可以用excel报表来导出数据
http://www.foxtable.com/help/topics/2877.htm
-- 发布时间：2015/12/1 20:05:00
-- 回复：（大红袍）以下是引用vvfree在2015/12/1 19:49:...
Dim Book As New XLS.Book() \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Red
Style.BorderColorBottom = Color.Red
Style.BorderColorLeft = Color.Red
Style.BorderColorRight = Color.Red
For r As Integer = 1 To 5
For c As Integer =1 To 5
Sheet(r,c).Style = Style
Next
Next
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("Table1").SaveExcel(dlg.FileName, "Table1") \'保存文件
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
这样吗？没反应呢？ 还有按保存的时候不能覆盖保存？双击文件的时候可以