Merge pull request #8 from marmeleiro/v1.3.4

Waitの秒数を変更

Author: marmeleiro

example/example.xlsm

@@ -8,7 +8,7 @@ Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 ' -----------------------------------------------------------------------
-' kintoneDataReaderforVBA v1.3.3
+' kintoneDataReaderforVBA v1.3.4
 '  -Dictionary.cls と JsonConverter.bas のインポートが必要です。下記から取得してください。
 ' 　  Dictionary.cls：v1.4.1で動作確認
 ' 　    https://github.com/VBA-tools/VBA-Dictionary
@@ -867,7 +867,7 @@ Private Function kvu_GetFieldValue(ByVal FieldType As String, ByVal rec As Varia
     Select Case FieldType
 
         Case "CREATOR", "MODIFIER"
-            Application.Wait [now()+"00:00:01"] 'Excelが落ちてしまう場合があるので回避策
+            Application.Wait [Now()] + 1 / 86400000 'Excelが落ちてしまう場合があるので回避策
             If kvu_isName Then
                 kvu_GetFieldValue = rec("name")
             Else
@@ -995,7 +995,7 @@ End Function
 Private Sub kvu_ClearRecordset()
     kvu_RecordCount = 0
     kvu_TotalRecordCount = 0
-    Application.Wait [now()+"00:00:01"] 'Excelが落ちてしまう場合があるので回避策
+    Application.Wait [Now()] + 1 / 86400000 'Excelが落ちてしまう場合があるので回避策
     DoEvents
     Erase kvu_Recordset
 End Sub