急急!!CSV文件

Question

现在有一个从EXCEL转变过来的CSV文件，我想读取它。怎么做，谢谢。最好有例子，第一次做这个东东。

Answer 1

open "test.csv" for input as #1
如果用记事本打开，也就是些文本而已。

Answer 2

FF = FreeFile
    
    Open myfileName For Input As #FF
        Do While Not EOF(FF)
            Line Input #FF, lineStr
            strRs = strRs & lineStr & CR
            DoEvents
        Loop
    Close #FF

Answer 3

Private Sub Command1_Click()
    Dim strTmp As String, fPaht As String, strRlt() As String, i As Long
    
    fpath = App.Path & "\test.csv"
    strTmp = Space(FileLen(fpath))
    
    Open fpath For Binary As #1
    Get #1, 1, strTmp
    Close #1    strRlt = Split(strTmp, ",") '得到结果
    
    For i = 0 To UBound(strRlt)
        Debug.Print strRlt(i) & vbCrLf  '打印结果
    Next
End Sub

Answer 4

你的lineStr和strRs 是什么意思

Answer 5

csv文件是以逗号隔开各个数据的，我上面的代码是读文件，然后把各个数据读到数组strRlt里