TextToColumns - объект не поддерживает это свойство или метод

Question

Я экспортирую набор записей в Excel, а затем пытаюсь отформатировать данные с помощью TextToColumns. Набор записей копируется в Excel, но когда вызывается TextToColumns, я получаю ошибку «Объект не поддерживает это свойство или метод».

    Dim rsSQL As DAO.Recordset
    Dim qdf As DAO.QueryDef
    Dim xlApp As Object

    Set rsSQL = qdf.OpenRecordset()
    Set xlApp = CreateObject("Excel.Application")
    With xlApp
        .Visible = True
        .Workbooks.Add
        .Sheets("Sheet1").Select
        .activesheet.Name = sheetName
        .activesheet.Range("A2").CopyFromRecordset rsSQL

        .activesheet.Range("T:T").TextToColumns _
                DataType:=.xlDelimited, TextQualifier:=.xlDoubleQuote, ConsecutiveDelimiter:=False, _
                Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
                TrailingMinusNumbers:=True
     End With

Я пробовал другие функции Excel, такие как Вставить, и я также получаю то же самое ошибка.