Excel VBA スニペット ファイルオブジェクト生成 Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject") 2019.09.04 Excel VBA スニペットFile