diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 829849ee..3a9fadb6 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -198,13 +198,15 @@ Function exportCSVDataToSheet(csvData As Variant, targetSheet As String)
         Set tbl = ws.ListObjects(targetSheet)
         On Error Goto 0
 
+            '�w�b�_�s�̓e�[�u���̗L���Ɋւ�炸����CSV��1�s��(arr(0,*))�ōX�V����i��\���̕ύX�ɒǏ]���邽�߁j
+            Dim headerRange As Range
+            Set headerRange = ws.Range("A1").Resize(1, maxCols)
+            For j = 0 To maxCols - 1
+                headerRange.Cells(1, j + 1).Value = arr(0, j)
+            Next j
+
             If tbl Is Nothing Then
                 Debug.Print "�e�[�u�������݂��Ȃ����ߐV�K�쐬: " & targetSheet
-                Dim headerRange As Range
-                Set headerRange = ws.Range("A1").Resize(1, maxCols)
-                For j = 0 To maxCols - 1
-                    headerRange.Cells(1, j + 1).Value = arr(0, j)
-                Next j
                 Set tbl = ws.ListObjects.Add(xlSrcRange, headerRange, , xlYes)
                 tbl.Name = targetSheet
             End If