提取CVS 源文件到Excel用什么方法最效率

ZoeTrc

现在写的VBA 都是CSV 打开以后，在用sql 抓取来 Excel Sheet，每次都   “开->取值->关” 很麻烦，不知道有没有方法能直接取数据，不需要开开关关的，效率高一点。

代码如下：

Public Sub 1_AB()

    Set wkAB = ThisWorkbook.Worksheets("Acrobat")
   
    wkAB.Cells.Clear
   
    strPath = ThisWorkbook.Path & "\ViewA - Act.csv"
   
    Workbooks.OpenText Filename:=strPath
   
    strSQL = "SELECT [A], [B], [D], [E] FROM [ViewA - Act$]"

    Call XLSM_Inquire(strPath, strSQL, wkAB, 2, 1)
   
    Windows(ActiveWorkbook.Name).Close (False)
   
    wkAB.Cells.EntireColumn.AutoFit
   
    Set wkAB = Nothing
   
End Sub

panan123_0

用ADO 做连接 无需打开CSV文件 就能读数据。最高效，能提高不少速度。找了个帖子 你参考下 http://club.excelhome.net/forum.php?mod=viewthread&tid=372677

zhaogang1960

ADO读取csv文件不需要打开数据源，下面是多个(不超过49个)csv文件联合查询代码：

1. Sub Macro1()
   
2.     Dim cnn As Object, rs As Object, SQL$, myPath$, MyFile$
   
3.     myPath = ThisWorkbook.Path & ""
   
4.     Set cnn = CreateObject("adodb.connection")
   
5. '    cnn.Open ConnectionString:="Provider=MSDASQL;Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & myPath
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;FMT=DELIMITED';Data Source=" & myPath
   
7.     MyFile = Dir(myPath & "*.csv")
   
8.     Do While MyFile <> ""
   
9.         If SQL = "" Then SQL = "select * from " & MyFile Else SQL = SQL & " union all select * from " & MyFile
   
10.         MyFile = Dir()
    
11.     Loop
    
12.     Set rs = cnn.Execute(SQL)
    
13.     ActiveSheet.UsedRange.ClearContents
    
14.     For i = 1 To rs.Fields.Count
    
15.         Cells(1, i) = rs.Fields(i - 1).Name
    
16.     Next
    
17.     [a2].CopyFromRecordset rs
    
18.     rs.Close
    
19.     cnn.Close
    
20.     Set rs = Nothing
    
21.     Set cnn = Nothing
    
22. End Sub
    

复制代码

zhaogang1960

请参考附件
ado读取多个csv文件.rar (8.74 KB, 下载次数: 67)

2014-5-23 16:25 上传

点击文件名下载附件

ZoeTrc

zhaogang1960 发表于 2014-5-23 16:23
ADO读取csv文件不需要打开数据源，下面是多个(不超过49个)csv文件联合查询代码：

谢谢超级版主，我会好好学习的。追问一句，如果是针对是读取excel 文件呢？
就是excel 读取 多个文件，其中包括 text，csv，excel，是否都可以不打开文件，进行读取？
如果上述代码有包含解决方法，那就不要理我，因为我还没有仔细研究您给的代码。打扰了。
谢谢。

zhaogang1960

ZoeTrc 发表于 2014-5-23 17:17
谢谢超级版主，我会好好学习的。追问一句，如果是针对是读取excel 文件呢？
就是excel 读取 多个文件， ...

此程序不能处理多种类型文件，仅处理csv
如果有其他要求，请上传附件说明