Update CSVinterfaceTest.bas

Author: ws-garcia

src/CSVinterfaceTest.bas

@@ -4,16 +4,17 @@ Sub Test_Import()
     Dim CSVix As CSVinterface
     Dim s As Double, e As Double, H As Double
     Dim fileName As String, i As Single
-
+    Dim tmpCSV As String
+	 
     Set CSVix = New CSVinterface
 
-    fileName = ThisWorkbook.path & "\Demo_400k_records.csv"
+    fileName = "C:\Demo_400k_records.csv"
+	 tmpCSV = CSVix.GetDataFromCSV(fileName)
 
     H = 0#
     For i = 1 To 10
         s = Timer
-        Call CSVix.OpenConnection(fileName)
-        Call CSVix.ImportFromCSV
+        Call CSVix.ImportFromCSVString(tmpCSV)
         e = Timer
         H = H + (e - s)
     Next i