diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index cf648223..8ea6b9fd 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -416,7 +416,7 @@ Function getRecordsDataToSheet(records As Collection, targetSheet As String)
     End If
 
     Dim flatRecords As New Collection
-    Dim rec As Variant
+    Dim rec As Dictionary
     For Each rec In records
         flatRecords.Add FlattenRecord(rec)
     Next rec