{"blog_title":"\u81ea\u5206\u65b9\u4f4d\u7814\u7a76\u6240","provider_url":"https://hatena.blog","width":"100%","type":"rich","provider_name":"Hatena Blog","title":"(Excel VBA) \u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u3092\u8868\u793a\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u30d5\u30eb\u30d1\u30b9\u3092\u53d6\u5f97","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.mypath-as-variant.com%2Fentry%2F2022%2F02%2F13%2F235451\" title=\"(Excel VBA) \u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u3092\u8868\u793a\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u30d5\u30eb\u30d1\u30b9\u3092\u53d6\u5f97 - \u81ea\u5206\u65b9\u4f4d\u7814\u7a76\u6240\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/k/k-emu/20220213/20220213235244.jpg","categories":["Excel VBA"],"published":"2022-02-13 23:54:51","author_url":"https://blog.hatena.ne.jp/k-emu/","version":"1.0","author_name":"k-emu","blog_url":"https://www.mypath-as-variant.com/","height":"190","description":"\u300c\u306f\u3066\u306a\u30d6\u30ed\u30b0\u8a18\u4e8b\u306e\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7\u3092\u4f5c\u6210\u3059\u308b\u300d\u306e\u7d9a\u304d\u3067\u3059\u3002 \u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u305f\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u30d5\u30a1\u30a4\u30eb(\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb)\u3092Excel VBA\u3067\u52a0\u5de5\u3057\u3066\u3001\u8a18\u4e8b\u4e00\u89a7\u3092\u4f5c\u308d\u3046\u3068\u3057\u3066\u3044\u308b\u308f\u3051\u3067\u3059\u304c\u3001\u5148\u305a\u3001\u52a0\u5de5\u3059\u308b\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3059\u308b\u305f\u3081\u306e\u30b3\u30fc\u30c9\u3092\u4f5c\u6210\u3057\u307e\u3057\u305f\u3002 Excel\u3092\u8d77\u52d5\u3057\u3066\u3001\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002 Sub \u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u3092\u8868\u793a\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u30d5\u30eb\u30d1\u30b9\u3092\u53d6\u5f97() Dim filePas As String filePas = Application.GetOpenFilename( _ FileFilter:=\"Text File(*.txt),*.tx\u2026","url":"https://www.mypath-as-variant.com/entry/2022/02/13/235451"}