Dim objApp As Object: Set objApp = CreateObject("Excel.Application")
    Dim objBook As Object: Set objBook = objApp.Workbooks.Open("Excel名称")
    Dim objSheet As Object: Set objSheet = objBook.Sheets(1)
	objSheet.Activate
	objSheet.rows(3).Resize(10).Insert
	objBook.Close Savechanges:=True
	Set objSheet = Nothing
    Set objBook = Nothing
    Set objApp = Nothing

说明：在第3行插入10行