ANAの所持している航空機の機体番号と機種をエクセルのマクロ(VBA)でネットから取得する方法

ANAの飛行機はぜんぶで何機あるんだろう？🤔

お気に入りの航空会社のヒコーキ一覧表があったら便利なのに。って思うことがないだろうか。

あるに決まってるよな！

そんな航空ファン向けにエクセル活用ネタを紹介するぞ。

飛行機リストをコピペで作るのもいいけどホームページからデータを取り込むのが楽だ。
エクセルのWebクエリ機能を使えばあっという間にリストが出来上がる。

ヒコーキデータの一覧は、俺たちのご愛用サイト「フライトレーダー24」のウェブサイトにエアラインデータベースという絶好のページがあるので使わせてもらう。

ANAだと、https://www.flightradar24.com/data/airlines/nh-ana/fleet

このアドレスをテキストファイルに貼り付けて保存。ファイル名は、ヒコーキ一覧.iqyとしておく。
拡張子を .iqy にするのがポイントだ。

次にエクセルを開いて
メニューバーのデータ＞外部データの取り込み＞ Webクエリの実行
でさっき作ったテキストファイルを指定する。

準備はこれだけ。
「サンキューエクセル、ANAの飛行機一覧をリストにして」

どう？一瞬にしてリストができあがったでしょ？

でもホームページから取り込んだデータには、空行があったり要らないデータが混ざってしまう。
手作業でセコセコ直してもいいけど定形な作業はマクロが便利。

① 不要なデータと空行を削除
② ついでにFlightradar24とFlightAwareかにリンク

これで快適な飛行機リストの出来あがり。Macで作ってるけどWinでも動くはず!?

Sub ヒコーキの一覧リスト()

Dim 縦 As Long, 縦最大 As Long

縦最大 = Cells(Rows.Count, 1).End(xlUp).Row

For 縦 = 縦最大 To 2 Step -1

’① 不要なデータをカットして空行を削除
If InStr(Cells(縦, 1), "JA") = 0 Then
Rows(縦).Delete

Else
’② ついでに、FlightRadar24 と FlightAware のリンクを追加
Cells(縦, 3).Hyperlinks.Add Anchor:=Cells(縦, 3), Address:= _
"https://www.flightradar24.com/data/aircraft/" & Cells(縦, 1), TextToDisplay:="FR24"
Cells(縦, 4).Hyperlinks.Add Anchor:=Cells(縦, 4), Address:= _
"https://ja.flightaware.com/live/flight/" & Cells(縦, 1), TextToDisplay:="FA"
End If

Next
End Sub

マクロをポチると… GREAT👍　ANAの飛行機一覧が一瞬で完成だ。
FR24とFAのリンクもバッチリだ。

よーし、この勢いでJALも作っちゃうぞ！でもどうやって…。😥