以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] Sheet.Rows.Insert(hs)这条语句怎么会把模板弄成这样？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57159)
--  作者：新福星
--  发布时间：2014/9/19 12:04:00
--  [求助] Sheet.Rows.Insert(hs)这条语句怎么会把模板弄成这样？
模板初始是这样的；

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140919120013.jpg
图片点击可在新窗口打开查看 

为了增加明细的行数，使用了 hs=10;  Sheet.Rows.Insert(hs) 就这条语句就把模板变样了，见下图

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140919120201.jpg
图片点击可在新窗口打开查看
怎么会这样？如何解决？谢谢
--  作者：有点甜
--  发布时间：2014/9/19 12:06:00
--  
 上传例子，说明要想实现什么
--  作者：新福星
--  发布时间：2014/9/19 12:10:00
--  
就是要正常的插入一行，把最上面的图11-12行间能无限制的插入新行而格式不乱。现在是模板人工插入不乱，但是用hs=10;  Sheet.Rows.Insert(hs) 这个指令就变成下图这样了
--  作者：新福星
--  发布时间：2014/9/19 13:47:00
--  
例子做好了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:打印测试.zip

又录了一个效果演示；前半部是人工插入行演示，是正常的，插入多少行格式都保持不乱；后半部是用程序Sheet.Rows.Insert(hs)插入一行的结果，也就是1楼的后一张图片。求老师查找原因？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:插入行演示.zip
--  作者：有点甜
--  发布时间：2014/9/19 14:26:00
--  

 要用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

 
--  作者：新福星
--  发布时间：2014/9/19 14:36:00
--  
谢谢！非常感谢
--  作者：新福星
--  发布时间：2014/10/8 7:22:00
--  

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时并没有关闭，导致在下次使用时出现异常，应如何处理？谢谢
--  作者：有点甜
--  发布时间：2014/10/8 9:05:00
--  

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()
--  作者：新福星
--  发布时间：2014/10/8 11:27:00
--  
谢谢