设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12
返回列表 发新帖
楼主: goto2008
打印 上一主题 下一主题

[窗体] 这个问题难倒高手,不信的话,来瞧瞧!

[复制链接]
11#
 楼主| 发表于 2004-12-23 17:31:00 | 显示全部楼层
             没人懂啦?[em06][em04][em04]
12#
 楼主| 发表于 2004-12-23 17:46:00 | 显示全部楼层
请教如果要把货号、性别、帮面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
13#
 楼主| 发表于 2004-12-23 17:48:00 | 显示全部楼层
我想在EXCEL里实现的汇总格式就如图。也就是怎么改一下foxxp兄的库?????

才能得到如下显示效果!



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
14#
 楼主| 发表于 2004-12-24 16:34:00 | 显示全部楼层
以下是引用test2000在2004-12-23 15:31:12的发言:

有启发!!



     兄弟,光有启发是不够的,如果不能实现最终想要的打印等功能,那也是一件很遗憾的事!
15#
 楼主| 发表于 2004-12-25 18:06:00 | 显示全部楼层
看来是没折了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-14 22:15 , Processed in 0.075481 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表