Notifications

Clear all

VBA remover espaços em branco

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

13 Posts

4 Usuários

0 Reactions

2,460 Visualizações

RSS

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Prezados,

Por gentileza, alguém poderia contribuir com o código abaixo? O código exporta os dados para txt, porém ele não remove os espaços em branco.

imagem anexa.

 Application.DisplayAlerts = False
 
    template_file = ActiveWorkbook.FullName
 
    fileSaveName = Application.GetSaveAsFilename( _
                   InitialFileName:="C:" + _
                                    VBA.Strings.Format("") + ".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"
 

muito obrigado pela atenção e ajuda mais uma vez :)

Postado : 27/04/2018 11:52 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

O código a seguir serve para tirar os espaços das células da planilha.
Pode ser que executar essa macro antes de exportar, resolva.

Option Explicit

Sub TESTE()

Dim CL As Object

Dim INTERVALO As Range


Set INTERVALO = Plan1.UsedRange

For Each CL In INTERVALO

CL.Value = Replace(CL.Value, " ", "", 1)

Next CL



End Sub

Postado : 27/04/2018 9:24 pm

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

olá, então...

esse é o único código que eu tenho

faça um teste ai.

insira alguns dados em uma planilha e rode o meu código, ele vai exportar o conteúdo para txt.

Eu só uso esse código para exportar, não tenho mais nenhum.

Postado : 28/04/2018 6:16 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

............

Postado : 28/04/2018 6:48 am

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Olá, bom dia!

Eu fiz um teste com o código.

Aqui continua gerando com espaços entre as informações Você conseguiu gerar sem os espaços ai ???

Em anexo, segue a imagem do processo realizado.

Muito obrigado!

Postado : 30/04/2018 5:21 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Anexos

Postado : 30/04/2018 12:23 pm

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Olá, agradeço pela sua colaboração em tentar resolver essa questão, muito obrigado! Eu tentei usar esse novo código no meu simples exemplo, porém mesmo assim o vba continua gerando um espaço em branco no txt ( o arquivo do excel não tem espaços, você pode observar nessa nova imagem que eu estou enviando) O que será que está ocorrendo?

Postado : 30/04/2018 12:32 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Anexo

Postado : 30/04/2018 12:41 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Se ao inves de imagem do ocorrido, disponibilizar seu modelo (que gera com espaço) ficara mais simples verificar/propor uma solução.
Sua rotina inicial "apenas" copia uma planilha e depois a salve em formato texto, assim o arquivo resultante deve ser uma imagem dos dados de sua planilha,nada mais ecriado,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 30/04/2018 1:02 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

ANEXO

Postado : 30/04/2018 1:03 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Não é seu modelo Klarc, que me parece um bom paliativo, mas sim do JNextel, pois dele vi apenas imagens jpg

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 30/04/2018 1:10 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Só pra comentar, não são caracteres espaço mas sim caracteres tabulação (vbTab) que estão entre as colunas. Se vc copiar o arquivo txt e colar no Word, ligando o Mostrar Tudo ("pi") fica mais claro.