1,安,安安,45483
2,安,安安,45483
3,安,安安,45483
Dim objStream As New ADODB.Stream
Dim txtFile() As String
Dim txtLine() As String
Dim dir As String: dir = "C:\"
Dim fName As String: fName = "test.txt"
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (dir & fName)
Dim strData As String: strData = objStream.ReadText()
Dim count As Integer: count = 0
txtFile = Split(strData, Chr(13) & Chr(10))
For count = 0 To UBound(txtFile) - 1
txtLine = Split(txtFile(count), ",")
Next
