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