Skip to content

Commit e74244f

Browse files
committed
Bug fixed: data container is initialized together with the instance of class
1 parent 7f05b37 commit e74244f

File tree

2 files changed

+4
-3
lines changed

2 files changed

+4
-3
lines changed

src/Access_version.zip

1 Byte
Binary file not shown.

src/CSVinterface.cls

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -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
16431643
Private 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
16491649
End 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, _
29452945
End Function
29462946
Public 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

Comments
 (0)