8RXMd04I.rar (2007-06-20 17:31:00, Size: 34 KB, Downloads: 4) Private Sub cmd执行查询_Click() Dim pTable As OWC10.PivotTable Dim pFieldset As OWC10.PivotFieldSet Dim pField As OWC10.PivotField Dim ptConstants, totNewtotal Dim pTableView As OWC10.PivotView Dim pAxis As OWC10.Pivo ...
'-作者;Grant '-时间;2008-1-14'-Email;20991943@qq,cin '-QQ;20991943 '-网站; www.accessbbs.cn '-博客; http://www.accessbbs.cn/bbs/blog/?uid/3 '-简介;应网友所求导出DataGrid到Excel Dim oExcel As Object Dim oBook As Object Dim I, J As Integer ...