Office中国论坛/Access中国论坛

标题: 这个问题难倒高手，不信的话，来瞧瞧！ [打印本页]

作者: goto2008 时间: 2004-12-17 22:45
标题: 这个问题难倒高手，不信的话，来瞧瞧！
请教：

在EXCEL和ACCESS里，他们都有数据透视表，请教，它们二者可以互相转换吗？

[此贴子已经被作者于2004-12-17 14:50:20编辑过]

[ 本帖最后由 goto2008 于 2007-9-9 00:28 编辑 ]

作者: goto2008 时间: 2004-12-18 03:30
如果能把二者结合了，说不定在各种各样的汇总、查询里更省事！这个功能我突然想到的，自己解决不来。恳请各位高手指点一下！

作者: foxxp 时间: 2004-12-18 05:09
是不是你想要的。[attach]8179[/attach]

作者: goto2008 时间: 2004-12-18 05:36
foxxp兄，你好，非常感谢你的回复！你做的例子快接近我想实现的功能了，

有几个地方仍向你请教一个，请看图片。

[attach]8180[/attach]

作者: praying 时间: 2004-12-18 08:12
想请问你一个问题，上面的图片中，你的那个 “帮面ID ” 的编号是怎么做成的？

作者: goto2008 时间: 2004-12-18 16:52

以下是引用praying在2004-12-18 0:11:37的发言：

想请问你一个问题，上面的图片中，你的那个 “帮面ID ” 的编号是怎么做成的？

帮面ID.先设为文本型...然后可以用代码实现....库,下午传给你.

作者: goto2008 时间: 2004-12-19 16:56
兄弟，请再出现吧！

作者: foxxp 时间: 2004-12-20 00:14
Access中也有数据透视表，格式灵活性上比Excel的透视表稍差，如果仅仅为了“透视数据”，还不如用Access自己带的数据透视表查询功能呢。

作者: goto2008 时间: 2004-12-20 01:42

以下是引用foxxp在2004-12-19 16:13:49的发言：

Access中也有数据透视表，格式灵活性上比Excel的透视表稍差，如果仅仅为了“透视数据”，还不如用Access自己带的数据透视表查询功能呢。

   兄弟.你好,我也有用ACCESS里的数据透视表..

   我是想实现在EXCEL里能像我ACCESS数据透视表的那样汇总...纵横汇总........

导到EXCEL是为了解决打印的问题......在EXCEL里打印能方便操作.....

   请看四楼的那张图片......汗......

[此贴子已经被作者于2004-12-19 17:57:03编辑过]

作者: goto2008 时间: 2004-12-21 01:21
顶！这个问题非常的棘手，放了好几天了，才看到一点眉目，盼着早日高手再次相救！

作者: goto2008 时间: 2004-12-21 19:31
为何在座的各位版主不出现了?

郁闷....................

[此贴子已经被作者于2004-12-21 11:31:58编辑过]

作者: wu8313 时间: 2004-12-21 20:14
从excel中请求数据没有完全自动化，向导中包含的步骤用户较难完成。这个思路很好。运行外部Microsoft Excel ODBC Query files数据源，路径的问题不好解决。

作者: goto2008 时间: 2004-12-22 19:48

以下是引用wu8313在2004-12-21 12:13:37的发言：

从excel中请求数据没有完全自动化，向导中包含的步骤用户较难完成。

这个思路很好。运行外部Microsoft Excel ODBC Query files数据源，路径的问题不好解决。

.................[em06][em06][em06][em06][em06][em06][em06][em06]

作者: hi-wzj 时间: 2004-12-22 21:20
导到EXCEL是为了解决打印的问题......在EXCEL里打印能方便操作.....???您觉得在access中打印不方便吗？

作者: goto2008 时间: 2004-12-22 22:24

以下是引用hi-wzj在2004-12-22 13:20:29的发言：

导到EXCEL是为了解决打印的问题......在EXCEL里打印能方便操作.....

???您觉得在access中打印不方便吗？

   请勿叉开话题，为什么要放在EXCEL里正是有别的用途！不光光是打印问题

   请看第四楼的图片和foxxp的库！

   如何解决从ACC里导出记录后，能在EXCEL里自动汇总？？？？？？？？？？？？

   我要是的横竖汇总也能显示出来呀。。

   谢谢！

[此贴子已经被作者于2004-12-22 14:49:04编辑过]

作者: goto2008 时间: 2004-12-23 17:31
没人懂啦？[em06][em04][em04]

作者: goto2008 时间: 2004-12-23 17:46
请教如果要把货号、性别、帮面ID三个字段再添到EXCEL里，下面这段代码要怎么修改？Private Sub Command19_Click()

Dim Db As Database

Dim Qdf As QueryDefSet Db = CurrentDb

'On Error Resume NextWith Db

Set Qdf = .CreateQueryDef("qtemp", "SELECT * from 领取分配汇总查询 where " & strFilter)

Kill "c:\xx.xls"

DoCmd.TransferSpreadsheet acExport, 8, "qtemp", "c:\xx.xls", False, ""

.QueryDefs.Delete Qdf.Name

End With

'--------------------------------------------

Dim xls As Excel.Application

Dim wrb As Excel.Workbook

Dim sht As Excel.Worksheet

Dim sht1 As Excel.Worksheet

Set xls = CreateObject("excel.application")

xls.Visible = False

Set wrb = xls.Workbooks.Open("c:\xx.xls")

Set sht = wrb.Worksheets(1)

Set sht1 = wrb.Worksheets.Add

'---------------------------------------------------------

wrb.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

      sht.Columns("A:I")).CreatePivotTable TableDestination:=sht1.Range("A3"), TableName:="数据透视表2", _

      DefaultVersion:=xlReport6

With sht1.PivotTables("数据透视表2").PivotFields("工人姓名")

      .Orientation = xlRowField

      .Position = 1

End With

sht1.PivotTables("数据透视表2").AddDataField sht1.PivotTables("数据透视表2" _

      ).PivotFields("数量之Sum"), "计数项:数量之Sum", xlCount

sht1.PivotTables("数据透视表2").AddDataField sht1.PivotTables("数据透视表2" _

      ).PivotFields("小计之Sum"), "计数项:小计之Sum", xlCount

sht1.PivotTables("数据透视表2").PivotSelect "", xlDataAndLabel, True

sht1.PivotTables("数据透视表2").PivotFields("计数项:数量之Sum").Function = xlSum

sht1.PivotTables("数据透视表2").PivotFields("计数项:小计之Sum").Function = xlSum

'---------------------------------------------------------

xls.DisplayAlerts = False

wrb.Save

xls.DisplayAlerts = True

xls.Quit

Set xls = Nothing

Call Shell("excel.exe c:\xx.xls", vbNormalFocus)

'----------------------------------------------

End Sub

作者: goto2008 时间: 2004-12-23 17:48
我想在EXCEL里实现的汇总格式就如图。也就是怎么改一下foxxp兄的库？？？？？

才能得到如下显示效果！

[attach]8252[/attach]

作者: test2000 时间: 2004-12-23 23:31
有启发!!

作者: goto2008 时间: 2004-12-24 16:34

以下是引用test2000在2004-12-23 15:31:12的发言：

有启发!!

兄弟，光有启发是不够的，如果不能实现最终想要的打印等功能，那也是一件很遗憾的事！

作者: goto2008 时间: 2004-12-25 18:06
看来是没折了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)