Bom dia rfs

Seja bem-vindo ao fórum!

Você não obteve resposta até agora porque postou no local errado. Aqui, ( como o próprio título já diz) é exclusivo para a apresentação dos novos usuários do fórum.

Movi teu tópico para o fórum VBA & Macros.

No início vou deixar o tópico sendo mostrado nos 2 fóruns para você se localizar.

At.te

Patropi - Moderador

Poderia mandar um exemplo da planilha excel, formatada da maneira que deseja/precisa?

Patropi - Moderador

Obrigado..e Desculpe..

Reinaldo boa noite! Segue modelo em excel..

Experimente o cadogo

Sub Importa()
Dim lLinha As Long, sPasta As String, lX As Long
'por Reinaldo
Application.ScreenUpdating = False
'Alterar caminho para o arquivo txt
Workbooks.OpenText Filename:="D:ReinaldoDropboxMATR450.TXT", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1) _
        , Array(14, 9), Array(16, 1), Array(47, 2), Array(50, 9), Array(56, 1), Array(67, 1), Array( _
        82, 1), Array(100, 9), Array(106, 1), Array(118, 1), Array(133, 1), Array(151, 9), Array( _
        156, 1), Array(168, 1), Array(182, 9), Array(213, 1), Array(219, 9)), _
        TrailingMinusNumbers:=True
        
Workbooks("MATR450.TXT").Activate
lLinha = Workbooks("MATR450.TXT").Worksheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row

For lX = lLinha To 1 Step -1
    If Left(Cells(lX, 1), 1) = "*" Or Left(Cells(lX, 1), 1) = "-" Or Left(Cells(lX, 1), 1) = "" Or Cells(lX, 1) Like "Total*" Then
        Cells(lX, 1).EntireRow.Delete
    End If
Next
Rows("1:2").EntireRow.Delete
    Cells.Select
    Cells.EntireColumn.AutoFit
    Selection.Copy Destination:=Workbooks("Modelo.xls").Worksheets("Plan1").Range("A1")
Range("A1").Select
Workbooks("MATR450.TXT").Close Saved = False
Application.ScreenUpdating = True
End Sub

Reinaldo boa tarde!!
Não sei se é eu que não consigo utilizar...não deu certo.. mas...de qualquer maneira já sou grato por gastar um pouco do seu tempo em me ajudar....

Agora é o seguinte....estou te enviando um arquivo criado a muito tempo atras EM 2008, por algum colega de vocês, onde me ajuda até a data de hoje porem em outro arquivo txt (outro tipo de tabela) se conseguisse um modelo igual a este ou até alterar o código para eu poder usar neste novo arquivo, quem sabe vc consegue realizar...

Com este arquivo eu consigo realizar uma tarefa diária que ganho muito tempo...

fico grato e no aguardo..

SEGUE ANEXO, O ARQUIVO CRIADO EM 2008

Estou tentando de novo!!! vamos ver se consigo... com o código...

Não conseguir...erro..

Sem indicar qual o erro recebido, fica dificil.
E necessario alterar o caminho onde o arquivo txt está:
'Alterar caminho para o arquivo txt
Workbooks.OpenText Filename:="D:ReinaldoDropboxMATR450.TXT", Origin:=

Qto ao modelo de 2008, ele trata de uma "repaginação" de um arquivo txt para um txt, e não uma importação para o Excel. O que realmente é desejado/esperado??

Sem indicar qual o erro recebido, fica dificil.
Desculpe...talvez seja eu que não saíba utilizar...

E necessario alterar o caminho onde o arquivo txt está:
'Alterar caminho para o arquivo txt
Workbooks.OpenText Filename:="D:ReinaldoDropboxMATR450.TXT", Origin:=
Desculpe...talvez seja eu que não saíba utilizar...

Qto ao modelo de 2008, ele trata de uma "repaginação" de um arquivo txt para um txt, e não uma importação para o Excel. O que realmente é desejado/esperado??
Em um trabalho simples Eu consigo exportar do txt para excel.....como é o caso do arquivo em txt enviado, porem me dar muito trabalho que eu tenho em excluir os itens abaixo,. se for um arquivo de repaginação que excluia os itens abaixo, pode ser..já vai me ajudar muitíssimo.....
e
****************************************************************************************************************************************************************************************************************************
*COPAPA / COPAPALGRL01.BMP Folha..: 2 *
*SIGA /MATR450/v.11 Consumo Real x Standard ( Por Produto ) DT.Ref.: 20/03/14*
*Hora...: 17:24:21 - Empresa: COPAPA / Filial: COPAPA Emissao: 20/03/14*
*************************************************************************************************************************************************************************************************************************
CODIGO M A T E R I A L | C O N S U M O R E A L | C O N S U M O S T A N D A R D | V A R I A C A O
DESCRICAO UM | QUANTIDADE CUSTO UN. VALOR TOTAL | QUANTIDADE CUSTO UN. VALOR TOTAL | QUANTIDADE VALOR TOTAL %
***********************************************************************************************************************

Grato...
Rogério

Alterei a arquivo, para buscar o txt de nome "MATR450.TXT" no mesmo diretório em que esta a pasta modelo.xls (similar ao utilizado no arquivo de 2008)
Abra o arquivo e clique no botão Importa

Reinaldo Muitíssimo Obrigado!!! Resolveu..agora sim!!vlw mesmo...um abraço..