求解：如何改动外部数据源的数据透视表的sql查询语句

cpali3023 · 发表于 2004-6-23 13:42

各位仁兄：请教如何改动以外部sql数据库查询结果为数据源的数据透视表的源查询语句。我是找了半天也无法查到入口。

另求完成上述自动刷新的vba程序(是可在vba代码中完成对sql语句的修改的语句，而不是仅仅可刷新)

另求在数据透视表中可完成类似字段筛选的vba代码。

ovxyz · 发表于 2004-6-23 16:34

选中查询出来的数据的任何一个单元格。

右键点击－【编辑查询】这时会跳出【查询向导】－点击【取消】，这时又会跳出【是否要在microsoft query编辑此查询】－点击【是】，就可以了。

如果要改动查询，可以直接在microsoft query中更改。

如果要在excel中自动取数查询，可以给你一个例子。是取oracle数据库的。

With Sheet2.QueryTables.Add(Connection:="ODBC;DRIVER={ORACLE ODBC DRIVER};SERVER=REPORT;UID=REPUSER;PWD=repuser;DBQ=REPORT", Destination:=Sheet1.Range("A1")) .CommandText = "select * from tkadmin.zz_xmye " .Refresh BackgroundQuery:=False End With

FENGJUN · 发表于 2004-6-23 17:04

以下是引用cpali3023在2004-6-23 13:42:00的发言：

各位仁兄：请教如何改动以外部sql数据库查询结果为数据源的数据透视表的源查询语句。我是找了半天也无法查到入口。

另求完成上述自动刷新的vba程序(是可在vba代码中完成对sql语句的修改的语句，而不是仅仅可刷新)

另求在数据透视表中可完成类似字段筛选的vba代码。

老兄的述说让我懵懂懵懂，尤其是2、3句，能否说得再明确些？

下面代码对你肯定有用：

‘需要首先引用DAO Sub CountCustomersByCountry1() Workbooks.OpenDatabase _ Filename:="C:\Program Files\Microsoft Office\" _ & "Office10\Samples\Northwind.mdb", _ CommandText:="Select * from Customers", _ BackgroundQuery:=PivotCache, _ ImportDataAs:=xlPivotTableReport End Sub

cpali3023 · 发表于 2004-6-24 08:06

上述二位，先谢了，我所述可能不是很清楚，其实做普通外部连接查询是很容易的，我所要提的问题是用数据透视表的形式连接外部数据库，也就是说用数据透视表分析操纵直接从外部数据库查询获得的数据，其数据查询的sql语句是通过query写入的，但一旦导出形成数据透视表后，找了半天也未在excel中查找到可在进入query中修改查询语句的方法。

FENGJUN · 发表于 2004-6-24 13:31

可否录制过宏？

cpali3023 · 发表于 2004-6-24 22:26

通过录制宏，仅获得增加查询的语句，而无法获得刷新查询的语句（可修改ＳＱＬ语句的ＶＢＡ语句），而普通编辑查询可通过录制宏的过程录制，但外部连接形成的数据透视表却无法从ＥＸＣＥＬ中进得编辑查询，因此无法录入宏而形成相应的代码．

FENGJUN · 发表于 2004-6-25 09:10

可否将你的文件和录制的宏上传，这样让人更容易理解你的意图。

cpali3023 · 发表于 2004-6-25 12:32

fenjun兄：你在做数据透视表时，选择获取外部数据的方式试一下，外部数据源你可用SQL或access数据库，进入query 后你先做一下简单查询，再将数据导回到数据透视表，然后在看一下我上面的问题你应会清楚一点。

FENGJUN · 发表于 2004-6-25 15:12

我是将英文的Northwind.mdb数据库放到C:\录制的宏：

Sub Macro4() With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal) .Connection = _ "ODBC;DSN=MS Access Database;DBQ=C:\Northwind.mdb;DefaultDir=C:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" .CommandType = xlCmdSql .CommandText = Array( _ "SELECT `Alphabetical List of Products`.ProductID, `Alphabetical List of Products`.ProductName, `Alphabetical List of Products`.SupplierID, `Alphabetical List of Products`.CategoryID, `Alphabetical Lis" _ , _ "t of Products`.QuantityPerUnit, `Alphabetical List of Products`.UnitPrice, `Alphabetical List of Products`.UnitsInStock, `Alphabetical List of Products`.UnitsOnOrder, `Alphabetical List of Products`.R" _ , _ "eorderLevel, `Alphabetical List of Products`.Discontinued, `Alphabetical List of Products`.CategoryName" & Chr(13) & "" & Chr(10) & "FROM `C:\Northwind`.`Alphabetical List of Products` `Alphabetical List of Products`" _ ) .CreatePivotTable TableDestination:="[xlsExplorerDemo.xls]第二页!R3C2", _ TableName:="数据透视表3", DefaultVersion:=xlPivotTableVersion10 End With ActiveWorkbook.ShowPivotTableFieldList = True End Sub u7fdlEWm.rar (43.07 KB, 下载次数: 60)

[此贴子已经被作者于2004-6-25 15:16:54编辑过]

cpali3023 · 发表于 2005-8-6 11:51

事隔一年，终于自己把此问题搞明白了，真是学无止境！

感叹！EXCEL的数据透视的处理能力真是太强大啦！

		自动登录	找回密码
密码			免费注册