{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F02%2F14%2F112537\" title=\"ExcelVBA\u3067\u30d5\u30a9\u30eb\u30c0\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0 - 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>","provider_url":"https://hatena.blog","categories":["ExcelVBA"],"version":"1.0","title":"ExcelVBA\u3067\u30d5\u30a9\u30eb\u30c0\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0","blog_url":"https://blog.systemjp.net/","type":"rich","width":"100%","blog_title":"shikaku's blog","description":"With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = \"c:\\\" '\u521d\u671f\u30d5\u30a9\u30eb\u30c0 If .Show = True Then MsgBox = .SelectedItems(1) End If End With \u30cd\u30bf\u5143 http://officetanaka.net/excel/vba/tips/tips39.htm http://www.excel.studio-kazu.jp/kw/20090401113332.html","height":"190","image_url":null,"provider_name":"Hatena Blog","author_name":"shikaku","published":"2020-02-14 11:25:37","url":"https://blog.systemjp.net/entry/2020/02/14/112537","author_url":"https://blog.hatena.ne.jp/shikaku/"}