使用SQL将数据从工作表复制到同一工作簿中的其他工作表？

Question

我想使用SQL在同一工作簿中的工作表之间移动数据。

我的工作表很大（宽度和深度），并且处理VBA的速度很慢。

情况是我有工作表1至5。
我想用工作表1 -5中的一两列创建工作表（6）。
索引键是SKU，并且对所有工作表通用。 首先，按SKU对所有工作表进行排序。

当我在Sheet（1）中抓住一列时，我可以将其放在Sheet（6）中，即列A。当我在Sheet（2）中抓住一列时，我需要确保每一行的SKU都匹配，并且来自工作表的数据（2），并正确放置在该SKU的下一列中。 如果该SKU的数据不可用，则对应的单元将留空。 来自每一列的数据在目标工作表的一个选定列中保持在一起。

我不确定如何设置连接或记录集选择，因为我们在同一个工作簿中进行工作。 我找不到任何地方讨论此主题。 确保SKU从所有工作表接收正确的数据对我来说似乎有些艰巨。

我似乎还记得一些关于无法建立ADO连接以打开工作簿/工作表的信息。 如果是这种情况，我将创建一个单独的工作簿以将数据提取到其中并在其中进行操作。

我非常感谢您提供有关此主题的任何指导。 这对我来说是全新的。

谢谢，CraigM

Answer 1

以下是我创建的解决方案：
我得到了sheet1，sheet2，如下图所示：

要使用sql复制，使用了以下代码：
注意：您需要转到工具>参考>检查Microsoft ActiveX数据对象2.8库和Microsoft Forms 2.0对象库

Sub SQLCopy()


Dim MyConnection As ADODB.Connection
Dim MyRecord As ADODB.Recordset

Set MyConnection = New ADODB.Connection
Set MyRecord = New ADODB.Recordset

' This is the Excel 97-2003 connection string. It should also work with
' Excel 2007 onwards worksheets as long as they have less than 65536
' rows
With MyConnection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & _
        "Extended Properties=Excel 8.0;"
    .Open
End With

MyRecord.Open "SELECT [Sheet1$].[SKU],[SecondDATA] FROM [Sheet1$],[Sheet2$] WHERE " & _
    "[Sheet1$].[SKU]  = " & _
    "[Sheet2$].[SKU]", MyConnection

Sheets("Sheet3").Cells(2, 1).CopyFromRecordset MyRecord

MyRecord.Close
MyConnection.Close

End Sub

以下是表3的结果

Answer 2

奇妙的解决方案，keong kenshih！

我正在浏览Microsoft文档，当我读到它时，它表明您不能在打开的工作簿上使用SQL。

感谢您提供概念证明代码。 我将在接下来的几天将其合并到我的项目中。 应该提供很大的性能改进。

我将从使用.jet提供程序更改为.ace提供程序，以与较新版本的Excel兼容。

Nick.McDermaid：我无法将所有数据移入数据库，因为数据经常在Excel中更新。 我很幸运，客户甚至拥有Excel，他们是如此落后。 他们没有数据库的概念。 他们在1970年代与Yahoo呆在一起。

再次感谢大家的评论！