Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA とあるサイトのＵＲＬについて、指定日のページはこのようになっている。 https://*****/2020/10/2020-1028.html 今日は、これを如何にして取得したか、というお話。 上記を分解すると、こうなっている。 赤が、可変の部分になる。これを昔の私だったら多分、こう書いて求めただろう。 ※かつて勘違いしていた部分も含め、正確に再現。 Sub Sample1() Dim 年, 月, 日 As Integer 年 = Year(Date) 月 = Month(Date) 日 = Day(Date) Dim URL As String URL = "https://*****/" … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2020%2F10%2F28%2F225322" title="意外とムチャが効くyyyymmdd - Infomentのブログ ～Excel VBA奮闘記～" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20201028/20201028220958.png Hatena Blog https://hatena.blog 2020-10-28 22:53:22 rich https://infoment.hatenablog.com/entry/2020/10/28/225322 1.0 100%