diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 919de8e7..713b3359 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -59,15 +59,21 @@ End Sub
 '������True�A�f�[�^���擾�ł��Ȃ������ꍇFalse��Ԃ�
 Function runExportFlow() As Boolean
     Dim resData As Variant
+    Dim t0 As Double, t1 As Double, t2 As Double
 
     Debug.Print "�f�[�^�擾�����J�n�iExport�����j"
+    t0 = Timer
     resData = exportCSVData(tableId)
+    t1 = Timer
+    Debug.Print "  exportCSVData(API�ʐM) ���v����: " & Format(t1 - t0, "0.000") & "�b"
 
     If IsEmpty(resData) Or resData = "" Then
         Debug.Print "�f�[�^���擾�ł��܂���ł���"
         runExportFlow = False
     Else
         Call exportCSVDataToSheet(resData, tableId & "E")
+        t2 = Timer
+        Debug.Print "  exportCSVDataToSheet(�p�[�X+����) ���v����: " & Format(t2 - t1, "0.000") & "�b"
         runExportFlow = True
     End If
 End Function
@@ -77,9 +83,13 @@ End Function
 '������True�A�f�[�^���擾�ł��Ȃ������ꍇFalse��Ԃ�
 Function runGetFlow() As Boolean
     Dim records As Collection
+    Dim t0 As Double, t1 As Double, t2 As Double
 
     Debug.Print "�f�[�^�擾�����J�n�iGet�����j"
+    t0 = Timer
     Set records = getRecordsData(tableId)
+    t1 = Timer
+    Debug.Print "  getRecordsData(API�ʐM) ���v����: " & Format(t1 - t0, "0.000") & "�b"
 
     If records Is Nothing Then
         Debug.Print "�f�[�^���擾�ł��܂���ł���"
@@ -89,6 +99,8 @@ Function runGetFlow() As Boolean
         runGetFlow = False
     Else
         Call getRecordsDataToSheet(records, tableId & "G")
+        t2 = Timer
+        Debug.Print "  getRecordsDataToSheet(����) ���v����: " & Format(t2 - t1, "0.000") & "�b"
         runGetFlow = True
     End If
 End Function