Dim ObjEDR As BJACApp
Dim Path As String
Path = 'assume this is the correct path to the file i want to open
Set ObjEDR = New BJACApp ' Create the BJAC object
If Not ObjEDR.FileOpen(Path) Then
MsgBox "Can't open file!"
End If
'...
Set ObjEDR = Nothing
das problem ist: wenn ich das objekt wieder freigebe, gibt Excel den verwendeten Arbeitsspeicher nicht wieder frei (laut task manager). Nach ein paar hudnert iterationen ist dann logischer weise mein Arbeitspeicher voll und ich erhalte eine fehlermeldung.
In Foren habe ich gelesen, dass =Nothing nur die Referenz zum Objekt trennt, nciht aber das Objekt löscht. Deswegen habe ich zusätzlich FileClose probiert:
ObjEDR.FileClose
Set ObjEDR = Nothing
der Befehl FileClose gibt ein Teil des Arbeitsspeichers zurück, aber leider nur 0m5 von 3 MB pro aufruf des Objekts.
Aufgrund eines foreneintrags habe ich versucht, das "new" statement vor "new BJACApp" zu entfernen, aber das resultiert in "runtime error'424': Object required"
Danke für die Hilfe :)