| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 导出EXCEL保持单元格设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78777) |
| -- 作者：一笑 -- 发布时间：2015/12/16 22:48:00 -- 导出EXCEL保持单元格设置 使用Dim flg As New SaveExcelFlags flg.CellStyle = True 导出的EXCEL文档无法保留狐表中的合并单元格，而系统菜单中导出选项可实现，请问如何用代码实现？谢谢
|
| -- 作者：大红袍 -- 发布时间：2015/12/17 9:45:00 -- 呃，谁说没有，都有啊。
http://www.foxtable.com/help/topics/0559.htm
|
| -- 作者：一笑 -- 发布时间：2015/12/17 14:17:00 -- 看到了，合并单元格可以实现，但项目中设置了黑色网格线，和自动行高，导出EXCEL后不能保持，能否实现？谢谢 |
| -- 作者：大红袍 -- 发布时间：2015/12/17 16:13:00 -- 这些，不能匹配上的。
你只能导出后，用代码去设置各种样式
比如自动行高可以这样
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
\'Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
|
| -- 作者：一笑 -- 发布时间：2015/12/21 14:38:00 -- 我测试过了，自动调整行高不管用，麻烦测试一下，谢谢 Rg.EntireRow.AutoFit \'自动调整行高
|
| -- 作者：大红袍 -- 发布时间：2015/12/21 16:14:00 -- 加一句
Dim App As New MSExcel.Application |