Fehler Schreiben von Daten in Textdatei

Question

ich Zugriff bin mit Daten in eine Textdatei zu schreiben, aber ich bekomme diese Fehlermeldung

ungültig Prozeduraufruf oder Argument

Was brauche ich, um in zu ändern diese Prozedur, damit Daten erfolgreich geschrieben werden können? Ich habe Zugriff auf den Pfad, und die Datei existiert bereits und ist in meinem Code richtig geschrieben.

Function WriteData(fulllocale As String, tblName As String, CString As String) 
    Dim fso As Object 
    Set fso = CreateObject("Scripting.FileSystemObject") 

    Dim Fileout As Object 
    Set Fileout = fso.OpenTextFile("C:\Test.txt", ForAppending, True) 
    Fileout.Write fulllocale & "," & tblName & "," & CString & vbCrLf 
    Fileout.Close 
End Function 

Answer 1

ForAppending nicht deklariert ist, und da Sie haben anscheinend gebunden spät, um Ihre Scripting.FileSystemObject, ist es zu einem lokalen Variant damit initialisiert immer ist Standardwert.

Sie können dies in Zukunft verhindern, indem Sie Option Explicit oben auf alle Module setzen.

Fügen Sie entweder den Verweis die Microsoft Scripting Runtime hinzu (es gibt absolut keinen Grund nicht), oder verwenden Sie den Ganzzahlwert der IOMode. In diesem Fall ForAppending, das ist 8: