Ir ao conteúdo
  • Cadastre-se
Holocausto

Exportar dados em TXT

Recommended Posts

Olá pessoal estou precisando criar uma macro para exportar um intervalo de dados de um planilha para txt, fiz aqui mas não deu muito certo.

Ex: Os dados que serão exportados compreendem no intervalo (E6:S58).


Sub Macro1()
'
' Macro1 Macro

Range("E6:S58").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ChDir [COLOR="Red"]"C:\Users\Thiago\Desktop"[/COLOR]
ActiveWorkbook.SaveAs Filename:="C:\Users\Thiago\Desktop\Fechamento LF.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
Sheets("Fechamento").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Fechando").Select
MsgBox "Exportado!", , ".: A&A - Information"
End Sub

-O local que o arquivo será salvo teria que ser um local público.

-Não pode ficar aparecendo a msg para confirmar exclusão da planilha como fiz no código.

-Não modificar o formato da planilha ao salvar e fecha-lá.

Alguém tem alguma ideia de como posso fazer isto?

Obs:Não tenho muito sobre macros.

Compartilhar este post


Link para o post
Compartilhar em outros sites

:confused:

Olá Holocausto

Você quer copiar dados de uma planilha Excel e salvar estes dados em um arquivos texto?

ActiveWorkbook.SaveAs Filename:="C:\Users\Thiago\Desktop\Fechamento LF.txt" você esta salvando um arquivo texto ou um arquivo Excel?

Márcio

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×