向*.csv写数据的问题

Question

我试图向*.csv写入数据
结果如下图

代码：

Public Sub SaveData(a As String, b As String, c As String, d As String, e As String, f As String, g As String, h As String, i As String, j As String, k As String, l As String, m As String, n As String)
    ' 打开文件以追加数据
    'Open "d:\excel.csv" For Append As #1
      
    ' 写入一行数据
    Print #1, a & "," & b & "," & c & "," & d & "," & e & "," & f & "," & g & "," & h & "," & i & "," & j & "," & k & "," & l & "," & m & "," & n
      
    ' 关闭文件
   ' Close #1
End Sub

调用函数

Dim data(0 To 13) As String


Open "d:\excel.csv" For Append As #1
'Currentdatetime = Now()
data(0) = Date
    data(1) = Time
    data(2) = d
    data(3) = Label8.Caption
    data(4) = Label10.Caption
    data(5) = Label12.Caption
    data(6) = Label15.Caption
    data(7) = Label17.Caption
    data(8) = Label19.Caption
    data(9) = Label25.Caption
    data(10) = Label27.Caption
    data(11) = Label29.Caption
    data(13) = Chr(13)

data(12) = "启动"
            
            SaveData data(0), data(1), data(2), data(3), data(4), data(5), data(6), data(7), data(8), data(9), data(10), data(11), data(12), data(13)
            'Print #1, data(1)
Close #1

请问专家，哪里出了问题？谢谢

Answer 1

Public Sub SaveData(a As String, b As String, c As String, d As String, e As String, f As String, g As String, h As String, i As String, j As String, k As String, l As String, m As String, n As String)
    ' 打开文件以追加数据
   Open "d:\excel.csv" For Append As #1
      
    ' 写入一行数据
    Print #1, a & "," & b & "," & c & "," & d & "," & e & "," & f & "," & g & "," & h & "," & i & "," & j & "," & k & "," & l & "," & m & "," & n
      
    ' 关闭文件
    Close #1
End Sub