将数据透视表代码从VBA转换到PowerShell

我有我需要转换为PowerShell的数据透视代码，但我只是没有弄清楚。任何人都可以帮助将此转换编码到PowerShell中吗？将数据透视表代码从VBA转换到PowerShell

这是Excel的VB宏代码：

Sub XX() 
    ' 
    ' XX Macro 

    Sheets("PivotSheet").Select 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
    "Data!R2C2:R1680C10", Version:=xlPivotTableVersion14). _ 
    CreatePivotTable TableDestination:="PivotSheet!R1C1", TableName:= _ 
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14 
    Sheets("PivotSheet").Select 
    Cells(1, 1).Select 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("State") 
    .Orientation = xlRowField 
    .Position = 1 
    End With 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Submit Date") 
    .Orientation = xlRowField 
    .Position = 2 
    End With 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Actual Completion Date") 
    .Orientation = xlRowField 
    .Position = 3 
    End With 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("State") 
    .Orientation = xlColumnField 
    .Position = 1 
    End With 
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_ 
    "PivotTable1").PivotFields("Actual Completion Date"), _ 
    "Count of Actual Completion Date", xlCount 
    Range("A8").Select 
    Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _ 
    False, True, False, True) 
End Sub

以下是我对PowerShell的创建：

[void]PivotSheet.Select() 
$PivotRange = "Data!R2C2:J$lastrow"+'C10' 
$PivotTable = $WorkBook.PivotCaches().Create($xlDatabase,$PivotRange,$xlPivotTableVersion14) 
$PivotTable.CreatePivotTable("PivotSheet!R1C1","PivotTable1") | Out-Null 
Start-Sleep -Milliseconds 500 
[void]PivotSheet.Select() 
$WorkSheet2.activate() | Out-Null 

$Worksheet2.Cells.Item(1,1).Select() 
$WorkBook.ShowPivotTableFieldList = $true 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("State") 
$PivotFields.Orientation = $xlRowField 
$PivotFields.Position = 1 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("Submit Date") 
$PivotFields.Orientation = $xlRowField 
$PivotFields.Position = 2 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("Actual Completion Date") 
$PivotFields.Orientation = $xlRowField 
$PivotFields.Position = 3 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("State") 
$PivotFields.Orientation = $xlColumnField 
$PivotFields.Position = 1 

$PivotFields = $Worksheet2.PivotTables("PivotTable1").AddDataField($Worksheet2.PivotTables, 
    ("PivotTable1").PivotFields("Actual Completion Date"), "Count of Actual Completion Date", $xlCount) 

$PivotFields.Range("A8").Select

但这并没有工作。我似乎没问题，直到我设置了表的第一部分...

来源

2014-09-26 Jeff W

定义“不起作用”。请举一个预期和实际结果的例子。 – 2014-09-26 16:09:17

调用带有“1”参数的“数据透视表”的异常：“工作表类失败的数据透视表方法” 在行：1 char：1 + $ Worksheet2.PivotTables（“PivotTable1”）。PivotFields（“State”） +〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 ~~~~~~~~~~ + CategoryInfo：NotSpecified：（:) []，MethodInvocationException + FullyQualifiedErrorId：ComMethodTargetInvocat – 2014-09-26 16:53:10

也不知道如何转换此代码在宏... <<选择结束。 Group Start：= True，End：= True，Periods：= Array（False，False，False，_ False，True，False，True） >> - – 2014-09-26 16:53:57

PivotTables("...")是PivotTables.Item("...")的简称。 PowerShell不允许使用此缩写，因此您必须在集合上使用Item()方法。更换

$Worksheet2.PivotTables("PivotTable1").PivotFields("...")

与

$Worksheet2.PivotTables.Item("PivotTable1").PivotFields.Item("...")

至于翻译方法调用带有命名参数，您需要提供正确的顺序所有参数。使用[Type]::Missing作为应保留其默认值的参数。尽管如此，后面的默认值列表可以省略。在你的情况下，线

Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _ 
    False, True, False, True)

或许应该成为这样的事：很多发展和安斯加尔提供的答案后

$periods = @($false, $false, $false, $false, $true, $false, $true) 
$selection.Group($true, $true, [Type]::Missing, $periods)

来源

2014-09-26 17:00:12

当我添加“.Item”我得到这个错误，我重新加载并重试>>方法调用失败，因为[System.Management.Automation.PSMethod]不包含名为'Item'的方法。在线：3 char：1 + $ PivotFields = $ Worksheet2.PivotTables.Item（“PivotTable1”）。PivotFields.Item（“Sta ... + ~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ + CategoryInfo：InvalidOperation：（:) []，RuntimeException + FullyQualifiedErrorId：MethodNotFound << – 2014-09-26 17:18:38

确定。我有完整的代码。我已将信息更改为“通用化”代码....谢谢大家的帮助。此代码有效并且完整。

# Select the cells. 
$Worksheet2.Cells.Item(1,1).Select() 
$WorkBook.ShowPivotTableFieldList = $true 

#$PivotFields = $Sheet1.PivotTables("PivotTable1").PivotFields($columnFields) 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("Field1") # ColumnLables  = "State" 
$PivotFields.Orientation = $xlColumnField 
$PivotFields.Position = 1 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("Field2") # ColumnLables = "Submit Date" 
$PivotFields.Orientation = $xlRowField 
$PivotFields.Position = 1 
$PivotFields = $Worksheet2.PivotTables("PivotTable1").PivotFields("Field3") # ColumnLables = Actual Completion Date" 
$PivotFields.Orientation = $xlDataField 
$PivotFields.Position = 1 
# Set the range of the group. 
$range22 = $excel.Range("a7") 
# $range22.Group() # To test the basic group. 
# Here is where the grouping is done. 
$periods = @($false, $false, $false, $false, $true, $false, $true) 
$range22.Group($true, $true, [Type]::Missing, $periods)

来源

2014-10-07 13:30:41

将数据透视表代码从VBA转换到PowerShell

回答

相关问题