IT仕事 MS Access

Excelで使える祝日判定のWebAPIを見つけた

投稿日:

Excelの関数には、曜日を判定できる関数(WEEKDAY)が用意されている。また、表示だけなら書式設定でもできる。しかし祝日となると、関数も何も、用意されていない。
祝日は年により、突然増えたり、「来年からは第〇週目に変更」などとなったりするので、対応が難しいのであろう。

それでも何か方法がないかと「excel 祝日」などでGoogle検索すると、Google Calendar API を利用する方法がトップに出てくる。
見つけた時はうれしかったが、よくよくページを見てみると、コードが恐ろしく長く、また随所に使いにくい部分が出てくる。

さらに簡単な方法がないか探して、やっと見つけた、サンプルサイトが、以下。

国民の祝日チェック

上記のサイトでは、祝日判定のWebAPIを提供している。
ブラウザのURLに、http://s-proj.com/utils/checkHoliday.php?kind=h&date=20170503 をコピペしてEnterキーを押すと動きが分かるが、末尾の8桁の数字でもって祝日かそうでないかが、シンプルかつエレガントに分かるようになっている。

その仕組みを使わせていただいて、ExcelVBAに取り込んでみたのが、こちら。Accessでも使える。
実際に使う際は、Debug.Printしている部分を、セルに入れたり、テキストボックスに代入したり、することになろう。

Sub httpRequest()
' 祝日判定
' 国民の祝日チェック <http://s-proj.com/utils/holiday.html>

Dim HttpReq As MSXML2.XMLHTTP60
Dim DomDoc As MSXML2.DOMDocument60
Dim targetURL As String

targetURI = "http://s-proj.com/utils/checkHoliday.php?kind=h&date=20170503" '20170503部分を任意の数値に

'HTTP GET
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", targetURI, False
HttpReq.send (Null)

Set DomDoc = CreateObject("MSXML2.DOMDocument.6.0")
DomDoc.LoadXML (HttpReq.responseText)
Debug.Print HttpReq.responseText

Set HttpReq = Nothing
Set DomDoc = Nothing

End Sub

いいものが見つかって、うれしい。
作者さん、ありがとうございます。

-IT仕事, MS Access

執筆者:

関連記事

no image

Accessで実行時エラー’2465′ 指定した式で参照されている’txt区分’フィールドが見つかりません

VBAでフォームをMe.RecalcあるいはMe.Requeryしただけで、タイトルのエラーが出るケースに遭遇。F9キーを押すと同じ動作になるはずだが、キー押下では上記エラーは出ず、不思議。 ネット検 …

no image

Excelで作ったVBAマクロのシートをZohoで使えるか試してみた

結論でいうと、うごくは動くが、完全ではない。 で、その不完全さが、致命傷だったりする。 自分の場合に気がついたこととして、 ■よいところ ・Googleのアカウントでログインできる。 ・わかりやすい。 …

no image

2年ぶりくらいにルミーズカートを使おうとしたのだがうまくいかん

2年ぶりくらいにルミーズカートを使おうとしたのだがうまくいかん カートのバージョンはVer1.4.5。 早速、サーバへの設置がうまくいかない。 「非公開ディレクトリ」の設定をしたがどうもdbフォルダに …

no image

まだやってる、IT講師。

今日はWordでPOPを作るセミナー。 いわゆる「おばちゃん」相手。 楽しい。 なかに、とても入力が苦手な人が一人、「産業会館」という字を、「惨状会館」と入力して、しかしどう直してよいか分からなくて悩 …

bigdump.phpという素敵で便利なツールで、救われた。

phpMyAdminでアップロードできなかったので、こちらのツールを使わせてもらった。 CPIのサーバで、2,864,000行/393mb/gz圧縮後25mb、をアップ。 40分位かかった。 作者に感 …