读取CSV文件数据, 高手帮忙, 在线等待...

Question

CSV文件的格式:"0","文件读取之后要存储的Excel文件名"
"1","EXCEL文件中的标题部","日期"
"2","data1","data2","data3","data4"
"2","data1","data2","data3","data4"
"2", .............................
..................................
"2","data1","data2","data3","data4"
"0" ....
"1" ....
"2" ....
"2" ....
..................................现在主要的问题就是: 怎样根据第一列的数据(0,1,2)来读取后边的数据???
比如: 当第一列是"2"时, 怎样取得后边的data, 填入EXCEL表中的对应位置????
我要的是直接从CSV文件中读取!能解决这个问题的前辈, 请给我提点意见, 急用, 谢谢......

Answer 1

这个非常简单，，我以前就做过，，不过，你的每个数据项上都有“”双引号吗？？？找我联系吧，，我可以给你做一个程序，[email protected] 最好把你的.csv文件给我发过来。

Answer 2

用FSO对象里的readLine读行,然后对字符串做处理,应该不难,和读ini文件差不多

Answer 3

TO FlingZFX:
我发给你的是一个DAT文件, 其实DAT和CSV是一样的! :)
谢谢你的帮忙!!!!

Answer 4

>>O_O<<有没有收到我的Mail????

Answer 5

还没有呀，，，，晕死了。。这几天hotmail怎么了？？？抽什么风？？对了，你不会直接在MSN上加我为好友呀？？？那样交流更方便。

Answer 6

我要哭拉.....我上不了MSN , 公司有限制...;
你有没有163的邮箱?????5点之前要搞定的..
5555555555555555555555555555555555555555555555555

Answer 7

你就当作是女的吧, GIRL会有比较多的人帮忙啊!!!!!!被帮的人得到帮助, 帮的人也帮得高兴, 何乐而不为呢!

Answer 8

......你就看着办吧!!!!4点半拉>>>>>>>>>>>>>>>>>>>>>>>>

Answer 9

Option ExplicitPrivate Sub Command1_Click()
        Dim FileObj As Scripting.FileSystemObject
        Dim TextObj As TextStream
        Dim strFile As String
        Dim strArrFile() As String
        Dim strTemp As String
        Dim strArr() As String
        Dim strArrRow() As String
        Dim ExcelObj As Excel.Application
        Dim WorkBookObj As Excel.Workbook
        Dim WorkSheetObj As Excel.Worksheet
        Dim CurFileName As String
        
        Dim i As Long
        Dim j As Long
        Dim M As Long
        
        Set FileObj = New Scripting.FileSystemObject
        
        If FileObj.FileExists(App.Path & "\a.csv") = True Then
               Set TextObj = FileObj.OpenTextFile(App.Path & "\a.csv", ForReading)
               strFile = TextObj.ReadAll
               '拆成文件
               strArrFile = Split(strFile, """0"",")
               
               For i = 1 To UBound(strArrFile)
                     '拆出文件内容
                     strArr = Split(strArrFile(i), vbCrLf)
                     Debug.Print strArrFile(1)
                     CurFileName = strArr(0)
                     CurFileName = Left(CurFileName, Len(CurFileName) - 1)
                     CurFileName = Right(CurFileName, Len(CurFileName) - 1)
                     
                     Set ExcelObj = CreateObject("Excel.Application")
                     Set WorkBookObj = ExcelObj.Workbooks.Add
                     Set WorkSheetObj = WorkBookObj.Sheets(1)
                     strArrRow = Split(strArr(1), ",")
                     '标题-----------------
                     strTemp = strArrRow(1)
                     strTemp = Left$(strTemp, Len(strTemp) - 1)
                     strTemp = Right$(strTemp, Len(strTemp) - 1)
                     WorkSheetObj.Cells(1, 1) = strTemp
                     '日期------------------
                     strTemp = strArrRow(2)
                     strTemp = Left$(strTemp, Len(strTemp) - 1)
                     strTemp = Right$(strTemp, Len(strTemp) - 1)
                     WorkSheetObj.Cells(1, 2) = strTemp
                     '记录------------------
                     For j = 2 To UBound(strArr) - 1
                           Erase strArrRow
                           strArrRow = Split(strArr(j), ",")
                           For M = 1 To UBound(strArrRow)
                                 strTemp = strArrRow(M)
                                 strTemp = Left(strTemp, Len(strTemp) - 1)
                                 strTemp = Right(strTemp, Len(strTemp) - 1)
                                 WorkSheetObj.Cells(j, M) = strTemp
                           Next M
                     Next j
                     'Debug.Print App.Path & "\" & CurFileName
                     WorkBookObj.SaveAs App.Path & "\" & CurFileName
                     WorkBookObj.Close
                     Set WorkSheetObj = Nothing
                     Set WorkBookObj = Nothing
                     ExcelObj.Quit
                     Set ExcelObj = Nothing
               Next i
               TextObj.Close
               Set TextObj = Nothing
        End If
        Set FileObj = Nothing
        MsgBox "成功!", vbInformation + vbOKOnly, "系统提示"
End Sub

Answer 10

我的天呀!!!!终于成功了!!!!
程序中需要引用  microsoft excel 10.0 object librarymicrosoft scripting runtime

Answer 11

我自己做的一个a.csv文件内容如下：
"0","文件读取之后要存储的Excel文件名1"
"1","EXCEL文件中的标题部1","日期"
"2","1data11","data2","data3","data4","data5"
"2","2data11","data2","data3","data4","data5"
"2","3data11","data2","data3","data4","data5"
"2","4data11","data2","data3","data4","data5"
"2","5data11","data2","data3","data4","data5"
"0","文件读取之后要存储的Excel文件名2"
"1","EXCEL文件中的标题部2","日期"
"2","1data21","data2","data3","data4"
"2","2data21","data2","data3","data4"
"2","3data21","data2","data3","data4"
"2","4data21","data2","data3","data4"
"2","5data21","data2","data3","data4"
"2","6data21","data2","data3","data4"
"0","文件读取之后要存储的Excel文件名3"
"1","EXCEL文件中的标题部3","日期"
"2","1data31","data2","data3","data4"
"2","2data31","data2","data3","data4"
"2","3data31","data2","data3","data4"
"2","4data31","data2","data3","data4"
"0","文件读取之后要存储的Excel文件名4"
"1","EXCEL文件中的标题部4","日期"
"2","1data41","data2","data3","data4"
"2","2data41","data2","data3","data4"
"2","3data41","data2","data3","data4"
"2","4data41","data2","data3","data4"
"0","文件读取之后要存储的Excel文件名5"
"1","EXCEL文件中的标题部5","日期"
"2","1data51","data2","data3","data4"
"2","2data51","data2","data3","data4"
"2","3data51","data2","data3","data4"
"2","4data51","data2","data3","data4"

Answer 12

辛苦拉.. 100分就给你吧, 着100分你拿地挺轻松的嘛!!!!
HoHoHoHo.......................................

Answer 13

以后该有任务在找你, OK 
我的MSN:[email protected]