再问往*.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)
    ' 打开文件以追加数据
    Open "d:\excel.csv" For Append As #1
      
    ' 写入一行数据
    'Print #1, a & "," & b & "," & c & "," & d & "," & e & "," & f & "," & g & "," & h & "," & i & "," & j & "," & k & "," & l & "," & m
     Print #1, a, b, c, d, e, f, g, h, i, j, k, l, m
    ' 关闭文件
    Close #1
End Sub

Dim data(1 To 13) As String
data(1) = Date
    data(2) = Time
    data(3) = d
    data(4) = Label8.Caption
    data(5) = Label10.Caption
    data(6) = Label12.Caption
    data(7) = Label15.Caption
    data(8) = Label17.Caption
    data(9) = Label19.Caption
    data(10) = Label25.Caption
    data(11) = Label27.Caption
    data(12) = Label29.Caption

data(13) = "启动"
            
            Call SaveData(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))

请问专家，如何解决？谢谢

Answer 1

data(1)=Str(Date)
Print #1,CHR(34) & a & CHR(34) & "," & ……