敬请各位高手用ADO读取CSV文件的某一行。谢谢。

好奇心

附件的“目标.xls”的代码，已检查出“myFile.csv“文件的总行数，希望读入k=总行数/3(取整)行的“myFile.csv“文件的数据，放入“目标.xls”的”Sheet2.Rows(2)“中。
附件的“目标.xls”的代码：
Private Sub CommandButton1_Click()
    Dim myCon, myRst, myCnc As String
    Dim myCmd As String, myFileName As String
    Dim i As Long, j As Integer, k As Integer
     Set myCon = CreateObject("adodb.connection")
     Set myRst = CreateObject("adodb.Recordset")
    myFileName = "myFile.csv"
    myCnc = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
    "DBQ=" & ThisWorkbook.Path & "\;"
    myCmd = "SELECT * FROM " & myFileName
    myCon.Open "Provider=MSDASQL;" & myCnc
      myRst.CursorLocation = 3
    myRst.Open Source:=myCmd, ActiveConnection:=myCon
    With myRst
      i = .RecordCount
      j = .Fields.Count
     ' MsgBox "行数=" & i & Chr(10) & "列数=" & j
      k = i \ 3
      '如何写代码，读入k行的“myFile.csv“文件的数据，放入“目标.xls”的”Sheet2“的第二行中。
    End With
    myCon.Close
    Set myRst = Nothing
    Set myCon = Nothing
End Sub
ADO.rar (736.97 KB, 下载次数: 20)

2014-12-27 15:51 上传

点击文件名下载附件

zhaogang1960

将指针指向第k行，取一行数据：

1. Private Sub CommandButton1_Click()
   
2.     Dim myCon, myRst, myCnc As String
   
3.     Dim myCmd As String, myFileName As String
   
4.     Dim i As Long, j As Integer, k As Integer
   
5.      Set myCon = CreateObject("adodb.connection")
   
6.      Set myRst = CreateObject("adodb.Recordset")
   
7.     myFileName = "myFile.csv"
   
8.     myCnc = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
   
9.     "DBQ=" & ThisWorkbook.Path & "\;"
   
10.     myCmd = "SELECT * FROM " & myFileName
    
11.     myCon.Open "Provider=MSDASQL;" & myCnc
    
12.       myRst.CursorLocation = 3
    
13.     myRst.Open Source:=myCmd, ActiveConnection:=myCon
    
14.     With myRst
    
15.          i = .RecordCount
    
16.          j = .Fields.Count
    
17.         ' MsgBox "行数=" & i & Chr(10) & "列数=" & j
    
18.          k = i \ 3
    
19.         .Move k - 1
    
20.     End With
    
21.     Range("a1").CopyFromRecordset myRst, 1
    
22.     myCon.Close
    
23.     Set myRst = Nothing
    
24.     Set myCon = Nothing
    
25. End Sub
    

复制代码