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


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

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


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

未导出：

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

已导出

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

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


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

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

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


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

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

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


加好友 发短信
等级：一尾狐 帖子：450 积分：3481 威望：0 精华：0 注册：2015/3/4 15:55:00 		  发帖心情 Post By：2015/12/1 19:21:00 [显示全部帖子]

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

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


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

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

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


加好友 发短信
等级：一尾狐 帖子：450 积分：3481 威望：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

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