Olá,
Gostaria de exibir uma mensagem "Arquivo não Encontrado" para o código abaixo. Esse código importa o conteúdo do arquivo texto que tem seu nome relacionado na coluna "C" da planilha "contrato". Ocorre que, embora haja um nome na coluna "C", pode ser que este nome, que se refere a um arquivo, não esteja do diretório.
Código:
Public Sub ImportarArqText)
Dim NomeArquivo As String
Dim Caminho As String
Dim wshContratos As Worksheet
Dim rngCell As Range
Dim rngMyArquivos As Range
Dim celDestino
'definimos o nome da aba
Set wshContratos = Worksheets("Contratos")
'Definimos o Range com Dados até a ultima linha preenchida
Set rngMyArquivos = wshContratos.Range("c2:c" & Range("c" & Rows.Count).End(xlUp).Row)
'Definimos o caminho no mesmo local do arquivo Controle.xls
Caminho = ActiveWorkbook.Path & ""
'Loop em cada celula no Range
For Each rngCell In rngMyArquivos
'Definimos a celula para inserir o texto
celDestino = rngCell.Offset(0, 2).Address(0, 0)
'Nome de cada arquivo
NomeArquivo = rngCell & ".txt"
'Abre o arquivo para leitura
Open Caminho & NomeArquivo For Input As #1
'Inseri o conteudo do arquivo na celula correspondente ao arquivo
Range(celDestino).Value = Input$(LOF(1), 1)
'Fecha o arquivo Texto
Close #1
Next rngCell
ActiveSheet.Range("A:O").Columns.AutoFit
End Sub
Obrigado.
Postado : 11/03/2016 11:21 am