Foxtable(狐表)用户栏目专家坐堂 → EXCEL模板打印


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

主题:EXCEL模板打印

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107230 积分:545405 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/4 8:32:00 [显示全部帖子]

模板文件发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107230 积分:545405 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/4 14:04:00 [显示全部帖子]

EXCEL表生成后,使用代码把空白行删除

……
Dim book As new XLS.Book(projectpath & "attachments\COA.xlsx")
Dim fl As String = projectpath & "reports\COAtest.xlsx"
book.build()
Dim Sheet As XLS.Sheet = Book.Sheets(0) 
For n As Integer =  19 To 11 Step -1
    If Sheet(n,1).Value = "" Then
        Sheet.Rows.RemoveAt(n)
    End If
Next
book.save(fl)

 回到顶部