Bom dia, a todos e obrigado pelas dicas e soluções sempre muito eficientes
Tenho o seguinte Codigo VBA:
ChDir _
"G:\MSS_CC\Restrita\Gerência de Rede\Performance Agent & Service - CRS\Cts"
Workbooks.Open Filename:= _
"G:\MSS_CC\Restrita\Gerência de Rede\Performance Agent & Service - CRS\Cts\01_1.htm"
Cells.Select
Selection.UnMerge
Range("A1:AS178").Select
Selection.Copy
Windows("07-Jul_12 - Performance Agente & Service - CRS.xlsm").Activate
ActiveSheet.Paste
Windows("01_1.htm").Activate
ActiveWorkbook.Saved = True
Workbooks("01_1.htm").Close
Atualizar_Ct2
End Sub
Gostaria de fazer um IF, para quando o código abrir o caminho abaixo:
G:\MSS_CC\Restrita\Gerência de Rede\Performance Agent & Service - CRS\Cts\01_1.htm"
ele verificasse se todos os arquivos estão dentro deste caminho, ao todo são 30. Semanalmente muda sempre do 1 ao 30
01_1.htm
02_1.htm
04_1.htm (Ex. não tem o 03_1.htm) a função teria que entender que não tem o 03_1.htm e pular para o próximo, sempre falta alguns
05_1.htm
06_1.htm
Sei usar o IF quando se trata de valores, mais quando preciso entrar num caminho, verificar neste caminho se o arquivo que eu quero esta lá,
se tiver abri-lo e se não tiver, então... vai para a próxima ação.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Duvida Sobre IF - Como usar nesta macro
-
- Colaborador
- Mensagens: 20
- Registrado em: Seg Abr 09, 2012 4:06 pm
Re: Duvida Sobre IF - Como usar nesta macro
Lucas,
Peguei esse código de um colega lá do Clube de Hardware:
Acho que está bem explicado. Veja se ajuda.
Abraços
Referências: http://forum.clubedohardware.com.br/res ... cel/872980
Peguei esse código de um colega lá do Clube de Hardware:
Código: Selecionar todos
Private Sub CommandButton1_Click()
On Error GoTo RotinaErro ' Ative a rotina de tratamento de erro.
Open "C:\Marcio\TTC.txt" For Input As #1
Close #1
RotinaErro: ' Rotina de tratamento de erro.
Select Case Err.Number ' Avalie o número do erro.
Case 53
MsgBox "O arquivo não existe"
Close #1
Case 55
MsgBox "O arquivo já está aberto"
Close #1
Case 76
MsgBox "Caminho não localizado"
Close #1
Case Else
' Outros erro (ver Help Erros interceptáveis).
Close #1
End Select
End Sub
Abraços
Referências: http://forum.clubedohardware.com.br/res ... cel/872980
-
- Colaborador
- Mensagens: 20
- Registrado em: Seg Abr 09, 2012 4:06 pm
Re: Duvida Sobre IF - Como usar nesta macro
Muito bom, funcionou perfeito Obrigado!!
Só um detalhe, como tenho varias abas da planilha com essa macro e gostaria de executar na sequencia, teria como tirar as MSGBOX, para que a macro continuasse direto?
Só um detalhe, como tenho varias abas da planilha com essa macro e gostaria de executar na sequencia, teria como tirar as MSGBOX, para que a macro continuasse direto?