这个问题难倒高手，不信的话，来瞧瞧！

goto2008

为何在座的各位版主不出现了?

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

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

wu8313

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

goto2008

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



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

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

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

hi-wzj

导到EXCEL是为了解决打印的问题......在EXCEL里打印能方便操作.....???您觉得在access中打印不方便吗？

goto2008

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

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

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

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

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

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

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

     谢谢！

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

goto2008

             没人懂啦？[em06][em04][em04]

goto2008

请教如果要把货号、性别、帮面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

我想在EXCEL里实现的汇总格式就如图。也就是怎么改一下foxxp兄的库？？？？？

才能得到如下显示效果！

test2000

有启发!!

goto2008

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

有启发!!

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