{"author_name":"jyukutyo","provider_name":"Hatena Blog","categories":["excel"],"title":"\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\u3042\u308bExcel\u30d5\u30a1\u30a4\u30eb\u3092\u3059\u3079\u3066\u5370\u5237\u3059\u308b\u30de\u30af\u30ed","type":"rich","image_url":null,"version":"1.0","blog_url":"https://www.sakatakoichi.com/","provider_url":"https://hatena.blog","blog_title":"Fight the Future","width":"100%","published":"2009-01-20 02:45:46","url":"https://www.sakatakoichi.com/entry/20090119/1232325946","height":"190","author_url":"https://blog.hatena.ne.jp/jyukutyo/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.sakatakoichi.com%2Fentry%2F20090119%2F1232325946\" title=\"\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\u3042\u308bExcel\u30d5\u30a1\u30a4\u30eb\u3092\u3059\u3079\u3066\u5370\u5237\u3059\u308b\u30de\u30af\u30ed - Fight the Future\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u8a2d\u5b9a\u66f8\u3092\u5370\u5237\u3059\u308b\u3063\u3066\u4f5c\u696d\u304c\u3042\u3063\u305f\u306e\u3067\u3001\u30de\u30af\u30ed\u3067\u5370\u5237\u3057\u305f\u3002 \u6570\u5206\u3067\u66f8\u3044\u305f\u306e\u3067\u3001\u30de\u30af\u30ed\u3092F5\u3067\u76f4\u63a5\u5b9f\u884c\uff06\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u56fa\u5b9a\u3002\u9069\u5b9c\u66f8\u304d\u63db\u3048\u3066\u4f7f\u3063\u3066\u3002 Sub printOutAllBookInDirectory() Dim fileName As String fileName = Dir(\"C:\\print\" & \"\\*.xls\", vbNormal) Do While fileName <> \"\" Workbooks.Open \"C:\\print\\\" & fileName Workbooks(fileName).Activate ActiveWorkbook.PrintOut Copies:=1,\u2026"}