@@ -544,7 +544,7 @@ Public Sub DumpToSheet(Optional WBookName As String, _
544544 Set outputSheet = WBook.Sheets(SheetName)
545545 Else
546546 Set outputSheet = WBook.Sheets.Add
547- outputSheet.name = SheetName
547+ outputSheet.Name = SheetName
548548 End If
549549 '@------------------------------------------------------
550550 'Dump the data
@@ -1643,7 +1643,7 @@ End Function
16431643Private Function IsSheetInWorkbook (SheetName As String , WBook As Workbook ) As Boolean
16441644 With WBook
16451645 On Error Resume Next
1646- IsSheetInWorkbook = (.Sheets(SheetName).name = SheetName)
1646+ IsSheetInWorkbook = (.Sheets(SheetName).Name = SheetName)
16471647 On Error GoTo 0
16481648 End With
16491649End Function
@@ -1652,7 +1652,7 @@ Private Function IsWorkbookOpen(WBookName As String) As Boolean
16521652
16531653 On Error Resume Next
16541654 For Each WBook In Workbooks
1655- BookMatching = (WBook.name = WBookName)
1655+ BookMatching = (WBook.Name = WBookName)
16561656 If BookMatching Then Exit For
16571657 Next
16581658 IsWorkbookOpen = BookMatching
@@ -2945,6 +2945,7 @@ Private Function RequestedField2(ByVal fieldIndex As Long, _
29452945End Function
29462946Public Sub ResetToDefault ()
29472947 Set config = New CSVparserConfig
2948+ Set P_CSV_DATA = New CSVArrayList
29482949 P_ERROR_DESC = vbNullString
29492950 P_ERROR_NUMBER = 0 &
29502951 P_ERROR_SOURCE = vbNullString
0 commit comments