來自Power Pivot的折扣數據（「Item.data」）

Question

我收到了一張工作手冊，其中包含兩張以力量爲中心的表格（一張大約1毫米的行，另外一張20毫米的行）。我想把這個搞砸（因爲任何事情都是真的 - 但是我們可以說一個CSV），以便我可以在R + PostGreSQL中使用它。

我無法導出到Excel表格，因爲有超過100萬行;和複製粘貼數據只適用於我選擇大約200,000行。所以我有點卡住了！我試圖將xlsx轉換爲zip文件，並在記事本++中打開「item.data」文件，但是它在某些方面被加密。

我將不勝感激任何解決方案（樂於使用VBA，Python和SQL）

編輯：我把一些VBA其周邊的0.5磨機排工程確定，但打破了17個工廠排檔：

Public Sub CreatePowerPivotDmvInventory() 
    Dim conn As ADODB.Connection 
    Dim sheet As Excel.Worksheet 
    Dim wbTarget As Workbook 
    On Error GoTo FailureOutput 

    Set wbTarget = ActiveWorkbook 
    wbTarget.Model.Initialize 

    Set conn = wbTarget.Model.DataModelConnection.ModelConnection.ADOConnection 

    ' Call function by passing the DMV name 
    ' E.g. Partners 
    WriteDmvContent "Partners", conn 

    MsgBox "Finished" 
    Exit Sub 

FailureOutput: 
    MsgBox Err.Description 
End Sub 

Private Sub WriteDmvContent(ByVal dmvName As String, ByRef conn As ADODB.Connection) 
    Dim rs As ADODB.Recordset 
    Dim mdx As String 
    Dim i As Integer 

    mdx = "EVALUATE " & dmvName 

    Set rs = New ADODB.Recordset 
    rs.ActiveConnection = conn 
    rs.Open mdx, conn, adOpenForwardOnly, adLockOptimistic 

    ' Setup CSV file (improve this code) 
    Dim myFile As String 
    myFile = "H:\output_table_" & dmvName & ".csv" 
    Open myFile For Output As #1 

    ' Output column names 
    For i = 0 To rs.Fields.count - 1 
     If i = rs.Fields.count - 1 Then 
      Write #1, rs.Fields(i).Name 
     Else 
      Write #1, rs.Fields(i).Name, 
     End If 
    Next i 

    ' Output of the query results 
    Do Until rs.EOF 
     For i = 0 To rs.Fields.count - 1 
      If i = rs.Fields.count - 1 Then 
       Write #1, rs.Fields(i) 
      Else 
       Write #1, rs.Fields(i), 
      End If 
     Next i 
     rs.MoveNext 
    Loop 
    Close #1 
    rs.Close 
    Set rs = Nothing 

    Exit Sub 

FailureOutput: 
    MsgBox Err.Description 
End Sub 

Answer 1

DAX Studio將允許您查詢Excel工作簿中的數據模型並輸出爲各種格式，包括平面文件。

你需要查詢就是：

EVALUATE 
<table name>