Este fórum está sendo desativado

[TMatos]

Prezados,

Semanalmente importamos alguns arquivos no nosso sistema de processamento, mas infelizmente, algumas vezes após todo o processo detectamos que os valores recebidos não batem com o mesmo saldo esperado (registrados na contabilidade). Então sempre temos que utilizar do passo a passo: dados/obter dados externos/de texto/abrimos o arquivo/ largura fixa / avançar / e começamos a "fatiar" o arquivo de acordo com o leiaute / e na parte seguintes alteramos os campos de data para AMD.

O que preciso é de uma macro que faça este processo automaticamente, uma vez que o leiaute é fixo. O que altera é somente o nome dos arquivos que são de vários fornecedores.

Segue em anexo o modelo de arquivo convertido, o arquivo txt. e o leiaute padrão.

[alexandrevba]

Boa tarde!!

Eu não entendi o que especificamente vc quer.

Você precisa importar vários arquivos Txt ao mesmo tempo?

Já tentou Gravar uma Macro?

Att

[daniexcel]

pelo que deu pra entender , os seus txt possuem a mesma logica em todos os arquivos , certo?
voce ja chegou a contar se todas as linhas tem o mesmo numero de caractereres? se tiverem , fica mais facil
o que voce precisa é de uma macro para importação do arquivo (com caixa de dialogo)? se for isso mesmo, avise
quanto a tabulação dos dados, se o numero de caracteres for fixo, isso voce consegue fazer facil.

e por fim, qual a finalidade do codigo da primeira linha? deve ser o nome do arquivo?
voce pode usar um ActiveWorkbook.SaveAs com o nome da primeira linha do seu txt

se for isso mesmo, informe, que acredito que possa lhe auxiliar

[TMatos]

Amigos,

Exatamente isso. o número de caracteres é fixo, devido ser um leiaute padrão para vários arquivos. Para análise dos arquivos, faço um por um.

[daniexcel]

utilize para import, a macro postada neste tópico
para que voce possa salvar o arquivo automaticamente, utilize a macro abaixo:

Código: Selecionar todos

Sub Save_File()


' salva o arquivo na pasta
On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho

' aqui voce pode por exemplo, inserir o caminho do arquivo original, para que o arquivo seja salvo na mesma pasta ou definir uma pasta, em alguma celula ou inserindo o caminho da rede
Caminho = [Main!j2].Value & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [Main!j3].Value & ".xls"
MsgBox ("Planilha Salva Como : ") & [Main!j3].Value & ".xls   na pasta " & [Main!j2].Value & " " _
    , vbInformation, "GURU DO EXCEL"
End Sub

Deste modo, voce pode adaptar ao seu arquivo. pode deixar automatico (por len ou formula) para tabular as informações contidas na linha do seu txt.