VBA – Exportar Planilha para TXT

Nascido das mãos do colega Rafael do nosso fórum, o código abaixo realiza a exportação de uma planilha ativa no Excel para um arquivo Texto:

Sub Exportar()
    Application.DisplayAlerts = False
 
    template_file = ActiveWorkbook.FullName
 
    fileSaveName = Application.GetSaveAsFilename( _
                   InitialFileName:="C:\users" + _
                                    VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _
                   fileFilter:="Text Files (*.txt), *.txt")
 
    If fileSaveName = False Then
        Exit Sub
    End If
 
    'cria uma cópia da pasta de trabalho atual da planilha atual
    Dim newBook As Workbook
    Dim plan As Worksheet
    Set newBook = Workbooks.Add
 
    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)
 
    'exclui as demais planilhas
    For Each plan In newBook.Sheets
        If plan.Name <> ActiveSheet.Name Then
            newBook.Worksheets(plan.Index).Delete
        End If
    Next
 
    newBook.SaveAs Filename:= _
                          fileSaveName, FileFormat:=xlTextWindows, _
                          CreateBackup:=False
 
    'fecha a pasta de trabalho gerada
    newBook.Close SaveChanges:=True
    Set newBook = Nothing
 
    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"
 
End Sub

A parte bacana deste código é não necessidade de utilizar ou precisar conhecer de manipulação de arquivos, uma vez que estamos utilizando o “Salvar Como” arquivo texto. Fica bem mais fácil de customizar!

O link original do código do fórum pode ser visto aqui:

https://www.tomasvasquez.com.br/forum/viewtopic.php?t=1651&p=8162

Bom proveito!

Comentários

comentários

3 thoughts on “VBA – Exportar Planilha para TXT”

  1. Oi o código serviu como uma luva, porém como eu faria para que ele não se sobreposse ao arquivo já existente?

    queria que ele verificasse que existe um arquivo com aquele nome e somasse (1) na frente em vez de sobrepor o nome

    exemplo:

    se no C:/ o arquivo “users22052012” já existir
    salvar como “users22052012(1)”

    agradeço desde já

  2. Olá, Companheiro, era o start que eu estava procurando. Ficarei assíduo neste teu universo online. Vou começar a “estudar” o VB, principalmente para manusear Notas Fiscais Eletrônicas. Primeiro, quero agradecer por tantos informes bacanas, com direito a fórum e tudo o mais. Grato…

Comments are closed.