Excelを使用してURLが正常かどうかをチェックする方法

VBAコードを使用する方法:
- ExcelのVisual Basic for Applications（VBA）エディタを開きます。
- 新しいモジュールを作成し、以下のVBAコードを入力します。
```
Function CheckURL(url As String) As String
 Dim request As Object
 Set request = CreateObject("MSXML2.XMLHTTP")
 On Error Resume Next
 request.Open "GET", url, False
 request.send
 If request.Status = 200 Then
     CheckURL = "正常"
 Else
     CheckURL = "エラー: " & request.Status & " " & request.statusText
 End If
End Function
```
- VBAエディタを閉じます。
- Excelのセルに=CheckURL("URL")と入力し、URLの代わりにチェックしたいURLを指定します。セルには「正常」または「エラー: エラーコードエラーメッセージ」が表示されます。
Power Queryを使用する方法:
- Excelのデータタブにある「取得と変換」から「Power Queryエディタを開く」を選択します。
- Power Queryエディタで新しいクエリを作成し、URLのリストをロードします。
- クエリエディタの「追加列」タブで、「カスタム列を追加」を選択します。
- 「カスタム列を追加」ダイアログボックスで、以下の式を入力します。
```
= Text.FromBinary(Web.Contents([URL]))
```
- OKをクリックします。
- クエリエディタの「ホーム」タブで、「閉じて適用」を選択します。
- 列には、URLの取得に成功した場合はHTMLコンテンツが表示され、エラーが発生した場合はエラーメッセージが表示されます。
Pythonを使用する方法:
- Pythonをインストールし、requestsライブラリをインストールします（pip install requests）。
- 下記のPythonコードを使用して、URLの正常性をチェックします。
```
import requests
def check_url(url):
 try:
     response = requests.get(url)
     if response.status_code == requests.codes.ok:
         return "正常"
     else:
         return "エラー: " + str(response.status_code) + " " + response.reason
 except requests.exceptions.RequestException as e:
     return "エラー: " + str(e)
# URLを指定してチェック
result = check_url("URL")
print(result)
```
- check_url関数の引数にチェックしたいURLを指定します。result変数には「正常」または「エラー: エラーコードエラーメッセージ」が格納されます。

これらの方法を使用して、ExcelでURLの正常性をチェックすることができます。選択した方法に応じて、ブログ投稿のコード例を作成し、詳細な手順と共に説明することができます。