Pingテストを実行するためのVB VBAの使い方

著者: Charles Brown
作成日: 4 2月 2021
更新日: 17 11月 2024
Anonim
PINGコマンドを入力した時と同等の処理をエクセルで実現します。
ビデオ: PINGコマンドを入力した時と同等の処理をエクセルで実現します。

コンテンツ

Virtual Basic for Applications（VBA）を使用してさまざまなアドレスのping処理を自動化することで、特に複数のアドレスに対してpingを実行する必要がある場合は、多くの時間を節約できます。アドレスをpingするとは、テストを適用し、そのアドレスがインターネットネットワーク上でアクセス可能かどうかを判断することです。 VBAはVBと非常によく似ており、ExcelなどのMicrosoft Officeアプリケーションで使用できます。ホストをpingするには、「Windows Scripting」を使用してコマンドスクリプトを実行するためにいくつかの変数を使用する必要があります。この方法を使用して、「ホスト」のアドレスを調べて、それらが機能していることを確認できます。 VBAプログラムは、ホストが応答しない場合にエラーを生成することがあります。


説明書

VBAを使用してExcelで新しい関数を作成する （コムストック/コムストック/ゲッティイメージズ）

  1. Microsoft Excelを開き、[開発者]タブをクリックし、[Visual Basic]をクリックしてVBAエディタウィンドウを開きます。 [挿入]メニューをクリックし、[変調]をクリックして新しい変調コードを入力します。

  2. 次のコードをコピーして貼り付けて、 "myPingFunction"（私のping関数）を呼び出すプロシージャを作成し、メッセージボックスを介して "google.com"のping結果を表示します。

    プライベート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 = tmpFilej。 Readline myPingFunction = myPingFunction＆Trim（sLine）ループtmpFileObj.Close FSObj.DeleteFile（sFilename）終了関数


  5. プロシージャ「callPingFunction」（コールping関数）の内側をクリックし、「F5」を押して実行します。 pingの結果はメッセージボックスに表示されます。

必要なもの

  • マイクロソフトオフィス