{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmistnas.hatenablog.jp%2Fentry%2F2024%2F03%2F07%2F002911\" title=\" - \u601d\u8003\u306e\u6f0f\u6d29\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"mist_nas","provider_name":"Hatena Blog","width":"100%","author_url":"https://blog.hatena.ne.jp/mist_nas/","description":"https://drive.google.com/file/d/16JHl5YIba-LyDeEGro84w7p7W54RtLiD/view?usp=drive_link Sub \u30d5\u30a1\u30a4\u30eb\u60c5\u5831\u53d6\u5f97() Dim \u30d5\u30a9\u30eb\u30c0\u30d1\u30b9 As String Dim \u30d5\u30a1\u30a4\u30eb\u540d As String Dim \u884c\u756a\u53f7 As Integer Dim objFSO As Object Dim objFolder As Object Dim objFile As Object ' \u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u4e0a\u306eA1\u30bb\u30eb\u304b\u3089\u30d5\u30a9\u30eb\u30c0\u30d1\u30b9\u3092\u53d6\u5f97 \u30d5\u30a9\u30eb\u30c0\u30d1\u30b9 = Range(\"A1\").Value ' FileSystemObjec\u2026","type":"rich","version":"1.0","url":"https://mistnas.hatenablog.jp/entry/2024/03/07/002911","provider_url":"https://hatena.blog","height":"190","categories":[],"published":"2024-03-07 00:29:11","blog_url":"https://mistnas.hatenablog.jp/","image_url":null,"blog_title":"\u601d\u8003\u306e\u6f0f\u6d29","title":""}