diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 3a528182..829849ee 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -599,29 +599,18 @@ Sub SetupFilterSorterTables()
 End Sub
 
 '******************************************************************************
-'���ɑ��݂���V�[�g�E�e�[�u���ɂ̂�CSV�f�[�^�i�w�b�_�s�������j���㏑������B
-'�e�[�u�����͖�킸�V�[�g��̍ŏ��̃e�[�u����Ώۂɂ���B�V�[�g��e�[�u�������݂��Ȃ��ꍇ��
-'�V�K�쐬�������b�Z�[�W���o���ďI������
-Function exportCSVDataToExistingTable(csvData As Variant, targetSheet As String)
-    Debug.Print "CSV�f�[�^�������e�[�u���ɏo�͊J�n: " & targetSheet
-
-    Dim ws As Worksheet
-    On Error Resume Next
-    Set ws = ThisWorkbook.Sheets(targetSheet)
-    On Error GoTo 0
-
-    If ws Is Nothing Then
-        MsgBox "�V�[�g�����݂��܂���: " & targetSheet, vbExclamation
-        Exit Function
-    End If
-
-    If ws.ListObjects.count = 0 Then
-        MsgBox "�e�[�u�������݂��܂���: " & targetSheet, vbExclamation
-        Exit Function
-    End If
+'�u�b�N���̑S�V�[�g����e�[�u�����Ńe�[�u���iListObject�j��T���ACSV�f�[�^�i�w�b�_�s�������j���㏑������B
+'�V�[�g���͖��Ȃ��B�e�[�u�������‚���Ȃ��ꍇ�͐V�K�쐬�������b�Z�[�W���o���ďI������
+Function exportCSVDataToExistingTable(csvData As Variant, tableName As String)
+    Debug.Print "CSV�f�[�^�������e�[�u���ɏo�͊J�n: " & tableName
 
     Dim tbl As ListObject
-    Set tbl = ws.ListObjects(1)
+    Set tbl = FindListObjectByName(tableName)
+
+    If tbl Is Nothing Then
+        MsgBox "�e�[�u�������݂��܂���: " & tableName, vbExclamation
+        Exit Function
+    End If
 
     Dim i As Long, j As Long
     Dim arr() As Variant
@@ -631,7 +620,7 @@ Function exportCSVDataToExistingTable(csvData As Variant, targetSheet As String)
     Set rows = ParseCsv(csvData)
 
     If rows.count <= 1 Then
-        MsgBox "�f�[�^�����݂��܂���i�w�b�_�̂݁j: " & targetSheet, vbExclamation
+        MsgBox "�f�[�^�����݂��܂���i�w�b�_�̂݁j: " & tableName, vbExclamation
         Exit Function
     End If
 
@@ -668,7 +657,7 @@ Function exportCSVDataToExistingTable(csvData As Variant, targetSheet As String)
     Next i
     tbl.DataBodyRange.Value = dataArr
 
-    Debug.Print "CSV�f�[�^�������e�[�u���ɏo�͊���: " & targetSheet
+    Debug.Print "CSV�f�[�^�������e�[�u���ɏo�͊���: " & tableName
 End Function
 
 '�e�[�u��ID 96243�i�c�Ə��}�X�^�j��Export�����őS���擾���A�u�c�Ə��v�V�[�g�̊����e�[�u�����X�V����