主题：[求助] Sheet.Rows.Insert(hs)这条语句怎么会把模板弄成这样？

模板初始是这样的；

 上传例子，说明要想实现什么

就是要正常的插入一行，把最上面的图11-12行间能无限制的插入新行而格式不乱。现在是模板人工插入不乱，但是用hs=10;  Sheet.Rows.Insert(hs) 这个指令就变成下图这样了

例子做好了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:打印测试.zip

 要用vba做

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "合同模板.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("11:11") '以这个指定的单元格为基准
Rg.Insert(MSExcel.XlDirection.xlDown)

app.DisplayAlerts = False
wb.saveas(ProjectPath & "合同.xls")
App.quit

Dim Proc As New Process
Proc.File = ProjectPath & "合同.xls"
Proc.Start()

 

http://www.foxtable.com/help/topics/2121.htm

 

谢谢！非常感谢

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "合同模板.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("11:11") '以这个指定的单元格为基准
Rg.Insert(MSExcel.XlDirection.xlDown)

app.DisplayAlerts = False
wb.saveas(ProjectPath & "合同.xls")
App.quit

Dim Proc As New Process
Proc.File = ProjectPath & "合同.xls"
Proc.Start()

在实际操作中发现 Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "合同模板.xls") 这条语句打开的合同模板.xls文件在App.quit时并没有关闭，导致在下次使用时出现异常，应如何处理？谢谢

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "合同模板.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.Range("11:11") '以这个指定的单元格为基准
    Rg.Insert(MSExcel.XlDirection.xlDown)
   
    app.DisplayAlerts = False
    wb.saveas(ProjectPath & "合同.xls")
catch ex As exception
    msgbox(ex.Message)
finally
    App.quit
End try

Dim Proc As New Process
Proc.File = ProjectPath & "合同.xls"
Proc.Start()

谢谢