PowerShellでエクセルのピボットテーブルを自動生成して大規模データを効率的に分析する方法

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true

$Workbook = $Excel.Workbooks.Add()
$Worksheet = $Workbook.Worksheets.Item(1)

$Worksheet.Cells.Item(1, 1) = "データ分析"
$Worksheet.Cells.Item(1, 2) = 12345

$Workbook.SaveAs("C:\Temp\Sample.xlsx")
$Excel.Quit()

# Excelアプリケーションの起動
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true  # Excelを画面に表示

# 新しいワークブックを作成
$Workbook = $Excel.Workbooks.Add()
# 最初のシートを取得
$Worksheet = $Workbook.Worksheets.Item(1)

# セルにデータを入力
$Worksheet.Cells.Item(1, 1) = "名前"
$Worksheet.Cells.Item(1, 2) = "売上"
$Worksheet.Cells.Item(2, 1) = "商品A"
$Worksheet.Cells.Item(2, 2) = 5000
$Worksheet.Cells.Item(3, 1) = "商品B"
$Worksheet.Cells.Item(3, 2) = 7000

# ファイルの保存
$Workbook.SaveAs("C:\Temp\SalesData.xlsx")

# アプリケーションを終了
$Excel.Quit()

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Worksheet = $Workbook.Worksheets.Item(1)

$Worksheet.Cells.Item(1, 1) = "名前"
$Worksheet.Cells.Item(1, 2) = "売上"
$Worksheet.Cells.Item(2, 1) = "商品A"
$Worksheet.Cells.Item(2, 2) = 5000
$Worksheet.Cells.Item(3, 1) = "商品B"
$Worksheet.Cells.Item(3, 2) = 7000

$Workbook.SaveAs("C:\Temp\SalesData.xlsx")
$Excel.Quit()

# サンプルデータの作成
$DataSet = @(
    [PSCustomObject]@{ 日付 = "2025-01-01"; 商品名 = "商品A"; 売上 = 5000 }
    [PSCustomObject]@{ 日付 = "2025-01-02"; 商品名 = "商品B"; 売上 = 7000 }
    [PSCustomObject]@{ 日付 = "2025-01-01"; 商品名 = "商品C"; 売上 = 4500 }
    [PSCustomObject]@{ 日付 = "2025-01-02"; 商品名 = "商品A"; 売上 = 6500 }
)

# Excelアプリケーションの起動
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Worksheet = $Workbook.Worksheets.Item(1)

# ヘッダーの書き込み
$Worksheet.Cells.Item(1, 1) = "日付"
$Worksheet.Cells.Item(1, 2) = "商品名"
$Worksheet.Cells.Item(1, 3) = "売上"

# データ行の書き込み
$row = 2
foreach ($record in $DataSet) {
    $Worksheet.Cells.Item($row, 1) = $record.日付
    $Worksheet.Cells.Item($row, 2) = $record.商品名
    $Worksheet.Cells.Item($row, 3) = $record.売上
    $row++
}

# ファイルの保存
$Workbook.SaveAs("C:\Temp\SalesData.xlsx")
$Excel.Quit()

# CSVファイルを読み込む
$CsvData = Import-Csv -Path "C:\Temp\SalesData.csv"

# Excelにデータを書き込む
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Worksheet = $Workbook.Worksheets.Item(1)

# ヘッダーとデータの書き込み
$Headers = $CsvData[0].PSObject.Properties.Name
for ($col = 0; $col -lt $Headers.Count; $col++) {
    $Worksheet.Cells.Item(1, $col + 1) = $Headers[$col]
}

$row = 2
foreach ($record in $CsvData) {
    $col = 1
    foreach ($value in $record.PSObject.Properties.Value) {
        $Worksheet.Cells.Item($row, $col) = $value
        $col++
    }
    $row++
}

# ファイルの保存
$Workbook.SaveAs("C:\Temp\SalesData.xlsx")
$Excel.Quit()

# Excelアプリケーションの起動
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true

# 既存のExcelファイルを開く
$Workbook = $Excel.Workbooks.Open("C:\Temp\SalesData.xlsx")
$Worksheet = $Workbook.Worksheets.Item(1)

# ピボットテーブル用のシートを追加
$PivotSheet = $Workbook.Worksheets.Add()
$PivotSheet.Name = "ピボットテーブル"

# ピボットキャッシュの作成
$PivotCache = $Workbook.PivotCaches().Create(1, $Worksheet.UsedRange)

# ピボットテーブルの作成
$PivotTable = $PivotSheet.PivotTables().Add($PivotCache, $PivotSheet.Cells.Item(1, 1), "SalesPivot")

# 行ラベルを設定（例: 商品名）
$PivotTable.PivotFields("商品名").Orientation = 1  # 1 = xlRowField

# 値を設定（例: 売上の合計）
$PivotTable.AddDataField($PivotTable.PivotFields("売上"), "売上合計", -4157)  # -4157 = xlSum

# 列ラベルを設定（例: 日付）
$PivotTable.PivotFields("日付").Orientation = 2  # 2 = xlColumnField

