设置EXCEL列宽

我又一段代码，打开一个EXCEL设置列宽，然后输入数据。然后我需要再打开一个新的EXCLE，设置列宽并输入数据。但我的问题是，同样的设置列宽语句，对于第二个打开的EXCLE就没有成功设置列宽，不知道为什么。

'下面声明变量等

Dim xlApp As Excel.Application                                  

    Dim xlBook As Excel.Workbook                                    

    Dim xlSheet As Excel.Worksheet                                  

    Dim dbs As Database, strsql As String, x As Integer
    Dim qdf As QueryDef
    Dim TableA As Variant, wks As Workspace

    Set wks = Workspaces(0)
    Set dbs = CurrentDb()
    Set xlApp = CreateObject("Excel.Application")        

    Set xlBook = xlApp.Workbooks.Add()
        xlApp.Visible = True    

'.......................其他设置数据表、变量、写入固定内容等。

                      With Worksheets(i).Columns("A")     '此段可以成功设置EXCLE列宽
                         .ColumnWidth = 6
                       End With
                       With Worksheets(i).Columns("B")
                         .ColumnWidth = 25
                       End With

..........................

   dbs.Close        '第一部分内容完成

'下面重新打开一个EXCEL表格

  Set wks = Workspaces(0)
    Set dbs = CurrentDb()
    Set xlApp = CreateObject("Excel.Application")         '创建Excel应用程序对象
    'Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add()
        xlApp.Visible = True                              '对象的可见性为“真”

...................

                       With Worksheets(i).Columns("K")   '这部分语句没有成功设置EXCLE列宽，不知道为什么？
                         .ColumnWidth = 10
                       End With
                       With Worksheets(i).Columns("B")
                         .ColumnWidth = 15
                       End With