0

コンテンツを書き込み、csv出力ファイルに新しい行と新しい列を作成する関数を作成しようとしています ここに私が持っている関数があります:

Function WriteOutputToCSV(strCSVOutput)
'Check if file exists & write the data
On Error Resume Next

Set objUserCSV = objCSV.OpenTextFile(UserCSV, ForAppending)

If objCSV.FileExists(UserCSV) Then
   If CStr(strCSVOutput) = "*newline*" Then
    objuserCSV.Write vbcrlf
   Else if CStr(strCSVOutput) = "*newcolumn*" Then
    objuserCSV.value(columncount,1)="***"
    objuserCSV.Write vbcrlf
    columncount = columncount+1
   Else
    If CStr(InStr(1,strCSVOutput, ",")) Then
        strCSVOutput = Chr(34) & strCSVOutput & Chr(34)
    ElseIf CStr(Trim(strCSVOutput)) = "" Then
        strCSVOutput = " " 
    End If  
    objUserCSV.Write strCSVOutput & ","
   End If
Else    
' file DNE
End If

objUserCSV.Close
End Function

しかし、それは機能しません（「'file DNE」の直前の行の終わりが欠落しているという構文エラーがあり、なぜそれが間違っているのかわかりません）また、newcolumn 1が機能しているとは思いません。何か助けはありますか？ありがとう！

4

1 に答える 1

2

Elseとの間にスペースがあっifてはいけません。この行：

Else if CStr(strCSVOutput) = "*newcolumn*" Then

仮定する必要があります:

ElseIf CStr(strCSVOutput) = "*newcolumn*" Then
于 2013-06-24T16:33:46.307 に答える