以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一行一行的添加很费时间，如果一次性添加多行？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183998)
--  作者：xluoping
--  发布时间：2022/11/22 16:59:00
--  一行一行的添加很费时间，如果一次性添加多行？
 Dim app As New MSWord.Application
Try
    Dim doc = app.Documents.Open(ProjectPath & "Attachments\\报表模板\\检测报告.docx")  \'签名的文档
    Static p As TimeSpan
    Dim da As Date = Date.Now
    With Doc.Content.Tables(1)
        For dri As Integer = 0 To 300
            .Rows.Add() \'增加一行
        Next
    End With
    p = Date.Now - da
    output.show( p.TotalSeconds)
    app.Visible = True
Catch ex As Exception
End Tryext

例如上述，添加300行，会花费将近半分钟时间，如何不用for 循环，一次性添加300行
--  作者：有点蓝
--  发布时间：2022/11/22 17:08:00
--  
没有办法
--  作者：chen37280600
--  发布时间：2022/11/23 9:40:00
--  
试试第三方锐浪报表？听说支持word，性能也不错，论坛搜索 锐浪报表