作成途中 Option Explicit Sub すべてのファイルに値を代入() 'FSOを宣言 Dim fso_lord As Object: Set fso_lord = CreateObject("scripting.filesystemobject") Dim wbPath As Variant Dim myfiles As Variant Dim file As Variant Dim Input_wb As Workboo…