Fehler bei CreateObject("Scripting.FileSystemObjec
11.12.2013 23:32:08
EaterJoe
ich habe ein VBA Makro, das seit Jahren funktioniert. seit einigen Tagen habe ich es aber nicht gestartet und plötzlich kommt bei meiner Funktion in der Zeile mit "Set fs" der Fehler "Laufzeitfehler '432': Datei- oder Klassenname während Automatisierungsoperation nicht gefunden". Hier das Makro:
Sub ProtokollSchreiben(text As String)
Const ForWriting = 2, ForAppending = 8
Dim protokolldatei
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
protokolldatei = ActiveWorkbook.Sheets(kat).Cells(7, 8).Value
Set f = fs.OpenTextFile(protokolldatei, ForAppending, True)
f.Write text & Chr(13) & Chr(10)
f.Close
End Sub
Ich habe heute den ESET Online Scanner deinstalliert. kann das schuld sein?
was läuft da bitte ins Leere?
Danke und liebe Grüße
EaterJoe