@@ -34,7 +34,7 @@ Sub ImportRecords_RFC4180()
3434
3535 filePath = "C:\Demo_400k_records.csv" 'Change this to suit your needs
3636 Set CSVix = New CSVinterface 'Create new instance
37- Call CSVix.OpenConnection(fileName ) 'Open a physical connection to the CSV file
37+ Call CSVix.OpenConnection(filePath ) 'Open a physical connection to the CSV file
3838 Call CSVix.ImportFromCSV 'Import data
3939 Call CSVix(MyArray) 'Dumps the data to array
4040 Set CSVix = Nothing 'Terminate the current instance
@@ -60,7 +60,7 @@ Sub ImportTopTenRecords_RFC4180()
6060 filePath = "C:\Demo_400k_records.csv" 'Change this to suit your needs
6161 Set CSVix = New CSVinterface 'Create new instance
6262 CSVix.EndingRecord = 10 'Sets the importation ending
63- Call CSVix.OpenConnection(fileName ) 'Open a physical connection to the CSV file
63+ Call CSVix.OpenConnection(filePath ) 'Open a physical connection to the CSV file
6464 Call CSVix.ImportFromCSV 'Import the range of records
6565 Call CSVix(MyArray) 'Dumps the data to array
6666 Set CSVix = Nothing 'Terminate the current instance
@@ -138,7 +138,7 @@ Sub ImportRecords()
138138
139139 filePath = "C:\Demo_400k_records.csv" 'Change this to suit your needs
140140 Set CSVix = New CSVinterface 'Create new instance
141- Call CSVix.OpenConnection(fileName ) 'Open a physical connection to the CSV file
141+ Call CSVix.OpenConnection(filePath ) 'Open a physical connection to the CSV file
142142 CSVix.QuotingMode = QuotationMode.All 'Alter behavior for escaped files
143143 CSVix.EscapeToken = EscapeTokens.NullChar 'Specify that CSV file has neither field needing to be escaped.
144144 Call CSVix.ImportFromCSV 'Import data
@@ -155,7 +155,7 @@ Sub ImportRecords_RFC4180()
155155
156156 filePath = "C:\Demo_Headed_400k_records.csv" 'Change this to suit your needs
157157 Set CSVix = New CSVinterface 'Create new instance
158- Call CSVix.OpenConnection(fileName ) 'Open a physical connection to the CSV file
158+ Call CSVix.OpenConnection(filePath ) 'Open a physical connection to the CSV file
159159 Call CSVix.ImportFromCSV 'Import data
160160 Call CSVix.DumpToSheet 'Dumps the data to the current Workbook's new Worksheet starting at named "A1" range.
161161 Set CSVix = Nothing 'Terminate the current instance
@@ -179,7 +179,7 @@ Sub ImportRecords()
179179
180180 filePath = "C:\Demo_Headed_400k_records.csv" 'Change this to suit your needs
181181 Set CSVix = New CSVinterface 'Create new instance
182- Call CSVix.OpenConnection(fileName ) 'Open a physical connection to the CSV file
182+ Call CSVix.OpenConnection(filePath ) 'Open a physical connection to the CSV file
183183 CSVix.QuotingMode = QuotationMode.All 'Alter behavior for escaped files
184184 CSVix.EscapeToken = EscapeTokens.DoubleQuotes 'Specify that all fields need to be escaped.
185185 Call CSVix.ImportFromCSV 'Import data
0 commit comments