我可以使用 SQL 语句从工作表 A 中提取数据吗？仅使用 Excel 将工作表 B 转储到工作表 C 中

Question

我在 Excel 中有这样的数据

table Cost_per_period
---------------------
ProjectId
FaseID
Period
Percentage

table cost_per_partner_per_fase
-------------------------------
ProjectID
FaseID
PartnerID
Amount

table partners
--------------
PartnerID
name

这是我想要的输出。

                 2012             2013                2014     2015
Project  fase    jan  feb ... dec  Q1    Q2   Q3   Q4  wholeY  wholeY
------------------------------------------------------------------------
A310     1       100k 20k     10k  100k   -   10k  10k 1000k   2000k
A310     2       110k   -     20k   99k   -   40k  50k 5000k   3000k
......

为了合并这些数据，我正在考虑执行一个 SQL 语句，例如

SELECT cp.projectID, cp.faseID
  , case when cp.period between '2012/01/01' and '2012/01/31' 
         THEN sum(cpf.amount)*cp.percentage as jan2012 end
  , case when ..... as feb2012 end
  , case .......
FROM cost_per_period as cp
INNER JOIN cost_per_partner_per_fase as cpf 
  on (cp.postjectid = cpf.projectid) and (cp.faseid = cpf.faseid)
GROUP BY cp.Projectid, cp.faseid
ORDER BY cp.ProjectID, cp.FaseID

我可以仅使用 Excel 执行此操作吗？，我使用的是 excel 2007

Answer 1

以下是针对 Excel 的最简单的查询，可以帮助您入门：

Sub test()
  Dim rs As Object
  Set rs = CreateObject("ADOR.Recordset")
  rs.Open _
      "SELECT CompanyName FROM Customers;", _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\Tempo\db.xls;" & _
        "Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
    Sheet3.Range("A1").CopyFromRecordset rs
  End Sub

Answer 2

这是取自 Excel 2007 中录制的对我有用的宏。您可以修改数据源和 SQL 查询以满足您的需要。

ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
    "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;" _
    , "Data Source=C:\RM.xlsm;" _
    , "Jet OLEDB:Engine Type=37"), Destination:=Range("$A$1")).QueryTable
    .CommandType = xlCmdTable
    .CommandText = Array("SELECT * FROM [Sheet1$A1:B30]")

End With

Answer 3

如果数据已存在于 Excel 中，则无法对其运行 SQL 查询。您只能针对 SQL 数据库运行此类代码（例如，如果您在 Access 中拥有数据）。

但是，您可以在 VBA 中编写等效函数并在 Excel 中运行它。

我还发现这个插件可以让你对 Excel 数据执行 SQL：http://www.querycell.com/
但它不是免费的，我不知道它有多好。