<Query Kind="VBStatements">
  <Reference>&lt;ProgramFilesX86&gt;\Reference Assemblies\Microsoft\WindowsPowerShell\3.0\System.Management.Automation.dll</Reference>
  <Namespace>System.Collections.ObjectModel</Namespace>
  <Namespace>System.Management.Automation</Namespace>
</Query>

Dim PowerShellInstance As PowerShell = PowerShell.Create
Dim scriptBuilder As New System.Text.StringBuilder

scriptBuilder.AppendLine("param($WorkbookFullPath)")
scriptBuilder.AppendLine("$ExcelApp = New-Object -ComObject Excel.Application")
scriptBuilder.AppendLine("$ExcelApp.DisplayAlerts = $false")
scriptBuilder.AppendLine("$ExcelWorkbook = $ExcelApp.Workbooks.Open($WorkbookFullPath)")
scriptBuilder.AppendLine("$ExcelWorksheet = $ExcelWorkbook.Worksheets.Item('PivotResult')")
scriptBuilder.AppendLine("$ExcelWorksheet.Activate()")
scriptBuilder.AppendLine("$PivotTable = $ExcelWorksheet.PivotTables('ncov')")
scriptBuilder.AppendLine("$PivotTable.ClearTable()")
scriptBuilder.AppendLine("Remove-Variable -Name PivotTable,ExcelWorksheet")
scriptBuilder.AppendLine("$ExcelWorkbook.Save()")
scriptBuilder.AppendLine("$ExcelWorkbook.Close($false)")
scriptBuilder.AppendLine("Remove-Variable -Name ExcelWorkbook")
scriptBuilder.AppendLine("$ExcelApp.Quit()")
scriptBuilder.AppendLine("Remove-Variable -Name ExcelApp")
scriptBuilder.AppendLine("Stop-Process -Name EXCEL")

PowerShellInstance.AddScript(scriptBuilder.ToString)
PowerShellInstance.AddParameter("WorkbookFullPath", "E:\Gitee\TestData03.xlsx")

Dim PSOutput As Collection(Of PSObject) = PowerShellInstance.Invoke
Dim DataStreams As PSDataStreams = PowerShellInstance.Streams

PSOutput.Dump
DataStreams.Dump

PowerShellInstance.Dispose