如何从Excel 2007数据透视表检索sql代码

我有一个数据透视表，我想通过python以编程方式重新创build。 有没有办法检索到数据透视表的当前SQL代码，以供我在Python中使用它？

Answer 1

我最近写了这个。 它可能适合你。 它会尝试将活动工作簿的数据透视表和/或查询表数据复制到剪贴板。 它被On Error Resume Next所包围，所以如果它没有find一个特定的数据片段，

Sub Copy_Connection_Info_To_Clipboard() Dim ptCache As Excel.PivotCache Dim qtQueryTable As Excel.QueryTable Dim strPtCacheInfo As String Dim strQueryTableInfo As String Dim ws As Excel.Worksheet Dim strConnectionInfo As String Dim doConnectionInfo As DataObject On Error Resume Next For Each ptCache In ActiveWorkbook.PivotCaches With ptCache strPtCacheInfo = _ strPtCacheInfo _ & "PivotCache #" & "Index: " & .Index & vbCrLf & vbCrLf _ & "SourceDataFile: " & .SourceDataFile & vbCrLf & vbCrLf _ & "CommandText: " & .CommandText & vbCrLf & vbCrLf _ & "SourceConnectionFile: " & .SourceConnectionFile & vbCrLf & vbCrLf _ & "Connection: " & .Connection & vbCrLf & vbCrLf End With Next ptCache If strPtCacheInfo <> "" Then strPtCacheInfo = "PivotCache Info" & vbCrLf & vbCrLf & strPtCacheInfo End If For Each ws In ActiveWorkbook.Worksheets If ws.QueryTables.Count > 0 Then strQueryTableInfo = "Worksheet: " & ws.Name & vbCrLf For Each qtQueryTable In ActiveSheet.QueryTables With qtQueryTable strQueryTableInfo = _ strQueryTableInfo _ & "QueryTable Name: " & .Name & vbCrLf & vbCrLf _ & .SourceDataFile & vbCrLf & vbCrLf _ & .CommandText & vbCrLf & vbCrLf _ & .SourceConnectionFile & vbCrLf & vbCrLf _ & .Connection & vbCrLf & vbCrLf End With Next qtQueryTable End If Next ws If strQueryTableInfo <> "" Then strQueryTableInfo = "Query Table Info" & vbCrLf & strQueryTableInfo End If strConnectionInfo = strPtCacheInfo & strQueryTableInfo If strConnectionInfo <> "" Then Set doConnectionInfo = New DataObject doConnectionInfo.SetText strConnectionInfo doConnectionInfo.PutInClipboard End If End Sub