1.用ado如何读取csv文件?
2.假如有如下格式的csv文件,如何用fso或file方法获取有多少行?
  有三个字段分别为a,b,c,值分别为
  1,2,3,01,02,03....
  它的字段值用,分开,而行也用,分开,如何获取有多少行?
谢谢各位!

解决方案 »

  1.   

    用ado来读csv文件
    Public Function Read_CSV_File() As ADODB.Recordset      Dim rs As ADODB.Recordset
          Set rs = New ADODB.Recordset
          Dim conn As ADODB.Connection
          Set conn = New ADODB.Connection
          conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                      "DBQ=" & App.Path & ";", "", ""      rs.Open "select * from [CSV_Sample_File#csv]", conn, adOpenStatic, _
                      adLockReadOnly, adCmdText
          Set Read_Text_File = rs
          Set rs = Nothing
          Set conn = Nothing
    End Function
    Private Sub cmdReadCSV_Click()
          Set dgData.DataSource = Read_CSV_File()
    End Sub
      

  2.   

    用fso也可以,我一般用file的方法,计数有多少个 vbLf 呗,很可靠。(你只说数有多少行吗)
      

  3.   

    是啊,但是行与行之间是用逗号分开,而字段也用逗号分开的,怎么计算行数?to  online(龙卷风V2.0--再战江湖),这种读法,行值是以什么分行的?