VBAテクニック集 VBA一覧 その他の知識 コマンド

【VBA】初心者のためのExcelでのインターネット接続チェック方法：Pingコマンド活用法

Excel業務を自動化していると、「ネットにつながっている前提」で処理を書いてしまうことがよくあります。
しかし実務では、VPN未接続、社内ネットワーク切断、外出先の不安定な回線など、インターネットが使えない状態でマクロが実行される場面は珍しくありません。
その結果、Web取得処理や外部API連携、クラウド保存処理が途中で止まり、「原因が分からないエラー」に悩まされるケースが頻発します。
こうしたトラブルを防ぐために有効なのが、処理の前にインターネット接続をチェックする設計です。
本記事では、Windows標準の Pingコマンド をVBAから活用し、初心者でも理解できる形で「安全に接続確認を行う方法」を解説します。

✅ なぜVBAでインターネット接続チェックが必要なのか

VBAでネットワーク処理を書くとき、多くの人が見落としがちなのが「前提条件の確認」です。
接続チェックを入れずに処理を書くと、失敗した原因がネットワークなのか、コードなのか分からない状態になります。
これは、保守や引き継ぎの観点でも非常に危険です。
ここを意識せずに進むと、「たまに動かないマクロ」が量産され、現場での信頼を失う原因になります。

・実務でよくある失敗例

  • 社外でマクロを実行したらエラーで止まる
  • VPN未接続時にWeb処理が失敗する
  • 原因調査に毎回時間がかかる

これらはすべて、「事前に接続チェックをしていない」ことが根本原因です。

✅ Pingコマンドとは何か（初心者向け）

Pingコマンドは、指定したサーバーに通信できるかを確認するための、Windows標準コマンドです。
特別なソフトや設定は不要で、ほぼすべてのWindows環境で利用できます。

・Pingで分かること

  • 指定したホストに通信できるか
  • ネットワークが完全に切断されていないか

※「インターネットの速さ」や「すべての通信可否」を判定するものではありません。
あくまで最低限の接続確認として使うのがポイントです。

✅ VBAでPingを使う設計方針（重要）

ここで重要なのは、Pingをどう実装するかではなく、
どういう設計思想で組み込むかです。

  • VBA単体で完結させる
  • 失敗理由が分かるようにする
  • 後から接続先を変更できる

この3点を満たす設計を前提に進めます。

✅ WScript.Shellを使ってPingを実行する基本構成

なぜこの書き方にしているのか

VBAからPingを実行する方法はいくつかありますが、
初心者でも理解しやすく、環境依存が少ないのが WScript.Shell を使う方法です。
外部ライブラリへの参照設定も不要で、配布マクロにも向いています。

■ インターネット接続をチェックするVBAコード例

Option Explicit

Public Function IsInternetConnected() As Boolean
    Dim shellObject As Object
    Dim pingCommand As String
    Dim exitCode As Long

    ' WScript.Shellを生成（外部コマンド実行用）
    Set shellObject = CreateObject("WScript.Shell")

    ' Pingコマンドを作成（GoogleのDNSを使用）
    pingCommand = "ping 8.8.8.8 -n 1"

    ' コマンドを実行（結果は非表示）
    exitCode = shellObject.Run(pingCommand, 0, True)

    ' 終了コードが0なら成功
    IsInternetConnected = (exitCode = 0)

    Set shellObject = Nothing
End Function

✅ コードの設計意図と処理の流れ

・なぜFunctionにしているのか

この処理は、

  • Web取得前
  • ファイルアップロード前
  • API連携前

など、複数の場所から使い回される可能性が高いため、
SubではなくFunctionとして切り出しています。

・exitCodeで判定している理由

Pingの結果を文字列解析する方法もありますが、

  • 表示言語の違い
  • Windowsバージョン差

による影響を受けやすくなります。
終了コード（0＝成功）を使う方が、壊れにくく保守性が高いため、この方法を採用しています。

今回のように処理をFunctionとして切り出すか、Subとして書くかは、
単なる好みではなく、再利用性や呼び出し方を意識した設計判断になります。
標準モジュール内のプロシージャをどう分け、
どのタイミングで呼び出すべきかといった考え方を整理しておくと、
VBA全体の見通しが一気に良くなります。
Sub・Functionの使い分けや、標準モジュールの実務的な設計については、
「【VBA】標準モジュールの呼び出し方法とは｜Sub・Functionの使い分けと実務設計」で詳しく解説しています。

✅ 別の書き方と比較したときのメリット

・文字列解析方式との比較

方法デメリット
出力文字列を解析環境依存・複雑
終了コード判定シンプル・安定

初心者向けの記事でありながら、
実務でも使い続けられるのがこの設計の強みです。

✅ 実務で使うときの注意点

・Pingが通る＝すべてOKではない

Pingが成功しても、

  • プロキシ制限
  • 特定URLのみ遮断

といったケースはあります。
そのため、「最低限の接続確認」として使う意識が重要です。

・接続先は固定値にしない

実務では、

  • 社内サーバー
  • 自社Webサイト

など、意味のある接続先に変更することをおすすめします。
その場合も、Function化しておけば差し替えは簡単です。

✅ 実行例：処理の前に接続チェックを入れる

Sub ExecuteProcessWithNetworkCheck()

    If Not IsInternetConnected Then
        MsgBox "インターネットに接続されていません。処理を中断します。", vbExclamation
        Exit Sub
    End If

    ' ここにWeb処理や外部連携処理を書く
    MsgBox "接続確認OK。処理を開始します。"

End Sub

・この構成のメリット

  • エラー原因が明確になる
  • ユーザーに優しいメッセージを出せる
  • 後から処理を追加しやすい

✅ 応用：接続チェックを「設計」に組み込む考え方

このPingチェックは、単なるテクニックではありません。
「失敗しうる前提でマクロを設計する」という考え方そのものです。

  • 失敗する条件を先に潰す
  • 想定外を想定内にする
  • 後工程で調査コストを減らす

この視点を持つだけで、VBAの品質は一段階上がります。

このように、接続チェックを事前に組み込む考え方は、
単なるVBAテクニックではなく、業務を安全に回すための設計判断です。
「どこまで自動化すべきか」「何を事前に確認すべきか」といった視点を持たずに作ると、
改善しているはずのExcel業務が、かえって不安定になることもあります。
Excel業務改善における判断軸や、ツール・自動化に迷う前に考えるべき設計思考については、
「Excel業務改善はどう判断すべきか？ツール・自動化に迷う前の設計思考」で整理しています。

✅ まとめ：Pingチェックは「安心して動かすための設計」

  • インターネット前提の処理には接続チェックを入れる
  • Pingコマンドは手軽で実務向き
  • 終了コード判定で壊れにくくする
  • Function化して再利用性を高める

Pingコマンドを使った接続チェックは、
VBA初心者にとっても導入しやすく、
実務では「あるか・ないか」で安心感が大きく変わる設計要素です。

ぜひ、「ネットにつながっている前提」から一歩進んだVBA設計を意識してみてください。

    -VBAテクニック集, VBA一覧, その他の知識, コマンド