오류 데이터 쓰기는 파일

Question

내가 텍스트 파일에 데이터를 쓰기 액세스를 사용하고

를 텍스트,하지만 난이 오류를

잘못된 프로 시저 호출 또는 인수가 난에서 변경해야 할 무엇

를 얻을 수 데이터가 성공적으로 기록 될 수 있도록이 절차가 필요합니까? 경로에 대한 액세스 권한이 있으며 파일이 이미 존재하며 코드에 올바르게 입력되어 있습니다.

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 선언, 당신은 분명히 말했습니다 이후 Scripting.FileSystemObject를 바인드되어 있지 않은, 그것은 그것으로 로컬 Variant으로 초기화 점점이 기본값입니다.

나중에 모든 모듈의 맨 위에 Option Explicit을 넣어이를 방지 할 수 있습니다.

Microsoft Scripting Runtime에 대한 참조를 추가하거나 (이럴 이유가 없음) IOMode의 정수 값을 사용하십시오. (8)이 경우, ForAppending에서 :

Set Fileout = fso.OpenTextFile("C:\Test.txt", 8, True)