一个有挑战性，如何用最快的方法将同文件夹下文件中a列 与m列数据获取至本表A、b两列

lj1226189

试过ado 最快也需要60秒以上！！
Dim cnn As New Connection
    Dim rs As New Recordset
    Dim rs1 As New Recordset
    Dim sql As String
    Dim sql1 As String
    Dim x%

        cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\" & "原始库.xlsx"
        sql = "select * from [Sheet1$b1:b990000" & "] "
        rs.Open sql, cnn
         sql1 = "select * from [Sheet1$m1:m990000" & "] "
        rs1.Open sql1, cnn
        Sheet2.Range("A2").Offset(0, 0).CopyFromRecordset rs
        Sheet2.Range("b2").Offset(0, 0).CopyFromRecordset rs1
        rs.Close
         rs1.Close
        cnn.Close


各位高手 看看是否有更快的方法 期待奇迹！！！

lsc900707

有8百多个主题帖的侠圣居然。。。。。。

没有附件，难得有奇迹！

zopey

直接打开“原始库.xlsx” 复制2 列不是不更快。

lj1226189

zopey 发表于 2018-9-28 19:51
直接打开“原始库.xlsx” 复制2 列不是不更快。

我需要用到获取数据方法
另外直接打开不见得是最快方法

excelvlookup

sql 中文叫“结构化查询语言”，优势是查询。你这种直接取数，用数组应该比sql快，不信你试试。

LMY123

lj1226189 发表于 2018-9-28 20:35
我需要用到获取数据方法
另外直接打开不见得是最快方法

数据已近百万，用数据库吧

lj1226189

顶一下 盼!

lj1226189

再顶下 谢谢!

lj1226189

跨薄取数目前用了 GetObject(ThisWorkbook.Path & "\" & "原始库.xlsx")
两列60万数据要30秒 已是最快了 不知道还有没有更快的方法了！！

excelvlookup

用赋值，还是考贝。赋值应比考贝快，因为考贝包括格式等。无论代码如何写，三个步骤少不了1、打开2、取数3、写数。建义：如果程序不要求同步，30秒和1秒也就差29秒，喝中茶的时间，没必要计较。