Csv 在vb中进行的简单更改

这是我正在使用的代码。我想删除CSV文件的第一行并使用所有其他行。在我的输入csv文件中，第一行始终是

2014年7月1日，RBC BASELII 2014年7月1日

---

现在，如果我去掉逗号，只保留一个逗号，程序运行良好。但是，如果我用10-12个逗号将该行保持为原始格式，则当我运行该程序时，整个文件将变为空。

在Split（）命令之后，似乎有一个字符串数组。尝试以下操作（从i=2开始迭代）：

---

您好，

谢谢您的回复，但我现在尝试了，但它不起作用。那么，输出是什么？“不工作”是什么意思？请说得更具体些。你好，对不起！整个文本被删除了，我是说所有的行。文件大小从1 mb变为零。在a=Split（f.ReadAll，vbNewLine，-1，vbTextCompare）行之后，检查数组a是否包含任何文本。数组在Split行之后有一些数据。

Sub Command3_Click()
      Dim fs As FileSystemObject
      Dim f As TextStream
      Dim a As Variant
      Dim i As Long

      Set fs = CreateObject("Scripting.FileSystemObject")

      ' Read file into array
       If fs.FileExists("C:\Abhi\Code test\rbc.csv") Then
           Set f = fs.OpenTextFile("C:\rbc.csv", ForReading, False)
           a = Split(f.ReadAll, vbNewLine, -1, vbTextCompare)
           f.Close
       Else
           MsgBox "The file path is invalid.", vbCritical, vbNullString
           Exit Sub
       End If
      ' Write line > 1 to file
      Set f = fs.OpenTextFile("C:\rbc.csv", ForWriting, True)
      For i = 1 To UBound(a)
        f.WriteLine a(i)
      Next
      f.Close
End Sub

  For i = 2 To UBound(a)
    f.WriteLine a(i)
  Next