导入数据不全问题

loners462

大家帮忙看下，哪里有问题，导入数据总是导不全，只能导入一半不到

1. Sub 导入()
   
2.     Dim FName As Variant
   
3.     Dim myPath$
   
4.     Dim aFile
   
5.     Dim i
   
6.     Dim cnn
   
7.     Dim rs
   
8.     Dim sql
   
9.     FName = Application.GetOpenFilename(FileFilter:="CSV ???(*.csv),*.csv", FilterIndex:=1, Title:="??????????")
   
10.     If FName <> False Then
    
11.         aFile = Split(FName, "")
    
12.         myPath = aFile(0)
    
13.         For i = 1 To UBound(aFile) - 1 '???????·??
    
14.             myPath = myPath & "" & aFile(i)
    
15.         Next
    
16.     Else
    
17.         End
    
18.     End If
    
19. 
    
20.     Set cnn = CreateObject("ADODB.Connection")
    
21.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;hdr=no;FMT=DELIMITED';Data Source=" & myPath
    
22.     sql = "Select f9,f7,f4,f5,f22 From " & Replace(FName, myPath, "")
    
23.     Sheets("sheet2").[A2:O1000000].ClearContents
    
24.     Set rs = cnn.Execute(sql)
    
25.     rs.Move 1
    
26.     Sheets("sheet2").[A2].CopyFromRecordset rs
    
27.     MsgBox ”更新完成"
    
28. End Sub

复制代码

loners462

比如18万多行的数据，只导入了7万多
4万多行的数据文件，只导入了2万多

loners462

额，哪们大神帮忙看下吧？一直没找到原因，谢谢