Kako uporabljati VB VBA za izvedbo testa Ping

Avtor: Charles Brown
Datum Ustvarjanja: 1 Februarjem 2021
Datum Posodobitve: 1 December 2024
Anonim
Kako uporabljati VB VBA za izvedbo testa Ping - Članki
Kako uporabljati VB VBA za izvedbo testa Ping - Članki

Vsebina

Z avtomatizacijo procesa ping različnih naslovov z uporabo Virtual Basic for Applications (VBA), lahko prihranite veliko časa, še posebej, ko morate ping več naslovov. Pinganje naslova pomeni uporabo testa in ugotavljanje, ali je naslov dostopen v internetnem omrežju. VBA je zelo podobna VB in jo lahko uporabite v vseh aplikacijah Microsoft Officea, kot je Excel. Če želite ping gostitelja, morate uporabiti nekaj spremenljivk za zagon ukazne skripte z uporabo "Windows Scripting". S to metodo lahko preverite naslove "gostitelja", da se prepričate, ali delujejo. Program VBA lahko povzroči napako, če se gostitelj ne odzove.


Navodila

Ustvarite novo funkcijo v Excelu z uporabo VBA (Comstock / Comstock / Getty Images)

  1. Odprite Microsoft Excel, kliknite zavihek "Razvijalec" in kliknite "Visual Basic", da odprete okno urejevalnika VBA. Kliknite meni "Vstavi" in "Moduliraj", da vnesete novo modulacijsko kodo.

  2. Kopirajte in prilepite naslednjo kodo, da ustvarite postopek, ki bo poklical funkcijo "myPingFunction" (moja funkcija ping) in bo prikazal rezultate pingov za "google.com" prek sporočilnega polja:

    Zasebna subklicna funkcija () MsgBox myPingFunction ("google.com") Konec Sub

  3. V prejšnjem koraku uredite »google.com« in vnesite »gostitelj«, ki ga želite pingati.

  4. Kopirajte in prilepite naslednjo funkcijo na ping naslov "gostitelja", ki ste ga poslali funkciji, in vrnite rezultate klicnemu postopku:


    Poskušam ustvariti skript, ki bo uporabljen za izdelavo skripta, ki bo uporabljen za izdelavo skripta. ) sFilename = FSObj.GetTempName shellObj.Run "cmd / c ping" & hostAddress & ">" & sFilename, 0, True Nastavi tmpFileObj = FSObj.OpenTextFile (sFilename, 1). Readline myPingFunction = myPingFunction & Trim (sLine) Loop tmpFileObj.Close FSObj.DeleteFile (sFilename) End funkcija

  5. Kliknite znotraj postopka "callPingFunction" (funkcija klic ping) in pritisnite "F5", da jo izvedete. Rezultati pingov bodo prikazani v sporočilnem polju.

Kaj potrebujete

  • Microsoft Office