Arquivos de Texto
Enviado: Qui Ago 22, 2019 7:46 pm
Boa Noite.
Estou tentando adaptar o código abaixo conforme minha necessidade. No caso este código serve para ler um arquivo txt e transferir para uma planilha.
Quero alterar o código abaixo na linha ''LocaldoArquivo".
Ele menciona o exemplo com a instrução LocaldoArquivo = Application.GetOpenFilename() onde abre um mine explorer tendo a necessidade de chegar manualmente a pasta desejada.
Outro exemplo mencionado é LocaldoArquivo = "C:\LOCAL_DO_ARQUIVO\banco-de-dados.txt" onde pelo que entendi serve apenas para quando o nome do arquivo nunca é alterado.
Gostaria de saber se é possível abrir o mine explorer direto em uma pasta e sem o nome do arquivo desejado na instrução uma vez que diariamente é criado um arquivo com nome diferente.
Sub ImportarTexto ()
Dim LocaldoArquivo As String
Dim NumArquivo As Integer
Dim Dadosdetexto As String
Dim QuebraLinha as Variant
Dim UltLinha as Integer
Dim PrimLinha as Integer
'Abre a caixa de diálogo para selecionar o arquivo
LocaldoArquivo = Application.GetOpenFilename()
'Ou indique um caminho com LocaldoArquivo = "C:\LOCAL_DO_ARQUIVO\banco-de-dados.txt"
NumArquivo = FreeFile() ' Atribui o primeiro número de arquivo disponível (E.g.: #1)
Open LocaldoArquivo For Input As #NumArquivo 'Abre o arquivo em modo de leitura
'Passar o Conteúdo para Planilha---
Dadosdetexto = Input(LOF(NumArquivo), NumArquivo) 'Carrega todo conteúdo do arquivo na variável
QuebraLinha = Split(Dadosdetexto, vbCrLf) 'Cria um vetor com cada linha do arquivo
UltLinha = UBound(QuebraLinha) 'Determina a última linha do vetor
PrimLinha = LBound(QuebraLinha) 'Determina a primeira linha do vetor
'Transpõem os vetores para a planilha
Range("A1").Resize((UltLinha) - (PrimLinha) + 1).Value = Application.Transpose(QuebraLinha)
'----------------------------------
Close #NumArquivo 'Fecha o arquivo (para o número em NumArquivo poder ser reutilizado)
End Sub
Estou tentando adaptar o código abaixo conforme minha necessidade. No caso este código serve para ler um arquivo txt e transferir para uma planilha.
Quero alterar o código abaixo na linha ''LocaldoArquivo".
Ele menciona o exemplo com a instrução LocaldoArquivo = Application.GetOpenFilename() onde abre um mine explorer tendo a necessidade de chegar manualmente a pasta desejada.
Outro exemplo mencionado é LocaldoArquivo = "C:\LOCAL_DO_ARQUIVO\banco-de-dados.txt" onde pelo que entendi serve apenas para quando o nome do arquivo nunca é alterado.
Gostaria de saber se é possível abrir o mine explorer direto em uma pasta e sem o nome do arquivo desejado na instrução uma vez que diariamente é criado um arquivo com nome diferente.
Sub ImportarTexto ()
Dim LocaldoArquivo As String
Dim NumArquivo As Integer
Dim Dadosdetexto As String
Dim QuebraLinha as Variant
Dim UltLinha as Integer
Dim PrimLinha as Integer
'Abre a caixa de diálogo para selecionar o arquivo
LocaldoArquivo = Application.GetOpenFilename()
'Ou indique um caminho com LocaldoArquivo = "C:\LOCAL_DO_ARQUIVO\banco-de-dados.txt"
NumArquivo = FreeFile() ' Atribui o primeiro número de arquivo disponível (E.g.: #1)
Open LocaldoArquivo For Input As #NumArquivo 'Abre o arquivo em modo de leitura
'Passar o Conteúdo para Planilha---
Dadosdetexto = Input(LOF(NumArquivo), NumArquivo) 'Carrega todo conteúdo do arquivo na variável
QuebraLinha = Split(Dadosdetexto, vbCrLf) 'Cria um vetor com cada linha do arquivo
UltLinha = UBound(QuebraLinha) 'Determina a última linha do vetor
PrimLinha = LBound(QuebraLinha) 'Determina a primeira linha do vetor
'Transpõem os vetores para a planilha
Range("A1").Resize((UltLinha) - (PrimLinha) + 1).Value = Application.Transpose(QuebraLinha)
'----------------------------------
Close #NumArquivo 'Fecha o arquivo (para o número em NumArquivo poder ser reutilizado)
End Sub