函數來創建新的生產線和新列

Question

我試圖創建一個函數來寫的內容，請在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 

但它不工作（有一個語法錯誤說，在''文件DNE'之前有一條線末端丟失了，我不知道爲什麼它錯了）我也不認爲新列正在工作。任何幫助？謝謝！

Answer 1

你在Else和if之間有一個空格，不應該在那裏。這條線：

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

應該assumedly是：

ElseIf CStr(strCSVOutput) = "*newcolumn*" Then