主题：sheet插入行请教

测试在sheet中插入行，但没成功，请问下面这个代码问题出在哪了？

Dim Book As New XLS.Book(ProjectPath & "Attachments\数据查询.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Book.Build() '生成细节区

For i As Integer = 0 To 6
Sheet.Rows.Insert(3) 
Next

Book.Save(ProjectPath & "Reports\数据查询.xls")   '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Reports\数据查询.xls"
Proc.Start()