Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么让excel导出有多层表头，统计，序号


  共有2540人关注过本帖树形打印复制链接

主题：[求助]怎么让excel导出有多层表头，统计，序号
帅哥哟，离线，有人找我吗？
vvfree
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：448 积分：3436 威望：0 精华：0 注册：2015/3/4 15:55:00 		[求助]怎么让excel导出有多层表头，统计，序号  发帖心情 Post By：2015/12/1 17:50:00 [只看该作者]

未导出：

此主题相关图片如下：qq图片20151201174415.png
按此在新窗口浏览图片

已导出

此主题相关图片如下：qq截图20151201174802.png
按此在新窗口浏览图片
 

如图 发现导出没有统计 和 多层表头，还有怎么可以在旁边添加序号列？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/1 17:56:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
vvfree
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：448 积分：3436 威望：0 精华：0 注册：2015/3/4 15:55:00 		回复：（大红袍）用saveExcel导出 http://ww...  发帖心情 Post By：2015/12/1 18:12:00 [只看该作者]

这样的话没有办法另存路径了啊？还有一些线条都没有用了？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
vvfree
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：448 积分：3436 威望：0 精华：0 注册：2015/3/4 15:55:00 		回复：（大红袍）谁说没办法另存路径 Dim dl...  发帖心情 Post By：2015/12/1 19:10:00 [只看该作者]

但是这样的话又不能合并表头了啊 跟我之前的导出就是一样了

 回到顶部
帅哥哟，离线，有人找我吗？
vvfree
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：448 积分：3436 威望：0 精华：0 注册：2015/3/4 15:55:00 		  发帖心情 Post By：2015/12/1 19:21:00 [只看该作者]

可以了 忘了之前还有定义 样式

 回到顶部
帅哥哟，离线，有人找我吗？
vvfree
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：448 积分：3436 威望：0 精华：0 注册：2015/3/4 15:55:00 		回复：（大红袍）谁说没办法另存路径 Dim dl...  发帖心情 Post By：2015/12/1 19:49:00 [只看该作者]

导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/1 19:55:00 [只看该作者]

以下是引用vvfree在2015/12/1 19:49:00的发言：
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？

 

导出以后，打开excel用代码设置

 

http://www.foxtable.com/help/topics/1163.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/1 19:56:00 [只看该作者]

以下是引用vvfree在2015/12/1 19:49:00的发言：
导出的时候为什么我没有办法去定义背景颜色，还有网格线颜色？

 

或者，你可以用excel报表来导出数据

 

http://www.foxtable.com/help/topics/2877.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
vvfree
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：448 积分：3436 威望：0 精华：0 注册：2015/3/4 15:55:00 		回复：（大红袍）以下是引用vvfree在2015/12/1 19:49:...  发帖心情 Post By：2015/12/1 20:05:00 [只看该作者]

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

这样吗？没反应呢？ 还有按保存的时候不能覆盖保存？双击文件的时候可以
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询