| 以文本方式查看主题 - 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=74687) |
| -- 作者：machle -- 发布时间：2015/9/16 19:09:00 -- excel单元格自动换行显示不全 Excel单元格中已经自动换行了，但是显示的内容不完整，大多数是显示了一半。请问该怎么办？ 请问是我代码的问题，还是我的excel模板设置的问题？谢谢！！ 代码如下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\分析报告zsy.xls") \'打开模板 Dim fl As String = ProjectPath & "Reports\\分析报告zsy.xls" Book.Build() \'生成报表 Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) 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/9/16 19:34:00 -- excel自动行高，是有高度限制的，最高不能高过499 |
| -- 作者：machle -- 发布时间：2015/9/16 19:47:00 -- 回复：（大红袍）excel自动行高，是有高度限制的，最高... 那我该怎么办呢，我也不知道模板生成的单元格里有多少字，会有多高。 |
| -- 作者：大红袍 -- 发布时间：2015/9/16 19:48:00 -- excel一个单元格的高度不能高于499，这是excel自身的问题。 |
| -- 作者：machle -- 发布时间：2015/9/16 19:53:00 -- 回复：（machle）回复：（大红袍）excel自动行高，是有... 是不是只能再调整列宽了？模板好复杂……工作量也很大。唉 |
| -- 作者：大红袍 -- 发布时间：2015/9/16 19:58:00 -- 如果想显示全部，你把不要生成excel，比如你可以保存为pdf啊 |
| -- 作者：machle -- 发布时间：2015/9/16 20:12:00 -- 回复：（大红袍）如果想显示全部，你把不要生成excel，... 我刚试了一下，保存为PDF，也不行啊，格式要怎么改嘛？ 弄完和我之前excel显示的一样多。是我选的代码或者方法不对吗？
Dim Book
As New XLS.Book(ProjectPath &
"Attachments\\出库单.xls") |
| -- 作者：大红袍 -- 发布时间：2015/9/16 20:22:00 -- 我测试了一下，也不行。
无法突破限制的行高的限制的啊。 |
| -- 作者：machle -- 发布时间：2015/9/16 20:27:00 -- 回复：（大红袍）我测试了一下，也不行。?无... 那实在不行，我只能不用模板了。我再看看还有没有别的替代方式吧，若是您有更好的建议，也请告诉我，谢谢！！ [此贴子已经被作者于2015/9/16 20:27:23编辑过]
|