一个困惑新手的难题，ＶＢ读取ＣＶＳ文件的问题急待高人指点．

Question

各位朋友大家好． 
　　我是个新手，现在遇到这样一个问题．使我很困惑． 
　　我要把存放在Ａ盘里的实验数据（＊．ＣＳＶ格式的）读出到ＥＸＣＬＥ表格中． 　　具体是这样的： 
　　Ａ：／００１／ＳＯＫ．ＣＳＶ　文件存放了如下５行实验数据： 
　　－－－－－－－－－－－－－－－　　 
　 6.67,    6.67,    0.00,,,,, 
   7.67,    6.67,    0.00,,,,, 
   8.67,    6.67,    0.00,,,,, 
   8.67,    6.67,    0.00,,,,, 
   6.67,    6.67,    0.00,,,,, 
　　－－－－－－－－－－－－－－－ 
　　我现在想要把＂每行的第一个数字＂读取到一个ＥＸＣＬＥ表格中． 
　　想生成这样的一个ＥＸＣＬＥ表格： 
　　－－－－－－－－－－－－－－－－－ 
　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　 
　日期　6.67   7.67  8.67  8.67  6.67　
　　．．．．．．
　　．．．．．． 
   －－－－－－－－－－－－－－－－－ 
　　这个表格的数据是可以每天累计追加的． 
　　 
　　麻烦各位朋友救命啊，小弟将万分感激！
　　我的油箱：[email protected]　 ＂如果给分没有限制的话，我愿给出一万分！＂

Answer 1

調用ＥＸＣＬＥ本身的打開文件方法，
指定相應的參數即可。相當EASY！！！！

Answer 2

创建Excel对象,用Excel对象控制数据的填充

Answer 3

csv是文本文件，用VB打开文件，分析文件内容就可以取出每行的第一个数字。
然后用VBA控制，将数据插入EXCEL中。具体可以到EXCEL中录制宏看一下。╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

Answer 4

如果你的機器安裝sqlserver2000，那麼通過sqlserver2000來打開它

Answer 5

Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim i As Integer, tmp As String, arr() As String, num(1 to 5) As SingleSet cn ＝ New ADODB.Connection
cn.Open "Provider=Misrosoft.Jet.OLEDB.4.0;Data Source=C:\My Documents\test.xls;Extended Properties=Excel 8.0;"Open "A:/001/sok.csv" For Input As #1
For i = 1 To 5
    Line Input #1, tmp
    arr = Split(tmp, ",")
    num(i) = arr(0)
Next i
Close #1Set rs ＝ New ADODB.Recordset
Set rs.Open "Select * From [Sheet1$] Where [A] = '" & Format(Date, "yyyy-mm-dd") & "'"If rs.EOF Then
    cn.Execute "Insert Into [Sheet1$](A, B, C, D, E, F) Values('" &  Format(Date, "yyyy-mm-dd") & "'," & num(1) & "," & num(2) & "," & num(3) & "," & num(4) & "," & num(5) & ")"Else
    cn.Execute "Update [Sheet1$] Set B=B+" & num(1) & ",C=C+" &num(2) & ", D=D+" & num(3) & ",E=E+" & num(4) & ",F=F+" & num(5) & " Where A ='" & Format(Date, "yyyy-mm-dd") & "'"End Ifrs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing