- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎么把excel报表最末尾的空白行去掉？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119848)
-- 发布时间：2018/6/2 7:13:00
-- 怎么把excel报表最末尾的空白行去掉？
此主题相关图片如下：1.png
-- 发布时间：2018/6/2 8:59:00
--
如果是通过模板生成的，先对表格筛选，去掉空行再输出报表
-- 发布时间：2018/6/2 9:42:00
--
是模板生成的，就是最后那页有，前面的都没有，我设计了固定行数了，怎么控制最后一页不固定行数？现在把合计最下面的部分变成新一页了。太难看了
[此贴子已经被作者于2018/6/2 9:45:56编辑过]
-- 发布时间：2018/6/2 10:01:00
--
类似,放到命令窗口或者按钮执行
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = Sheet.Rows.Count -1 To 1 Step -1
If Sheet(n,1).Value = "" AndAlso Sheet(n,2).Value = "" AndAlso Sheet(n,3).Value = "" AndAlso Sheet(n,4).Value = "" AndAlso Sheet(n,5).Value = ""
Sheet.Rows.RemoveAt(n)
else
return ""
End If
Next
-- 发布时间：2018/6/2 10:40:00
--
以放到报表事件里吗
-- 发布时间：2018/6/2 11:16:00
--
放到命令窗口或者按钮执行