{"categories":[],"published":"2022-02-08 13:55:47","author_url":"https://blog.hatena.ne.jp/shikaku/","url":"https://blog.systemjp.net/entry/2022/02/08/135547","height":"190","blog_title":"shikaku's blog","blog_url":"https://blog.systemjp.net/","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2022%2F02%2F08%2F135547\" title=\"ExcelVBA 1\u968e\u5c64\u4e0a\u306e\u89aa\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u30d1\u30b9\u3092\u53d6\u5f97\u300cParentDirName\u300d - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","description":"Function ParentDirName() As String With ThisWorkbook ParentDirName = Left(.Path, InStrRev(.Path, \"\\\") - 1) End With End Function \u30cd\u30bf\u5143 www.vba-ie.net","type":"rich","provider_name":"Hatena Blog","image_url":null,"provider_url":"https://hatena.blog","author_name":"shikaku","title":"ExcelVBA 1\u968e\u5c64\u4e0a\u306e\u89aa\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u30d1\u30b9\u3092\u53d6\u5f97\u300cParentDirName\u300d"}