# ファイルを保存して終了
$Workbook.SaveAs("C:\Temp\SalesData_with_Pivot.xlsx")
$Excel.Quit()

$PivotTable.RowAxisLayout(0)  # 0 = xlTabularRow

$PivotTable.TableStyle2 = "PivotStyleMedium9"

$DataField = $PivotTable.PivotFields("売上")
$DataField.Function = -4106  # -4106 = xlAverage

$PivotTable.PivotFields("商品名").Orientation = 3  # 3 = xlPageField

$PivotTable.DataBodyRange.NumberFormat = "¥#,##0"

$PivotTable.DataBodyRange.NumberFormat = "0.00%"

# Excelアプリケーションの起動
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true

# Excelファイルを開く
$Workbook = $Excel.Workbooks.Open("C:\Temp\SalesData.xlsx")
$Worksheet = $Workbook.Worksheets.Item(1)

# ピボットシートを作成
$PivotSheet = $Workbook.Worksheets.Add()
$PivotSheet.Name = "カスタムピボット"

# ピボットキャッシュとテーブルの作成
$PivotCache = $Workbook.PivotCaches().Create(1, $Worksheet.UsedRange)
$PivotTable = $PivotSheet.PivotTables().Add($PivotCache, $PivotSheet.Cells.Item(1, 1), "CustomPivot")

# 行ラベル、列ラベル、値フィールドの設定
$PivotTable.PivotFields("商品名").Orientation = 1  # 行ラベル
$PivotTable.PivotFields("日付").Orientation = 2    # 列ラベル
$PivotTable.AddDataField($PivotTable.PivotFields("売上"), "売上合計", -4157)  # 合計

# カスタマイズ設定
$PivotTable.TableStyle2 = "PivotStyleMedium9"
$PivotTable.DataBodyRange.NumberFormat = "¥#,##0"
$PivotTable.PivotFields("商品名").Orientation = 3  # レポートフィルター

# ファイルの保存
$Workbook.SaveAs("C:\Temp\SalesData_CustomPivot.xlsx")
$Excel.Quit()

# Excelアプリケーションの起動
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true

# データセットを含むExcelファイルを開く
$Workbook = $Excel.Workbooks.Open("C:\Temp\LargeSalesData.xlsx")
$Worksheet = $Workbook.Worksheets.Item(1)

# ピボットシートの作成
$PivotSheet = $Workbook.Worksheets.Add()
$PivotSheet.Name = "売上分析"

# ピボットキャッシュとテーブルの作成
$PivotCache = $Workbook.PivotCaches().Create(1, $Worksheet.UsedRange)
$PivotTable = $PivotSheet.PivotTables().Add($PivotCache, $PivotSheet.Cells.Item(1, 1), "SalesPivot")

# 行ラベル: 地域
$PivotTable.PivotFields("地域").Orientation = 1

# 列ラベル: 商品名
$PivotTable.PivotFields("商品名").Orientation = 2

# 値: 売上の合計
$PivotTable.AddDataField($PivotTable.PivotFields("売上"), "売上合計", -4157)

# フィルター: 月ごとの売上を絞り込む
$PivotTable.PivotFields("日付").Orientation = 3  # フィルター

# デザインとフォーマット
$PivotTable.TableStyle2 = "PivotStyleMedium4"
$PivotTable.DataBodyRange.NumberFormat = "¥#,##0"

# ファイルの保存
$Workbook.SaveAs("C:\Temp\SalesAnalysisPivot.xlsx")
$Excel.Quit()

# Excelアプリケーションの起動
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true

# ピボットテーブルが含まれるExcelファイルを開く
$Workbook = $Excel.Workbooks.Open("C:\Temp\SalesAnalysisPivot.xlsx")
$PivotSheet = $Workbook.Worksheets.Item("売上分析")

# グラフシートの作成
$ChartSheet = $Workbook.Sheets.Add()
$ChartSheet.Name = "売上グラフ"

# グラフオブジェクトの作成
$ChartObject = $ChartSheet.ChartObjects().Add(50, 50, 600, 400).Chart

# データ範囲をピボットテーブルに設定
$PivotTableRange = $PivotSheet.UsedRange
$ChartObject.SetSourceData($PivotTableRange)

# グラフの種類を設定
$ChartObject.ChartType = 51  # 51 = xlColumnClustered（集合縦棒）

# グラフタイトルを設定
$ChartObject.HasTitle = $true
$ChartObject.ChartTitle.Text = "地域別・商品別売上分析"

# X軸とY軸のタイトルを設定
$ChartObject.Axes(1).HasTitle = $true  # 1 = xlCategory（X軸）
$ChartObject.Axes(1).AxisTitle.Text = "地域"
$ChartObject.Axes(2).HasTitle = $true  # 2 = xlValue（Y軸）
$ChartObject.Axes(2).AxisTitle.Text = "売上 (円)"

# グラフのスタイルを適用
$ChartObject.ApplyChartStyle(10)  # 10 = 任意のスタイルID

$ChartObject.SeriesCollection(1).ApplyDataLabels()  # データラベルを有効化

# ファイルを保存
$Workbook.SaveAs("C:\Temp\SalesAnalysisReport.xlsx")
$Excel.Quit()