如何将生成的xls文件显示在OLE中

llRow = 0
    Set xlBook = xlApp.Workbooks.Add()
    Set xlsheet = xlBook.Worksheets(1)
    Open lsFileName For Input As #1                
    Do While Not EOF(1)             
        Line Input #1, lsTemp             
        n = Split(lsTemp, " ")
        Debug.Print lsTemp
        llRow = llRow + 1
        ColNum = 0
        For llCol = 0 To UBound(n)
          If Len(Trim(n(llCol))) Then
            ColNum = ColNum + 1
            xlsheet.Cells(llRow, ColNum) = n(llCol)
          End If
        Next
    Loop
    Close #1
    xlBook.SaveAs lsFileName & ".xls"
    xlBook.Close (True)
    xlApp.Quit
    Set xlApp = Nothing像对上述程序进行些修改
在生成的新xls文件显示在OLE的excel表格中
请问该再添加写什么程序
请前辈指出