数据透视表实现出入库求和

michaelaa · 发表于 2010-5-12 20:50

望高手赐教如何使用数据透视表实现出入库求和

kitty8cat · 发表于 2010-5-12 20:55

需要使用SQL，先占个位置，想一想。

michaelaa · 发表于 2010-5-12 20:58

等待高手帮我解决，小弟不胜感激，

yancjm · 发表于 2010-5-12 21:21

参考附件
但是订单号要放在页字段,如果放在下面,表格看起来不太好看
图例中圈起来的地方要换成你档案所储存的路径
在数据透视表上点右键,数据透视表,上一步--->获取数据可以看到这个对话框

[ 本帖最后由 yancjm 于 2010-5-12 21:25 编辑 ]

yancjm · 发表于 2010-5-12 21:33

再改进一下
select customer,code,type,[PO NO],qty1,0 as qty2 from [订单$] union all select customer,code,type,[PO NO],0 as qty1,qty2 from [出货$]

michaelaa · 发表于 2010-5-12 21:37

谢谢高手但是数据有点不对

michaelaa · 发表于 2010-5-12 21:39

谢谢就是这个效果非常感谢

yancjm · 发表于 2010-5-13 12:40

代码放在ThisWorkbook
Private Sub Workbook_Open()
Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
'定义变量
strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
'将当前活动数据透视表中缓存连接信息赋值给变量strCon
Select Case Left(strCon, 5)  'select case语句,条件为strCon变量中从左侧取5个字符
Case "ODBC;"                '用于判断缓存连接信息中的数据连接方式,如果是ODBC方式
      iFlag = "DBQ="          '将"DBQ=" 赋值给变量iFlag
Case "OLEDB"                '用于判断缓存连接信息中的数据连接方式,如果是OLEDB方式
iFlag = "Source="          '将"DBQ=" 赋值给变量iFlag
Case Else
      Exit Sub
End Select
iStr = Split(Split(strCon, iFlag)(1), ";")(0)  '在变量strCon中截取文件路径信息
iPath = ActiveWorkbook.FullName             '获取当前活动工作簿的完全路径
With ActiveSheet.PivotTables(1).PivotCache    '替换数据透视表中缓存信息中的文件完全路径
      .Connection = VBA.Replace(strCon, iStr, iPath)
      .CommandText = VBA.Replace(.CommandText, iStr, iPath)
End With
End Sub

michaelaa · 发表于 2010-5-13 17:09

高手谢谢但是我看不到你的数据透视表是怎么实现的，我只能看到连接，不能看到怎样连接到两个表，请高手指教，谢谢！

yancjm · 发表于 2010-5-13 17:18

给个邮箱,我发个屏录给你

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

数据透视表实现出入库求和

回复 5楼 yancjm 的帖子

增加OLAP数据透视表自适应路径