怪!VB导出数据EXCEL连续操作竟不能设置格式,该如何处理

怪!VB导出数据EXCEL连续操作竟不能设置格式
用VB导出数据到EXCEL,窗口第一次运行导出的数据格式(自定义字体,合并单元格)正常,第二次\第三次运行窗口进行导出时,竟不能按照自定义格式进行导出,请大哥们帮忙看看.代码如下:

private   sub   command3_click()
                                Dim   xlApp   As   Excel.Application
                                Dim   xlBook   As   Excel.Workbook
                                Dim   xlSheet   As   Excel.Worksheet
                                Set   xlApp   =   CreateObject( "Excel.Application ")

                                On   Error   Resume   Next
                                Set   xlBook   =   xlApp.Workbooks.add
                                Set   xlSheet   =   xlBook.Worksheets(1)
                                xlApp.Visible   =   False
                                xlSheet.Activate


                                If   Combo3.Text   =   "第一季度 "   And   Option2.Value   =   True   Then
                               
                                                '处理数据,填充Excel表
                                                xlSheet.Range(Cells(1,   1),   Cells(1,   9)).Merge     '合并单元格
                                                xlSheet.Cells(1,   1)   =   "资金发放明细表 "
                                                xlSheet.Range(Cells(1,   1),   Cells(1,   9)).Characters.Font.Name   =   "黑体 "       '设置标题为黑体,18号
                                                xlSheet.Range(Cells(1,   1),   Cells(1,   9)).Characters.Font.Size   =   18
                                       
                                                xlSheet.Rows.RowHeight   =   21
                                                xlSheet.Range(Cells(2,   1),   Cells(2,   256)).Characters.Font.Name   =   "宋体 "     '设置表头为宋体,10号,加粗