Automatizando o processo de ping endereços diferentes usando o Visual Basic for Applications (VBA ) você pode economizar muito tempo , especialmente quando você tem o ping muitos endereços . Para executar ping um endereço significa para executar um teste e determinar se o endereço pode ser acessado através da rede. VBA é muito semelhante ao VB e você pode usá-lo em qualquer aplicativo do Microsoft Office, como o Excel. Para executar ping um host, você precisará usar algumas variáveis ​​objetos para executar um comando de script usando o " Windows Scripting . " Você pode usar este método para verificar os endereços de host continuamente para se certificar de que eles estão em funcionamento. Seu programa VBA pode gerar um erro no caso de um host não responder . Coisas que você precisa
Microsoft Office
Mostrar Mais instruções
1

Inicie o Microsoft Word , clique na guia "Desenvolvedor" e clique em " Visual Basic " para iniciar o editor de VBA janela . Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código .
2

Copie e cole o seguinte código para criar o procedimento que irá chamar o " myPingFunction " e exibir os resultados de ping para " google.com " através de uma caixa de mensagem :

Private Sub callPingFunction ( ) MsgBox myPingFunction ( " google.com ") End Sub
3

Editar " google . com " na etapa anterior e digite o host que você quer fazer o ping .
4

Copie e cole a seguinte função para executar ping no endereço do host que você enviou para a função e retornar os resultados para o procedimento de chamada :

Função myPingFunction ( HostAddress As String) Como StringDim FSObj Como ObjectDim shellObj Como ObjectDim tmpFileObj Como ObjectDim sLine Como StringDim sFileName Como StringSet FSObj = CreateObject (" Scripting.FileSystemObject " ) Set shellObj = CreateObject (" Wscript . Shell " ) sFileName = FSObj.GetTempNameshellObj.Run " cmd /c ping " & HostAddress &" > "& sFileName , 0, TrueSet tmpFileObj = FSObj.OpenTextFile ( sFileName , 1) Do While tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sLine ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function
5

Clique dentro do procedimento " callPingFunction " e pressione " F5 "para executá-lo. Os resultados de ping vai ser exibido através de uma caixa de mensagem.