用于创建 excel 枢轴 table 的 powershell 脚本
powershell script to create excel pivot table
我在 excel sheet 上进行旋转时遇到问题，我不确定自己做错了什么。
这是我使用的powershell代码
# requires excell COM
#Create excel COM object
$excel = New-Object -ComObject excel.application
#Make Visible
$excel.Visible = $True
#Add a workbook
$workbook = $excel.Workbooks.Add()
#Remove other worksheets
1..2 | ForEach {
$Workbook.worksheets.item(2).Delete()
}
#Connect to first worksheet to rename and make active
$serverInfoSheet = $workbook.Worksheets.Item(1)
$serverInfoSheet.Name = 'DiskInformation'
$serverInfoSheet.Activate() | Out-Null
#Create a Title for the first worksheet and adjust the font
$row = 1
$Column = 1
#Create a header for Disk Space Report; set each cell to Bold and add a background color
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnA'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnB'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
#Now it is time to add the data into the worksheet!
#Increment Row and reset Column back to first column
$row++
$Column = 1
$serverInfoSheet.Cells.Item($row,$column)= "a"
$Column++
$serverInfoSheet.Cells.Item($row,$column)= "b"
$Column++
#Increment to next row and reset Column to 1
$Column = 1
$row++
# rename workbook
$workbook = $workbook
#$workbook = $excel.Workbooks.Add()
# Get sheets
$ws3 = $workbook.worksheets | where {$_.name -eq "DiskInformation"} #<------- Selects sheet 3
$xlPivotTableVersion12 = 3
$xlPivotTableVersion10 = 1
$xlCount = -4112
$xlDescending = 2
$xlDatabase = 1
$xlHidden = 0
$xlRowField = 1
$xlColumnField = 2
$xlPageField = 3
$xlDataField = 4
# R1C1 means Row 1 Column 1 or "A1"
# R65536C5 means Row 65536 Column E or "E65536"
$PivotTable = $workbook.PivotCaches().Create($xlDatabase,"Report!R1C1:R65536C5",$xlPivotTableVersion10)
$PivotTable.CreatePivotTable("Pivot!R1C1") | Out-Null
[void]$ws3.Select()
$ws3.Cells.Item(3,1).Select()
$workbook.ShowPivotTableFieldList = $true
$PivotFields = $ws3.PivotTables('Tables1') #.PivotFields("Computername") # Worksheet Name is Server
$PivotFields.Orientation = $xlRowField
$PivotFields.Position = 1
这是我收到的错误信息
Exception calling "CreatePivotTable" with "1" argument(s): "The
parameter is incorrect. (Exception from HRESULT: 0x8007 0057
(E_INVALIDARG))" Property 'Orientation' cannot be found on this
object; make sure it exists and is settable. At
C:\ASM\scripts\Powershell\TEST\test_excel4.ps1:80 char:14
- $PivotFields. <<<< Orientation = $xlRowField
- CategoryInfo : InvalidOperation: (Orientation:String) [], RuntimeException
- FullyQualifiedErrorId : PropertyNotFound
Property 'Position' cannot be found on this object; make sure it
exists and is settable. At
C:\ASM\scripts\Powershell\TEST\test_excel4.ps1:81 char:14
- $PivotFields. <<<< Position = 1
- CategoryInfo : InvalidOperation: (Position:String) [], RuntimeException
- FullyQualifiedErrorId : PropertyNotFound
创建数据透视表 table 和字段时存在一些问题。
首先，最好 select 在 table 中准确地指定您想要的行和列，而无需 select 整个电子表格。
一个很好的方法是从一个范围开始，然后询问 Excel 到 select 每个单元格，直到找到一个空单元格，像这样：
$range1=$ws3.range("A1")
$range1=$ws3.Range($range1,$range1.End($xlDirection::xlDown))
注意$xlDirection的定义为
$xlDirection = [Microsoft.Office.Interop.Excel.XLDirection]
第二列：
$range2=$ws3.range("B1")
$range2=$ws3.Range($range2,$range2.End($xlDirection::xlDown))
并将它们组合成一个 selection:
$selection = $ws3.Range($range1, $range2)
然后在创建枢轴 table 时，重要的是给它起一个名字（即 "Tables1"）。我们稍后将使用该名称来引用它：
$PivotTable.CreatePivotTable("R1C6","Tables1") | Out-Null
最后我们要定义枢轴table中的哪个字段做什么以及它的位置是什么。在我们的例子中，我们希望该列同时为 $xlRowField 和 $xlDataField，我们只需覆盖如下值：
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Position = 1
$PivotFields.Orientation = $xlRowField
$PivotFields.Orientation = $xlDataField
完整代码如下：
# requires excell COM
#Create excel COM object
$excel = New-Object -ComObject excel.application
#Make Visible
$excel.Visible = $True
#Add a workbook
$workbook = $excel.Workbooks.Add()
#Remove other worksheets
1..2 | ForEach {
$Workbook.worksheets.item(2).Delete()
}
#Connect to first worksheet to rename and make active
$serverInfoSheet = $workbook.Worksheets.Item(1)
$serverInfoSheet.Name = 'DiskInformation'
$serverInfoSheet.Activate() | Out-Null
#Create a Title for the first worksheet and adjust the font
$row = 1
$Column = 1
#Create a header for Disk Space Report; set each cell to Bold and add a background color
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnA'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnB'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
#Now it is time to add the data into the worksheet!
#Increment Row and reset Column back to first column
$row++
$Column = 1
$serverInfoSheet.Cells.Item($row,$column)= "a"
$Column++
$serverInfoSheet.Cells.Item($row,$column)= "b"
$Column++
#Increment to next row and reset Column to 1
$Column = 1
$row++
# rename workbook
$workbook = $workbook
#$workbook = $excel.Workbooks.Add()
# Get sheets
$ws3 = $workbook.worksheets | where {$_.name -eq "DiskInformation"} #<------- Selects sheet 3
$xlPivotTableVersion12 = 3
$xlPivotTableVersion10 = 1
$xlCount = -4112
$xlDescending = 2
$xlDatabase = 1
$xlHidden = 0
$xlRowField = 1
$xlColumnField = 2
$xlPageField = 3
$xlDataField = 4
$xlDirection = [Microsoft.Office.Interop.Excel.XLDirection]
# R1C1 means Row 1 Column 1 or "A1"
# R65536C5 means Row 65536 Column E or "E65536"
$range1=$ws3.range("A1")
$range1=$ws3.Range($range1,$range1.End($xlDirection::xlDown))
$range2=$ws3.range("B1")
$range2=$ws3.Range($range2,$range2.End($xlDirection::xlDown))
$selection = $ws3.Range($range1, $range2)
$PivotTable = $workbook.PivotCaches().Create($xlDatabase,$selection,$xlPivotTableVersion10)
$PivotTable.CreatePivotTable("R1C6","Tables1") | Out-Null
[void]$ws3.Select()
$ws3.Cells.Item(3,1).Select()
$workbook.ShowPivotTableFieldList = $true
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Orientation = $xlRowField
$PivotFields.Orientation = $xlDataField
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnB")
$PivotFields.Orientation = $xlRowField
$PivotFields.Orientation = $xlDataField
编辑：
字段自定义的一个例子是这个：
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Orientation = $xlHidden
$PivotFields.Orientation = $xlDataField
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnB")
$PivotFields.Orientation = $xlHidden
$PivotFields.Orientation = $xlDataField
或者这个
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Orientation = $xlPageField
$PivotFields.Orientation = $xlDataField
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnB")
$PivotFields.Orientation = $xlPageField
$PivotFields.Orientation = $xlDataField
试试这个
$excel = New-Object -ComObject Excel.application
$excel.Visible = $True
$wb = $excel.Workbooks.Open('C:\Users\XYZ\Desktop\new.xlsx')
$ws2 = $wb.Sheets.Add()
#$ws2.Select()
$row=12
$pivCache = $wb.PivotCaches().Create(1,"Sheet1!R1C1:R"+$row+"C5",4)
$pivTable = $pivCache.CreatePivotTable("Sheet4!R1C1","PivotTable1",4)
$shape = $ws2.Shapes.AddChart()
#$shape.Select()
$chart = $shape.Chart
$chart.ChartType = 4
#$range = $ws2.Range("A1:C18")
#$chart.SetSourceData($range)
#$shape.IncrementLeft(19)
#$shape.IncrementTop(15)
$db2Field = $pivTable.AddDataField($pivTable.PivotFields("db2cpu"),"Sum of DB2 CPU",-4157)
$inField = $pivTable.PivotFields("intime")
$inField.Orientation = 1
$inField.Position = 1
$fidField = $pivTable.PivotFields("fid")
$fidField.Orientation = 2
$fidField.Position = 1
我在 excel sheet 上进行旋转时遇到问题，我不确定自己做错了什么。
这是我使用的powershell代码
# requires excell COM
#Create excel COM object
$excel = New-Object -ComObject excel.application
#Make Visible
$excel.Visible = $True
#Add a workbook
$workbook = $excel.Workbooks.Add()
#Remove other worksheets
1..2 | ForEach {
$Workbook.worksheets.item(2).Delete()
}
#Connect to first worksheet to rename and make active
$serverInfoSheet = $workbook.Worksheets.Item(1)
$serverInfoSheet.Name = 'DiskInformation'
$serverInfoSheet.Activate() | Out-Null
#Create a Title for the first worksheet and adjust the font
$row = 1
$Column = 1
#Create a header for Disk Space Report; set each cell to Bold and add a background color
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnA'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnB'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
#Now it is time to add the data into the worksheet!
#Increment Row and reset Column back to first column
$row++
$Column = 1
$serverInfoSheet.Cells.Item($row,$column)= "a"
$Column++
$serverInfoSheet.Cells.Item($row,$column)= "b"
$Column++
#Increment to next row and reset Column to 1
$Column = 1
$row++
# rename workbook
$workbook = $workbook
#$workbook = $excel.Workbooks.Add()
# Get sheets
$ws3 = $workbook.worksheets | where {$_.name -eq "DiskInformation"} #<------- Selects sheet 3
$xlPivotTableVersion12 = 3
$xlPivotTableVersion10 = 1
$xlCount = -4112
$xlDescending = 2
$xlDatabase = 1
$xlHidden = 0
$xlRowField = 1
$xlColumnField = 2
$xlPageField = 3
$xlDataField = 4
# R1C1 means Row 1 Column 1 or "A1"
# R65536C5 means Row 65536 Column E or "E65536"
$PivotTable = $workbook.PivotCaches().Create($xlDatabase,"Report!R1C1:R65536C5",$xlPivotTableVersion10)
$PivotTable.CreatePivotTable("Pivot!R1C1") | Out-Null
[void]$ws3.Select()
$ws3.Cells.Item(3,1).Select()
$workbook.ShowPivotTableFieldList = $true
$PivotFields = $ws3.PivotTables('Tables1') #.PivotFields("Computername") # Worksheet Name is Server
$PivotFields.Orientation = $xlRowField
$PivotFields.Position = 1
这是我收到的错误信息
Exception calling "CreatePivotTable" with "1" argument(s): "The parameter is incorrect. (Exception from HRESULT: 0x8007 0057 (E_INVALIDARG))" Property 'Orientation' cannot be found on this object; make sure it exists and is settable. At C:\ASM\scripts\Powershell\TEST\test_excel4.ps1:80 char:14
- $PivotFields. <<<< Orientation = $xlRowField
- CategoryInfo : InvalidOperation: (Orientation:String) [], RuntimeException
- FullyQualifiedErrorId : PropertyNotFound
Property 'Position' cannot be found on this object; make sure it exists and is settable. At C:\ASM\scripts\Powershell\TEST\test_excel4.ps1:81 char:14
- $PivotFields. <<<< Position = 1
- CategoryInfo : InvalidOperation: (Position:String) [], RuntimeException
- FullyQualifiedErrorId : PropertyNotFound
创建数据透视表 table 和字段时存在一些问题。
首先，最好 select 在 table 中准确地指定您想要的行和列，而无需 select 整个电子表格。
一个很好的方法是从一个范围开始，然后询问 Excel 到 select 每个单元格，直到找到一个空单元格，像这样：
$range1=$ws3.range("A1")
$range1=$ws3.Range($range1,$range1.End($xlDirection::xlDown))
注意$xlDirection的定义为
$xlDirection = [Microsoft.Office.Interop.Excel.XLDirection]
第二列：
$range2=$ws3.range("B1")
$range2=$ws3.Range($range2,$range2.End($xlDirection::xlDown))
并将它们组合成一个 selection:
$selection = $ws3.Range($range1, $range2)
然后在创建枢轴 table 时，重要的是给它起一个名字（即 "Tables1"）。我们稍后将使用该名称来引用它：
$PivotTable.CreatePivotTable("R1C6","Tables1") | Out-Null
最后我们要定义枢轴table中的哪个字段做什么以及它的位置是什么。在我们的例子中，我们希望该列同时为 $xlRowField 和 $xlDataField，我们只需覆盖如下值：
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Position = 1
$PivotFields.Orientation = $xlRowField
$PivotFields.Orientation = $xlDataField
完整代码如下：
# requires excell COM
#Create excel COM object
$excel = New-Object -ComObject excel.application
#Make Visible
$excel.Visible = $True
#Add a workbook
$workbook = $excel.Workbooks.Add()
#Remove other worksheets
1..2 | ForEach {
$Workbook.worksheets.item(2).Delete()
}
#Connect to first worksheet to rename and make active
$serverInfoSheet = $workbook.Worksheets.Item(1)
$serverInfoSheet.Name = 'DiskInformation'
$serverInfoSheet.Activate() | Out-Null
#Create a Title for the first worksheet and adjust the font
$row = 1
$Column = 1
#Create a header for Disk Space Report; set each cell to Bold and add a background color
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnA'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
$serverInfoSheet.Cells.Item($row,$column)= 'ColumnB'
$serverInfoSheet.Cells.Item($row,$column).Interior.ColorIndex =48
$serverInfoSheet.Cells.Item($row,$column).Font.Bold=$True
$Column++
#Now it is time to add the data into the worksheet!
#Increment Row and reset Column back to first column
$row++
$Column = 1
$serverInfoSheet.Cells.Item($row,$column)= "a"
$Column++
$serverInfoSheet.Cells.Item($row,$column)= "b"
$Column++
#Increment to next row and reset Column to 1
$Column = 1
$row++
# rename workbook
$workbook = $workbook
#$workbook = $excel.Workbooks.Add()
# Get sheets
$ws3 = $workbook.worksheets | where {$_.name -eq "DiskInformation"} #<------- Selects sheet 3
$xlPivotTableVersion12 = 3
$xlPivotTableVersion10 = 1
$xlCount = -4112
$xlDescending = 2
$xlDatabase = 1
$xlHidden = 0
$xlRowField = 1
$xlColumnField = 2
$xlPageField = 3
$xlDataField = 4
$xlDirection = [Microsoft.Office.Interop.Excel.XLDirection]
# R1C1 means Row 1 Column 1 or "A1"
# R65536C5 means Row 65536 Column E or "E65536"
$range1=$ws3.range("A1")
$range1=$ws3.Range($range1,$range1.End($xlDirection::xlDown))
$range2=$ws3.range("B1")
$range2=$ws3.Range($range2,$range2.End($xlDirection::xlDown))
$selection = $ws3.Range($range1, $range2)
$PivotTable = $workbook.PivotCaches().Create($xlDatabase,$selection,$xlPivotTableVersion10)
$PivotTable.CreatePivotTable("R1C6","Tables1") | Out-Null
[void]$ws3.Select()
$ws3.Cells.Item(3,1).Select()
$workbook.ShowPivotTableFieldList = $true
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Orientation = $xlRowField
$PivotFields.Orientation = $xlDataField
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnB")
$PivotFields.Orientation = $xlRowField
$PivotFields.Orientation = $xlDataField
编辑：
字段自定义的一个例子是这个：
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Orientation = $xlHidden
$PivotFields.Orientation = $xlDataField
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnB")
$PivotFields.Orientation = $xlHidden
$PivotFields.Orientation = $xlDataField
或者这个
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnA")
$PivotFields.Orientation = $xlPageField
$PivotFields.Orientation = $xlDataField
$PivotFields = $ws3.PivotTables("Tables1").PivotFields("ColumnB")
$PivotFields.Orientation = $xlPageField
$PivotFields.Orientation = $xlDataField
试试这个
$excel = New-Object -ComObject Excel.application
$excel.Visible = $True
$wb = $excel.Workbooks.Open('C:\Users\XYZ\Desktop\new.xlsx')
$ws2 = $wb.Sheets.Add()
#$ws2.Select()
$row=12
$pivCache = $wb.PivotCaches().Create(1,"Sheet1!R1C1:R"+$row+"C5",4)
$pivTable = $pivCache.CreatePivotTable("Sheet4!R1C1","PivotTable1",4)
$shape = $ws2.Shapes.AddChart()
#$shape.Select()
$chart = $shape.Chart
$chart.ChartType = 4
#$range = $ws2.Range("A1:C18")
#$chart.SetSourceData($range)
#$shape.IncrementLeft(19)
#$shape.IncrementTop(15)
$db2Field = $pivTable.AddDataField($pivTable.PivotFields("db2cpu"),"Sum of DB2 CPU",-4157)
$inField = $pivTable.PivotFields("intime")
$inField.Orientation = 1
$inField.Position = 1
$fidField = $pivTable.PivotFields("fid")
$fidField.Orientation = 2
$fidField.Position = 1