Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコード

Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコードを紹介します。

仕様
ソースコード
実行
1. 実行手順
2. 実行結果
参考情報
1. 環境

仕様

ローカルの任意の場所にPowerShellの*.ps1ファイルと、Excelファイルを格納します。

「Book1.xlsx」のA列のセルのフォント名を変更してみます。

後でPowerShellの実行前後を比較するため、B列にもA列の内容をコピーしておきます。

PowerShell実行前のフォント名は游ゴシックです。

これを以下のような別のフォント名に変更させます。

セル位置	実行前	実行後
A1	游ゴシック	ＭＳＰゴシック
A2	游ゴシック	ＭＳゴシック
A3	游ゴシック	ＭＳ明朝
A4	游ゴシック	メイリオ
A5	游ゴシック	游ゴシック

ソースコード

以下のコマンドとps1ファイルを準備しておきます。

コマンド

powershell -ExecutionPolicy RemoteSigned -File "setExcelFontName.ps1"

setExcelFontName.ps1

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

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

$fileName  = "Book1.xlsx"
$filePath = (Convert-Path .) + "/" + $fileName

$book = $excel.Workbooks.Open($filePath)
$sheet = $book.Sheets("Sheet1")

$cell = $sheet.Cells(1,1)
$cell.font.Name = "ＭＳ Ｐゴシック"

$cell = $sheet.Cells(2,1)
$cell.font.Name = "ＭＳ ゴシック"

$cell = $sheet.Cells(3,1)
$cell.font.Name = "ＭＳ 明朝"

$cell = $sheet.Cells(4,1)
$cell.font.Name = "メイリオ"

$cell = $sheet.Cells(5,1)
$cell.font.Name = "游ゴシック"


[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