Boa noite!
Não estou conseguindo validar a existência de um arquivo em um diretório, marquei no código onde preciso validar a existência do arquivo, preciso que se o arquivo não exista apareça uma mensagem avisando e pare o código, mas se ele existir continue o código sem mensagem.
Sub Clientes_Importar()
Dim confirmaenvio As String
confirmaenvio = MsgBox("Para importar você deve primeiro ter exportado o arquivo da planilha antiga, você já exportou o arquivo?", vbYesNo + vbQuestion, "E-mail")
If confirmaenvio = vbNo Then
End
Else
Cancel = True
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Atual = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
AtualJanela = ActiveWorkbook.Name
Importar = ActiveWorkbook.Path & "" & "IMPORTAR CLIENTES" & "" & "IMPORTARCLIENTESDK.xlsx"
PRECISO QUE VALIDE A EXISTÊNCIA DE IMPORTAR AQUI
Workbooks.Open Importar
Sheets("Clientes").Select
Cells.Select
Selection.Copy
Windows(AtualJanela).Activate
Sheets("Clientes").Select
Cells.Select
ActiveSheet.Paste
Range("A2").Select
Sheets("Definições").Select
Range("C5:O6").Select
Windows("IMPORTARCLIENTESDK.xlsx").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Windows(AtualJanela).Activate
Sheets("Definições").Select
Range("C5:O6").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Kill Importar
MsgBox "Importação dos clientes concluida com sucesso."
End Sub
Desde já agradeço a ajuda....
Postado : 13/04/2014 9:06 pm