主题：[求助]Excel模板新插入行如何保留样式？

Excel模板中有大量合并单元格。

用下面程序，如果表记录大于模板预留行数，将自动加入行。

现在在加行时，原模板合并单元格的样式就全部丢失了。复制出来的原来合并的全部拆分了。

希望新增行能够和原来的格式一致，怎么修改？谢谢！

 FileSys.CopyFile(wjm,File_Name,True)       
        try
            If FileIsOpened(File_Name)= False Then
                wb = App.WorkBooks.Open(File_Name)
            Else
                wb = App.WorkBooks(wjm)
            End If
            ws = Wb.WorkSheets("任务单")
            gdhs=3
            bhs= Tables("任务信息").Rows.Count
            cw=bhs-gdhs
              If cw>0 Then
                rg= Ws.Range("6:6") '以这个指定的单元格为基准
                             For i As Integer=1 To cw
                    Rg.Insert(MSExcel.XlDirection.xlDown)
                Next
            Else
                cw=0
            End If
            App.DisplayAlerts = False
            wb.saveas(File_name)
            App.DisplayAlerts = True
        catch ex As exception
            msgbox(ex.Message)
        finally
            App.quit
        End try
              Do
            If FileIsOpened(File_name)= False Then Exit Do
        Loop

按上述方法改后，先期可以打印正确打印3-5张。

之后就出现下图告警了。怎么解？谢谢

此主题相关图片如下：qq图片20170829104910.png