{"height":"190","author_name":"t-hom","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/t-hom/","width":"100%","blog_url":"https://thom.hateblo.jp/","type":"rich","image_url":"https://cdn.blog.st-hatena.com/images/theme/og-image-1500.png","description":"\u958b\u767a\u4e2d\u306e\u30de\u30af\u30ed\u3067\u3001\u3053\u307e\u3081\u306b\u4fdd\u5b58\u3057\u3066\u304a\u304d\u305f\u3044\u30b1\u30fc\u30b9\u304c\u3042\u3063\u305f\u306e\u3067\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u307f\u305f\u3002 \u3053\u308c\u306f\u958b\u767a\u4e2d\u306e\u30d6\u30c3\u30af\u306b\u57cb\u3081\u8fbc\u3093\u3067\u5229\u7528\u3059\u308b\u524d\u63d0\u3002\u79c1\u306f\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u300cDevTools\u300d\u306b\u4fdd\u5b58\u3057\u3066\u4f7f\u3063\u3066\u3044\u308b\u3002 Sub BackupFile() 'Microsoft Scripting Runtime\u3078\u306e\u53c2\u7167\u8a2d\u5b9a\u304c\u5fc5\u8981 Dim fso As FileSystemObject: Set fso = New FileSystemObject With ThisWorkbook Dim f As File: Set f = fso.GetFile(.FullName) Dim backupFolderPath As St\u2026","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fthom.hateblo.jp%2Fentry%2F2019%2F06%2F22%2F091943\" title=\"VBA \u958b\u767a\u4e2d\u30de\u30af\u30ed\u30d6\u30c3\u30af\u306e\u30d0\u30c3\u30af\u30a2\u30c3\u30d7\u3092\u53d6\u308b\u30de\u30af\u30ed - t-hom\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"t-hom\u2019s diary","categories":["VBA"],"provider_url":"https://hatena.blog","url":"https://thom.hateblo.jp/entry/2019/06/22/091943","published":"2019-06-22 09:19:43","title":"VBA \u958b\u767a\u4e2d\u30de\u30af\u30ed\u30d6\u30c3\u30af\u306e\u30d0\u30c3\u30af\u30a2\u30c3\u30d7\u3092\u53d6\u308b\u30de\u30af\u30ed"}