none
Criar arquivo texto comVBA

Answers

  • Estranho, aí vai o código do site:

    Sub SalvarComoTXT()
      UserForm1.Show
    End Sub
    
    Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String)
    Dim NovoArquivoXLS As Workbook
    
      'Cria um novo arquivo excel
      Set NovoArquivoXLS = Application.Workbooks.Add
    
      'Copia a planilha para o novo arquivo criado
      mPlan.Copy Before:=NovoArquivoXLS.Sheets(1)
    
      'Salva o arquivo
      Application.DisplayAlerts = False
      NovoArquivoXLS.SaveAs mPathSave & "" & mPlan.Name & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
    
      NovoArquivoXLS.Close
      Set NovoArquivoXLS = Nothing
      Application.DisplayAlerts = True
    
      MsgBox "Novo arquivo salvo em: " & mPathSave & "" & mPlan.Name & ".txt", vbInformation
    
    End Sub
    
    

    No userform1:

    Private Sub CommandButton1_Click()
    
      'Chama a rotina para salvar como txt
      'Será salvo um novo arquivo txt com base na planilha seleciona na lista de opções
      Call ExecutarSalvarTXT(Sheets(lstPlanilhas.Text), ThisWorkbook.Path)
    
      Unload Me  'Fecha o form
    
    End Sub
    
    Private Sub UserForm_Initialize()
    
      'Chama a rotina para preencher a lista das planilha disponíveis no arquivo
      Call PreencheLista
    
    End Sub
    
    Private Sub PreencheLista()
    Dim sht As Worksheet
    
      lstPlanilhas.Clear
    
      For Each sht In ThisWorkbook.Worksheets
        If sht.Name <> "Principal" Then 'Não exibe a planilha Principal
          lstPlanilhas.AddItem sht.Name
        End If
      Next sht
    
    End Sub
    
    

    E o download da planilha:

    http://www.exceldoseujeito.com.br/imgs/artigos/2010/12/Exemplo_Salvar_XLS_como_TXT.xlsm

    Wednesday, January 12, 2011 12:54 PM

All replies

  • O seguinte tutorial pode ser útil: http://www.exceldoseujeito.com.br/2010/12/22/macro-para-salvar-uma-planilha-xls-em-txt/
    Tuesday, January 11, 2011 5:10 PM
  • O seguinte tutorial pode ser útil: http://www.exceldoseujeito.com.br/2010/12/22/macro-para-salvar-uma-planilha-xls-em-txt/


    Marlon,

    O link disponibilizado está dando erro. "Erro 404 - Página não encontrada"

    Tuesday, January 11, 2011 5:14 PM
  • Estranho, aí vai o código do site:

    Sub SalvarComoTXT()
      UserForm1.Show
    End Sub
    
    Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String)
    Dim NovoArquivoXLS As Workbook
    
      'Cria um novo arquivo excel
      Set NovoArquivoXLS = Application.Workbooks.Add
    
      'Copia a planilha para o novo arquivo criado
      mPlan.Copy Before:=NovoArquivoXLS.Sheets(1)
    
      'Salva o arquivo
      Application.DisplayAlerts = False
      NovoArquivoXLS.SaveAs mPathSave & "" & mPlan.Name & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
    
      NovoArquivoXLS.Close
      Set NovoArquivoXLS = Nothing
      Application.DisplayAlerts = True
    
      MsgBox "Novo arquivo salvo em: " & mPathSave & "" & mPlan.Name & ".txt", vbInformation
    
    End Sub
    
    

    No userform1:

    Private Sub CommandButton1_Click()
    
      'Chama a rotina para salvar como txt
      'Será salvo um novo arquivo txt com base na planilha seleciona na lista de opções
      Call ExecutarSalvarTXT(Sheets(lstPlanilhas.Text), ThisWorkbook.Path)
    
      Unload Me  'Fecha o form
    
    End Sub
    
    Private Sub UserForm_Initialize()
    
      'Chama a rotina para preencher a lista das planilha disponíveis no arquivo
      Call PreencheLista
    
    End Sub
    
    Private Sub PreencheLista()
    Dim sht As Worksheet
    
      lstPlanilhas.Clear
    
      For Each sht In ThisWorkbook.Worksheets
        If sht.Name <> "Principal" Then 'Não exibe a planilha Principal
          lstPlanilhas.AddItem sht.Name
        End If
      Next sht
    
    End Sub
    
    

    E o download da planilha:

    http://www.exceldoseujeito.com.br/imgs/artigos/2010/12/Exemplo_Salvar_XLS_como_TXT.xlsm

    Wednesday, January 12, 2011 12:54 PM