Boa tarde amigo,

Existe mais de uma forma para se fazer isso, mas acredito que o mais fácil seja você utilizar o método Open. Abaixo encaminho um exemplo:

Sub gravarTXT()
    Dim localGravacao As String
    Dim nomeArquivo As String
    Dim linhaGravar As String
    Dim ultLinha As Integer
    Dim ultColuna As Integer
    
    localGravacao = Environ("USERPROFILE") & "Desktop"
    nomeArquivo = "ArquivoExportado.txt"
    ultLinha = Sheets("Exportação").Range("A65000").End(xlUp).Row
    ultCol = Sheets("Exportação").Range("A1").End(xlToRight).Column
    
    'Abre o arquivo para gravação
    Open localGravacao & nomeArquivo For Output As #1
        For i = 1 To ultLinha
            For j = 1 To ultCol
                   'Concatena as colunas separando elas por ","
                   linhaGravar = linhaGravar & Sheets("Exportação").Cells(i, j).Value & ","
            Next j
            'Grava a linha no arquivo - As funções Left e Len são utilizadas para excluir a última virgula do texto
            Write #1, Left(linhaGravar, Len(linhaGravar) - 1)
            linhaGravar = ""
        Next i
    Close #1
End Sub

Olá Imonteiro

esse código VBA que me passou criou o arquivo na minha área de trabalho, entretanto não gerou as informações no arquivo TXT, o mesmo ficou em branco.

Att;

Olá vpeglow,

O código que passei leva em consideração que os dados estão em formato de base iniciando na célula "A1". Pode me informar como sua base está disposta no arquivo?

Att,

Bom dia Imonteiro

Segue em anexo o arquivo, creio que ficara mais fácil de visualizar, e começa na célula A1.

Alguém sabe um método para resolver isso?

A proposta do colega lmonteiro executa o que deseja.
Porem altere as linhas da ultima linha (ultLinha) e ultima coluna (ultCol,esta está buscando a ultima mesmo +16000)
talvez seja por isso que não viu resultado.
P.S.: Conforme regra do forum, os arquivos devem ser postados Compactados (Zip, 7z,Rar....)

Sub gravarTXT()
    Dim localGravacao As String
    Dim nomeArquivo As String
    Dim linhaGravar As String
    Dim ultLinha As Integer
    Dim ultColuna As Integer
    
    localGravacao = Environ("USERPROFILE") & "Desktop"
    nomeArquivo = "ArquivoExportado.txt"
    ultLinha = Sheets("Exportação").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    ultCol = Sheets("Exportação").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    
    'Abre o arquivo para gravação
    Open localGravacao & nomeArquivo For Output As #1
        For i = 1 To ultLinha
            For j = 1 To ultCol
                   'Concatena as colunas separando elas por ","
                   linhaGravar = linhaGravar & Sheets("Exportação").Cells(i, j).Value & ","
            Next j
            'Grava a linha no arquivo - As funções Left e Len são utilizadas para excluir a última virgula do texto
            Write #1, Left(linhaGravar, Len(linhaGravar) - 1)
            linhaGravar = ""
        Next i
    Close #1
End Sub

Boa tarde Reinaldo

o código funciona corretamente, porem esta gerando Aspas no inicio e no fim de cada linha conforme podemos ver na imagem abaixo.

Experimente substituir Write #1 por Print #1

Funcionou... muito obrigado