Erro de compilação 'Sub' ou 'Function'

2024 - VBA & Macros

Post Recente por marciojr 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,448 Visualizações

RSS

marciojr

(@marciojr)

Posts: 146

Estimable Member

Topic starter

Boa tarde,

Estava precisando de uma planilha para pingar determinados IP's na minha rede, eu encontrei um código na internet e o mesmo não está funcionando corretamente. Gostaria que pudessem me ajudar a solucionar este problema pois esta planilha seria muito útil pra mim. Esta planilha funciona basicamente da seguinte forma: Pega os IP's de uma determinada coluna, efetua teste de ping e retorna o Status do destino pingado. Porém nem mesmo pegando a planilha pronta do local onde peguei o código, nem assim ela funcionou. Segue o link do local onde encontrei disponibilizado tanto a planilha quanto o código. http://www.profissionaisti.com.br/2014/ ... -do-excel/

Postado : 18/01/2016 2:37 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde,

Suponho que o Sleep do código é uma função da API utilizada para suspender o código por determinada quantidade de milissegundos.
Para utilização é necessário fazer a seguinte declaração para 32 ou 64 bits:

'32 bits
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'64 bits
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

A utilização, como está no código apresentado, suspende a execução por 500 milissegundos (meio segundo):