PowerShell

PowerShellによりExcelのシートの並び替えをするサンプルコードを紹介します。仕様以下のようなサンプルファイルを用意します。Book1.xlsxうまくいけば、PowerShell実行後にシートがSheet1→Sheet2→Sheet3・・・Sheet6の並び順に変わります。以下のキャプチャのイメージですソースコードソースはPowerShellで記述します。SortExcelSheets.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)# シート名の取得$workArray = @()foreach ($s in $book.sheets){ $workArray+= $s.nam...

PowerShellによりExcelファイルのシートの色を変更するサンプルコードを紹介します。Web上で類似ソースが意外に見つからなかったので、VBAのサイトを見ていろいろ試しました。仕様以下のようなExcelファイルを用意して、PowerShellからシートの色を変えてみます。なお、実装方法はいくつかあります。IndexColorプロパティ版IndexColorによりSheet1の色を設定します。一番記述が簡単です。たまにWeb上で出てくるサンプルもこの方法が多く、最も一般的な方法なのかと思われます。ソースコードsetSheetColorColorIndex.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(...

PowerShellによりExcelを操作し、各シートの先頭に連番を振るサンプルコードを作成しました。仕様Excelファイルの各シートの先頭に、PowerShellから連番を振ります。以下のようなサンプルファイルを用意します。book.xlsxPowerShell実行後、うまくいけば以下のようにシート名が変わります。実行前のシート名ABCD実行後のシート名01_A02_B03_C04_DソースコードソースはPowerShellで記述します。addSheetNumberToExcelSheet.ps1$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.wo...

PowerShellで選択ソートをするサンプルコードを紹介します。仕様PowerShellで配列データを、選択ソートして表示します。PowerShellは標準でソートの関数が用意されていますが、あえて自力でソートする関数を作成します。ソースコード選択ソートする部分をselectionSort関数として別に切り出しました。テストデータとしてランダムな数字を配列で用意して、ソート前後で表示します。SelectionSort.ps1# sort functionfunction selectionSort($data){ for($i = 0; $i -lt $data.Count - 1; $i++){ # 0 to array.count - 1 $min = $i; # 最小値 for ($j = $i+1; $j -lt $data.Count;$j++){ if($data -lt $data){ $min = $j } } # swap $tmp = $data $data = $data $data = $tmp } return $data}$array1 = @(100,0...

PowerShellによりExcelファイルを、シート毎にファイル分割するサンプルコードを紹介します。仕様シートが複数ある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($filePa...

PowerShellでバブルソートするサンプルコードを作成してみました。（PowerShellでバブルソートする需要はないと思いますが・・・）仕様PowerShellで配列データをバブルソートして、配列データを表示します。PowerShellは標準でソートの関数が用意されていますが、あえて自力でソート関数を作成します。ソースコードバブルソートする部分をbubbleSort関数として別に切り出しました。テストデータとしてランダムな数字を配列で用意して、ソート前後で表示します。バブルソート.ps1# sort functionfunction bubbleSort($data){ for($i = 0; $i -lt $data.Count - 1; $i++){ # 0 to array.count - 1 for($j = $i + 1; $j -lt $data.Count; $j++){ # $i to array.count if($data -gt $data){ # swap $tmp = $data $data = $data $data = $tmp } } } retu...

PowerShellによりフォルダ内の各ファイルの名前に更新日時を追記するサンプルコードを紹介します。仕様以下の通り、フォルダ内にいくつかのファイルがあります。変なファイルネームネーミングルールの単体結果エビデンスや、一定時間間隔でキャプチャした画像というのがよくありそうです。実行前これらのファイルの後ろに更新日時を追記してみます。実行後ファイルソースコード$files = Get-Item *.xlsxforeach($file in $files){ $newfileName = $file.BaseName + "_" + $(Get-ItemProperty $file).LastWriteTime.ToString("yyyyMMdd-hhmmss") + $file.Extension Rename-Item $file $newfileName}PauseGet-Itemで「*.xlsx」を指定することによってExcelのみを取得するようにしていますが、他の拡張子に変更すればテキストやワードファイルも可能です。また、$newFileへの格納内容は下記のとおりです。命令説明...

PowerShellによりフォルダ内のファイルの更新日時をランダムな日時するサンプルコードを紹介します。ファイルを自動生成したときとか更新日時が同じになるのですが、大人の事情で更新日時を変えざるを得ないときがあるのです。。仕様何かの成果物（設計書、仕様書）をプログラムで一括で作ってしまうと、すべての更新日時が同じになってしまうことがあります。これを諸事情により人が作ったように、PowerShellでランダムな日付にしてみます。実行前実行後このように更新日時をめちゃくちゃにしてみます。ファイルソースコードChangeFileUpdatedDateTime.ps1$files = Get-Item *.xlsxforeach($file in $files){ # 現在の日時 $randomDay = (Get-Date) # 減算する日時の値を取得 # 年(0～5年) $minusYear = Get-Random -Maximum 5 -Minimum 0 # 月(0～3か月) $minusMonth = Get-Random -Maximum 3 -Minimum 0 # 日(0～3...

PowerShellによってフォルダ内のExcelファイルの印刷枚数を一括で取得するサンプルコードを作成しました。Excelファイルの印刷枚数カウントのよくある悩み納品前になって突然ですね、お客さん作った成果物(Excel)の枚数を一覧化してくださいなんていうことがたまにあります。これが2、3ファイルならたいした作業じゃないからいいんです。が、この作業はふたを開けるとファイル数が多かったり、開いてみてシート数が何十とかあったりします。実際にやると何時間も時間がかかりませんか？私地球環境を大事にする時代にプリンタの印刷枚数なんか数えてもなあが、偉い人が物量を知る指標としてはいいんでしょうね、きっと。ただこの作業、ちょっとスクリプトを組めばすぐ作業が終わるかもしれません。仕様例として下記のようなPowerShellと、印刷枚数をカウントするExcelファイルを用意します。Excelファイルはシートを複数用意して、印刷枚数を分かりやすくするため、改ページプレビューをしています。ファイル数と、シート数はいくらあっても良いものとして考えますが今回は2ファイル、各々数シートで考えます。ソースコード...

ExcelマクロでApplication.Calculationの自動計算をOFFにするコードを記述することがあります。これは無駄な再計算でマクロの実行速度を落とさないためです。PowerShellでこのプロパティを設定した場合も、実行速度に影響があるか検証してみました。検証手順Excelシートに対して、数値と計算式を格納する処理を大量に繰り返すPowerShellのScript(*.ps1)を用意します。そして下記の2パターンでそれぞれ10回テストして、実行時間の平均値を求めます。No.検証パターンApplication.Calculation補足1自動計算ONで実行xlCalculationAutomatic（※規定値を想定）処理開始時から処理終了まで自動計算ON2自動計算OFFで実行xlCalculationManual処理開始時から処理終了まで自動計算OFFなお、Application.CalculationはExcelの以下の部分の設定と同等です。ソースコード使用したソースコードは下記のとおりです。$excel.Calculationの部分(25行目、43行目あたり)の設定を...