VB VBA를 사용하여 Ping 테스트를 수행하는 방법

작가: Charles Brown
창조 날짜: 4 2 월 2021
업데이트 날짜: 25 십일월 2024
Anonim
VBA 이론 19편 (엑셀파일 경로 가져오기, 엑셀파일 열기, GetOpenFileName, Workbooks.Open, For Each In, IsArray) - 대직장인DNA
동영상: VBA 이론 19편 (엑셀파일 경로 가져오기, 엑셀파일 열기, GetOpenFileName, Workbooks.Open, For Each In, IsArray) - 대직장인DNA

콘텐츠

VBA (Virtual Basic for Applications)를 사용하여 다른 주소의 ping 프로세스를 자동화하면 특히 여러 주소를 ping해야 할 때 많은 시간을 절약 할 수 있습니다. 주소를 핑 (ping)한다는 것은 테스트를 적용하고 인터넷 네트워크에서 주소에 액세스 할 수 있는지 여부를 결정하는 것을 의미합니다. VBA는 VB와 매우 유사하며 Excel과 같은 Microsoft Office 응용 프로그램에서 사용할 수 있습니다. 호스트에 대해 ping을 수행하려면 "Windows 스크립팅"을 사용하여 명령 스크립트를 실행하는 데 필요한 몇 가지 변수를 사용해야합니다. 이 방법을 사용하여 "호스트"의 주소가 작동 중인지 확인할 수 있습니다. VBA 프로그램은 호스트가 응답하지 않는 경우 오류를 생성 할 수 있습니다.


지침

VBA를 사용하여 Excel에서 새 함수 만들기 (Comstock / Comstock / 게티 이미지)

  1. Microsoft Excel을 열고 "Developer"탭을 클릭 한 다음 "Visual Basic"을 클릭하여 VBA 편집기 창을 엽니 다. "Insert"메뉴와 "Modulate"를 클릭하여 새로운 변조 코드를 입력하십시오.

  2. 다음 코드를 복사하여 붙여 넣어 "myPingFunction"(내 ping 함수)을 호출하는 프로 시저를 만들고 메시지 상자를 통해 "google.com"에 대한 ping 결과를 표시합니다.

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

  3. 이전 단계에서 "google.com"을 편집하고 ping 할 "호스트"를 입력하십시오.

  4. 다음 함수를 복사하여 붙여 넣어 함수에 보낸 "호스트"주소에 대해 ping을 수행하고 결과를 호출 프로 시저에 반환합니다.

    스크립트를 만드는 데 사용되는 스크립트를 만드는 데 사용할 스크립트를 만들려고합니다. ) sFilename = FSObj.GetTempName shellObj.Run "cmd / c ping"& hostAddress & ">"& sFilename, 0, True 설정 tmpFileObj = FSObj.OpenTextFile (sFilename, 1) tmpFileObj.AtEndOfStream을 수행하는 동안 true sLine = tmpFileObj. Readline myPingFunction = myPingFunction & Trim (sLine) 루프 tmpFileObj.Close FSObj.DeleteFile (sFilename) End Function


  5. "callPingFunction"(ping 함수 호출) 프로 시저를 클릭하고 "F5"키를 눌러 실행하십시오. ping 결과는 메시지 상자를 통해 표시됩니다.

필요한 것

  • Microsoft Office