主题：如何控制excel克隆一行

    Dim App As New MSExcel.Application

    Dim Wb As  MSExcel.WorkBook = App.WorkBooks.Open(lj)

    Dim Ws As  MSExcel.WorkSheet = Wb.WorkSheets(1)

        

    App.ScreenUpdating = False '禁止刷新

    App.DisplayAlerts = False  '禁止报警

    

    '分页

    For p As Integer = 1 To math.Ceiling(tb.Count /( fl*prs)) - 1  'p分页

        Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1)) '复制模板及总表数据       

    Next