PowerShellによりExcelファイルをシート毎にファイル分割するサンプルコード

PowerShellによりExcelファイルを、シート毎にファイル分割するサンプルコードを紹介します。

仕様
ソースコード
実行
1. 実行手順
2. 実行結果
参考情報
1. 環境
2. VBAサンプル版

仕様

シートが複数あるExcelファイルを、シートごとにブック分割します。

以下のようなサンプルファイルを用意します。

実行前

PowerShellのScriptファイル(*.ps1)を実行すると各シートがファイルに運活されます。

実行完了後に、以下3ファイルができるイメージです。

「AAA.xlsx」
「BBB.xlsx」
「CCC.xlsx」

ソースコード

ソースコードはPowerShellで記載しています。

excelファイルはデータとして扱い、マクロ等は一切入れません。

$excel = New-Object -ComObject Excel.Application
$book = $null

$excel.Visible = $false
$excel.DisplayAlerts = $false

$fileName  = "book.xlsx"
$filePath = (Convert-Path .) + "\" + $fileName

$book = $excel.Workbooks.Open($filePath)

for ($i=1; $i -le $book.worksheets.Count; $i++){

    $newbook = $excel.Workbooks.Add()

    # シートコピー
    $book.Worksheets($i).copy($newbook.Worksheets(1))
    
    #デフォルトシートの削除
    if ($newbook.worksheets(2).Name -eq "Sheet1"){
        $newbook.Worksheets(2).Delete()
    }

    # 新ブックの保存
    $newBookPath =(Convert-Path .) + "\" + $i.ToString() + "_" + $newBook.Sheets(1).Name +".xlsx"
    [void]$newbook.SaveAs($newBookPath)

    # 新ブックのクローズ
    [void]$newbook.Close($false)
    [void][System.Runtime.Interopservices.Marshal]::ReleaseComObject($newbook)

}

# コピー元を保存、クローズ
[void]$book.Save()
[void]$book.Close($false)
[void][System.Runtime.Interopservices.Marshal]::ReleaseComObject($book)

[void]$excel.Quit()
[void][System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

Pause