Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Duvida Sobre IF - Como usar nesta macro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
lucas.caetano
Colaborador
Colaborador
Mensagens: 20
Registrado em: Seg Abr 09, 2012 4:06 pm

Duvida Sobre IF - Como usar nesta macro

Mensagem por lucas.caetano »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Duvida Sobre IF - Como usar nesta macro

Mensagem por webmaster »

Lucas,

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
Acho que está bem explicado. Veja se ajuda.

Abraços

Referências: http://forum.clubedohardware.com.br/res ... cel/872980


lucas.caetano
Colaborador
Colaborador
Mensagens: 20
Registrado em: Seg Abr 09, 2012 4:06 pm

Re: Duvida Sobre IF - Como usar nesta macro

Mensagem por lucas.caetano »

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?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder