none
Copiar linhas ou intervalo de células. RRS feed

  • Pergunta

  • Olá

    Preciso copiar varias partes do meu arquivo que será definido por data inicial e final e copia=las e salva las em arquivo txt com o nome do mês e anos selecionados como inicial. alguém pode me ajudar a montar um código para executar este trabalho?

    Obrigado!

    sexta-feira, 25 de julho de 2014 21:03

Todas as Respostas

  • Crie um arquivo texto.txt na unidade C.

    Acrescente alguns dados na plan1.

    Depois faça um teste com o código a seguir:

    Sub arquivoTXT()
    
    Dim iArq As Long
    
    iArq = FreeFile
    
    Open "C:\texto.txt" For Output As iArq
    
    For Each cell In Sheets(1).UsedRange.Cells
    
    If cell.Text <> "" Then
    
    Print #iArq, cell.Text
    
    End If
    
    Next cell
    
    Close #iArq
    
    End Sub


    sábado, 26 de julho de 2014 23:11