Tenho esse codigo que gera um txt, preciso gera um xls dele.

Olá pessoalTenho esse código que gera um arquivo txt e faz uma consulta no access e grava os dados no arquivo.Acontece que os dados veem desorganizados e mesmo mudando no codigo de txt para xls ele não vem da maneira que gostaria.Private Sub TESTE()Dim sArquivoLog As StringDim Rec As Recordset sArquivoLog = App.Path & "TESTE" & Format(Now, "ddMMyyyy hhmmss") & ".txt" Open sArquivoLog For Append As 1 Set connAccess = CreateObject("ADODB.Connection") connAccess.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\web\PD 15804\teste oracle\bonif para teste.mdb" & ";PWD=manager" connAccess.Open Set Rec = connAccess.Execute(" SELECT DtRev01_Carteira_Data_Revenue.CNPJCliente, DtRev01_Carteira_Data_Revenue.CNPJ_RAIZ, " _ & " DtRev01_Carteira_Data_Revenue.NomeCliente,DtRev01_Carteira_Data_Revenue.NomeGrupCliente , " _ & " DtRev01_Carteira_Data_Revenue.CidadeFuncionario, DtRev01_Carteira_Data_Revenue.RegiaoFuncionario, " _ & " DtRev01_Carteira_Data_Revenue.DescricaoBU, DtRev01_Carteira_Data_Revenue.MercadoFuncionario, " _ & " DtRev01_Carteira_Data_Revenue.Grupo_Segmento, DtRev01_Carteira_Data_Revenue.Segmento, " _ & " DtRev01_Carteira_Data_Revenue.NomeFuncionario, DtRev01_Carteira_Data_Revenue.MatriculaFuncionário, " _ & " Tab_MesBase.MesBase " _ & " From DtRev01_Carteira_Data_Revenue " _ & " INNER JOIN Tab_MesBase " _ & " ON DtRev01_Carteira_Data_Revenue.MesBaseCliente = Tab_MesBase.CodigoMesBase ") Print #1, "CNPJ Cliente" & Chr(9) & "CNPJ_RAIZ" & Chr(9) & "Razão Social" & Chr(9) & "Nome Grupo Cliente" & Chr(9) & Chr(9) & Chr(9) & "Cidade" & Chr(9) & Chr(9) & "Região" & Chr(9) & "BU Resultado" & Chr(9) & "Mercado" & Chr(9) & "Grupo_Segmento" & Chr(9) & "Segmento" & Chr(9) & "Nome" & Chr(9) & "Matrícula" & Chr(9) & "Mês Base" Do While Not Rec.EOF Set RecII = connAccess.Execute("SELECT Tab_Localidade.Cidade FROM Tab_Localidade where CodigoLocalidade = " & Rec.Fields![CidadeFuncionario]) If Not RecII.EOF Then Cidade = RecII.Fields![Cidade] End If Set RecII = connAccess.Execute("SELECT Tab_Regiao.DescricaoRegiao FROM Tab_Regiao where CodigoRegiao = " & Rec.Fields![RegiaoFuncionario]) If Not RecII.EOF Then Regiao = RecII.Fields![DescricaoRegiao] End If Set RecII = connAccess.Execute("SELECT Tab_BU.DescricaoBU FROM Tab_BU where CodigoBU = " & Rec.Fields![DescricaoBU]) If Not RecII.EOF Then BU = RecII.Fields![DescricaoBU] End If Set RecII = connAccess.Execute("SELECT Tab_Mercado.DescricaoMercado FROM Tab_Mercado where CodigoMercado = " & Rec.Fields![MercadoFuncionario]) If Not RecII.EOF Then Mercado = RecII.Fields![DescricaoMercado] End If Print #1, Format(Rec.Fields![CNPJCliente], "00000000000000") & Chr(9) & Rec.Fields![CNPJ_RAIZ] & Chr(9) & Rec.Fields![NomeCliente] & Chr(9) & Rec.Fields![NomeGrupoCliente] & Chr(9) & Cidade & Chr(9) & Regiao & Chr(9) & BU & Chr(9) & Mercado & Chr(9) & Rec.Fields![Grupo_Segmento] & Chr(9) & Rec.Fields![segmento] & Chr(9) & Rec.Fields![NomeFuncionario] & Chr(9) & Rec.Fields![MatriculaFuncionário] & Chr(9) & Rec.Fields![MesBase] Rec.MoveNext Loop Close #1 End SubEntão o ele puxa os dados que preciso so quero colocar em uma formação correta devido ao tamanho dos dados serem diferentes no txt ele vem dessa formaRazão Social Nome Grupo Cliente Cidade Região BU Resultado MercadoBANCO DO BRASIL BANCO DO BRASIL BRASILIA CENTRO-OESTE CORPORATE CANAIS-CWBANCO DO BRASIL BANCO DO BRASIL BRASILIA CENTRO-OESTE CORPORATE CANAIS-CWANDRE PUCCINELLI ANDRE PUCCINELLI CAMPO GRANDE CENTRO-OESTE CORPORATE MIDDLE-CWsendo que o que preciso é desta forma aqui, mas no excelRazão Social Nome Grupo Cliente Cidade Região BU Resultado MercadoBANCO DO BRASIL BANCO DO BRASIL BRASILIA CENTRO-OESTE CORPORATE CANAIS-CWBANCO DO BRASIL BANCO DO BRASIL BRASILIA CENTRO-OESTE CORPORATE CANAIS-CWANDRE PUCCINELLI ANDRE PUCCINELLI CAMPO GRANDE CENTRO-OESTE CORPORATE MIDDLE-CWSe alguem quiser posso mandar o arquivo no excel de como tem que ser e a maneira que ele ta gerando.Se alguem puder me ajudar fico muito grato