Question

我在VBA中编写MDX代码，我必须将数据放在Excel中。

SELECT 
{ [Measures].[VL PROD], [Measures].[Impostos], [Measures].[RecLiqProd], [Measures.[ValorMgProd], [Measures].[QTD ITENS] ,[Measures].[VL FRETE] } ON 0, 
NON EMPTY ( { Descendants( [Produto].[Produto].[Departamento], 5 ) } ) ON 1,
NON EMPTY ( { [Data Pedido].[Data].[Ano].&[2014].&[2].&[6].&[1]:[Data Pedido].[Data].[Ano].&[2014].&[2].&[6].&[26] } ON 2,
NON EMPTY ( { [Unidade Negócio].[Unidade Negócio].&[Unidade 1], [Unidade Negócio].[Unidade Negócio].&[Unidade 2], [Unidade Negócio].[Unidade Negócio].&[Unidade 3] } ) ON 3
FROM [Rentabilidade]
WHERE ( - Extract( { [Livre de Debito] }, [Meio Pagamento].[Meio Pagamento]) )


For i = 0 To cst.Axes(1).Positions.Count - 1
    For j = 0 To cst.Axes(2).Positions.Count - 1
        For k = 0 To cst.Axes(3).Positions.Count - 1

            'If cst(0, i, j, k) * cst(1, i, j, k) * cst(2, i, j, k) * cst(3, i, j, k) * cst(4, i, j, k) * cst(5, i, j, k) <> "" Then

                Cells(a, 1) = cst.Axes(1).Positions(i).Members(0).Caption
                Cells(a, 2) = cst.Axes(2).Positions(j).Members(0).Caption
                Cells(a, 3) = cst.Axes(3).Positions(k).Members(0).Caption
                Cells(a, 4) = cst(0, i, j, k)
                Cells(a, 5) = cst(1, i, j, k)
                Cells(a, 6) = cst(2, i, j, k)
                Cells(a, 7) = cst(3, i, j, k)
                Cells(a, 8) = cst(4, i, j, k)
                Cells(a, 9) = cst(5, i, j, k)


                a = a + 1
            'End If
        Next k
    Next j
Next i

问题是我得到了很多空行;我想知道如何删除它们。

例如，我得到以下内容：

Id | Data  | Bandeira  | impostos | recliq | ValorMrg | Qtd Item | Vl Frete
10 | 40230 | Unidade 1 |          |        |          |          |
10 | 40230 | Unidade 2 |          |        |          |          |
10 | 40230 | Unidade 3 | 0,2      |  2032  |  100     | 1000     |  323

32 | 40231 | Unidade 3 |          |        |          |          | 
32 | 40232 | Unidade 3 |          |        |          |          | 
32 | 40233 | Unidade 3 | 0,2      |    32  |  321     | 5045     |  323

我以为我已经理解了非空和非空（来自http://beyondrelational.com/modules/2/blogs/65/posts/11569/mdx-non-empty-vs-nonempty.aspx）之间的区别，但也许我错过了一些东西。

任何人都可以帮助我吗？

Answer 1

如果您想要二维报告，为什么要运行四维查询？

我认为以下MDX

SELECT 
{ [Measures].[VL PROD], [Measures].[Impostos], [Measures].[RecLiqProd], [Measures.[ValorMgProd], [Measures].[QTD ITENS] ,[Measures].[VL FRETE] }
ON 0, 
NON EMPTY 
{ Descendants( [Produto].[Produto].[Departamento], 5 ) } )
*
{ [Data Pedido].[Data].[Ano].&[2014].&[2].&[6].&[1]:[Data Pedido].[Data].[Ano].&[2014].&[2].&[6].&[26] }
*
{ [Unidade Negócio].[Unidade Negócio].&[Unidade 1], [Unidade Negócio].[Unidade Negócio].&[Unidade 2], [Unidade Negócio].[Unidade Negócio].&[Unidade 3] } )
ON 1
FROM [Rentabilidade]
WHERE ( - Extract( { [Livre de Debito] }, [Meio Pagamento].[Meio Pagamento]) )

会提供你想要的东西。在这种情况下，NON EMPTY上的Axis 1将针对列轴的三个层次结构的叉积的每个元组进行评估。

当然，你必须相应地更改你的VBA代码，因为你现在只有一个轴用于行，但它有三个位置而不是一个。

MDX NON EMPTY多维轴

1 个答案: