如何将MSFlexGrid控件内容保存到已有的Excel文件中

以下代码只能让内容保存到一个新建的Excel文件中，并不能保存到已有的Excel中，该怎么办呢！求解

Dim xlExcel As Excel.Application '定义excel类
    Dim xlbook As Excel.Workbook   '定义工作簿类
    Dim xlsheet As Excel.Worksheet '定义工作表类
    
    Set xlExcel = CreateObject("excel.application")   '创建excel应用类
    Set xlbook = xlExcel.Workbooks.Add                '打开ex1cel工作簿文件
    Set xlsheet = xlbook.Worksheets("sheet1")       '打开excel工作表
    
    '将数据导入excel表中
    
    '行循环
    For i = 0 To MSFlexGrid1.Rows - 1
    '列循环
    For j = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.Row = i
        MSFlexGrid1.Col = j
        '保存在excel中
        xlbook.Worksheets("sheet1").Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j)
    Next j
    Next i
 xlbook.SaveAs App.Path & "\测试1.xlsx"
 xlExcel.Visible = True                            '设置excel对象可见
 
  xlbook.Close (False) '关闭excel工作簿
  'xlSheet.Close (False)
  Set xlsheet = Nothing '释放工作表对象
  Set xlbook = Nothing '释放工作簿对象
  xlExcel.Quit '结束EXCEL对象
  Set xlExcel = Nothing '释放excel对象