{"image_url":"https://thumbnail.image.rakuten.co.jp/@0_mall/valuemax/cabinet/06069950/imgrc0073377235.jpg?_ex=128x128","provider_name":"Hatena Blog","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdoavengers.hateblo.jp%2Fentry%2F2018%2F11%2F06%2F193453\" title=\"VBA\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u5b58\u5728\u78ba\u8a8d\u3092\u884c\u3046\u65b9\u6cd5 - [VBA,VB.NET,C#,PHP]\u30d7\u30ed\u30b0\u30e9\u30e0Tips\u96c6\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","author_url":"https://blog.hatena.ne.jp/doavengers/","version":"1.0","published":"2018-11-06 19:34:53","blog_url":"https://doavengers.hateblo.jp/","provider_url":"https://hatena.blog","type":"rich","title":"VBA\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u5b58\u5728\u78ba\u8a8d\u3092\u884c\u3046\u65b9\u6cd5","url":"https://doavengers.hateblo.jp/entry/2018/11/06/193453","blog_title":"[VBA,VB.NET,C#,PHP]\u30d7\u30ed\u30b0\u30e9\u30e0Tips\u96c6","description":"\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u524d\u306b\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u5224\u5b9a\u3057\u307e\u3059\u3002 Dim fSo Set fSo = CreateObject(\"Scripting.FileSystemObject\")\u3092\u4f7f\u7528\u3059\u308b\u3002 If fSo.FileExists(Target) Then Const sFullPathAs String = \"C:\\Test.csv\" With CreateObject(\"Scripting.FileSystemObject\") If .FileExists(sFullPathAs ) Then MsgBox sFullPathAs& vbCrLf & \"\u304c\u5b58\u5728\u3057\u307e\u3059\" Else MsgB\u2026","author_name":"doavengers","categories":[]}