fix: getRecordsDataToSheetのrec変数をDictionary型に変更しByRef型不一致を解消

FlattenRecord(record As Dictionary)へVariant型変数をByRef渡ししていたためVBEでコンパイルエラー発生。呼び出し側の変数型をDictionaryに合わせて修正。

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