怎么样把数据导入到excel模板中

<pre name="code" class="vb">        xlsapp.Visible = False
        xlsapp.DisplayAlerts = False
        xlsWbookMod = xlsapp.Workbooks.Open(vstrModuleExcelPath)
        xlsWsheetMod = xlsWbookMod.Worksheets(sheetname)
        'テンプレートをコピーする
        xlsWbookMod.Worksheets.Copy()
        xlsWbook = xlsapp.Workbooks(2)
        xlsWsheet = xlsWbook.Worksheets(sheetname)
        'ページを作る
        Dim iPages As Integer = Fix(表の行数 / 記録条数)
        If 表の行数 Mod 記録条数 <> 0 Then
            iPages += 1
        End If
        For i = 2 To iPages
            xlsWsheetMod.Activate()
            xlsWsheetMod.Rows(行の選択の範囲).Select()
            xlsapp.Selection.copy()
            xlsWsheet.Activate()
            xlsWsheet.Rows(intExcelIndex.ToString & ":" & intExcelIndex.ToString).Select()
            xlsWsheet.Paste()
            intExcelIndex += 記録条数
        Next
        If iPages = 0 Then
            xlsWsheetMod.Rows(行の選択の範囲).Select()
            xlsapp.Selection.copy()
            xlsWsheet.Rows(intExcelIndex.ToString & ":" & intExcelIndex.ToString).Select()
            xlsWsheet.Paste()
        End If
        xlsapp.CutCopyMode = False
        iPages = Nothing