Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 de planilha para txt

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
MAZZETTO



Mensagens : 1
Data de inscrição : 19/03/2012

MensagemAssunto: de planilha para txt   Ter Mar 20, 2012 7:14 pm

amigos,

preciso de uma ajuda utilizo macro para transformar automaticamente um arquivo em TXT, mas minha dúvida é a seguinte : às vezes minha planilha contém 10 linhas, às vezes 50, outras 1000 linhas, como faço para automatizar ou mesmo informar na execução da geração do txt a composição de todas as linhas : supondo que nesta planilha tenha 500 linhas eu informar de A1 a A500 sem que eu tenha que estar alterando a macro

segue a macro que executo :
Sub XTo_txt()
' Author: Date: Contact:
' Exportando o conteúdo de uma planilha para um arquivo texto.

Dim nFile As String
Dim nSheet As String
Dim nExtension As String

Let nFile = "C:\jrichard.CI02"
Let nSheet = "CONCATENADO"
Let nExtension = "A1:A1900" - quero deixar esta parte para eu informar pois pode ser 10/20/30 linhas vai depender do movimento do mês
Open nFile For Output As #1

Sheets(nSheet).Select

For Each nOccurs In Range(nExtension)
Print #1, nOccurs
Next

Close #1

MsgBox "Exportado!",

Sheets(nSheet).Select
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: de planilha para txt   Ter Mar 20, 2012 10:24 pm

Boa tarde!!

Seja bem vindo!!

Já foi respondido em...http://www.planilhando.com.br/forum/viewtopic.php?f=16&t=3777


Código:
Sub XTo_txtMauro()
    ' Author: Date: Contact:
    ' Exportando o conteúdo de uma planilha para um arquivo texto.
   
    Dim nFile As String
    Dim nSheet As String
    Dim nExtension As String
   
        Dim sRange As Range
        Dim sRowInicio As Long
        Dim FinalRow As Long
   
        'Verifica a última linha preenchida
        FinalRow = Range("A65536").End(xlUp).Row
               
        'Define o Range Linha Inicial e Linha Final
        Set sRange = Range("A1" & ":A" & FinalRow)
   
    Let nFile = "C:\jrichard.CI02"
    Let nSheet = "CONCATENADO"
   
            'Let nExtension = "A1:A1900"
            Let nExtension = sRange
   
    Open nFile For Output As #1
   
    Sheets(nSheet).Select
   
    For Each nOccurs In Range(nExtension)
    Print #1, nOccurs
    Next
   
    Close #1
   
    MsgBox "Exportado!"
   
    Sheets(nSheet).Select
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
de planilha para txt
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Easy Registers 1.0
» [Novidade] AppCarousel exclusivo para 8500
» Coleção de Estilos Exclusivo para Photoshop
» Keep Talking - ICQ client para Bada OS
» Montagem comemorativa para a eleição do Tiririca

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: