コーディング

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

Excelマクロでは、無駄な再計算でマクロの実行速度を落とさないために、実行中はApplication.Calculationの自動計算をOFFにするコードを記述することがあります。PowerShellでこのプロパティを操作したときも、実行速度に影響があるか検証してみました。検証手順PowerShellのScript(*.ps1)でExcelに、数値と計算式を10000行3列、設定します。下記の2パターンをそれぞれ10回テストして、実行時間の平均値を求めます。パターンNo.検証パターンApplication.Calculation補足数値セル計算式セル1自動計算ONの状態(PowerShellのScript内で未設定)Excelファイルの設定の初期値のままとする。10000行(A1～A10000 セル、B1～B10000)10000行(C1～C10000セル)2自動計算OFFの状態xlCalculationManual意図的にPowerShellのScript内で意図的にOFFにする。処理の最後でONにする。10000行(A1～A10000 セル、B1～B10000)10000行(C1...

PowerShellによって図形のテキストボックスの位置、色(背景色、文字色)、書式(太字、斜体、下線、取消線)を設定するコードが、あまりWeb上に見つからないのでサンプルコードを作ってみました。仕様下記のようなPowerShellのScript(*.ps1)と、編集先のExcelファイルを用意します。Excelファイルの中にいくつかテキストボックスを配置して、PowerShellからこれらのテキストボックスの位置や色、書式を変更してみたいと思います。ソースコードExcelファイルを1ファイル読み取って、中にある図形については個別に編集します。changeSettingsExcelTextBox.ps1$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$excel.DisplayAlerts = $false$fileName = "Book1.xlsx"$filePath = (Convert-Path .) + "/" + $fileName$book = $exc...

PowerShellによって図形のテキストボックスの値を設定するコードを中々見つけられません。自力でサンプルコードを作ってみました。仕様下記のようなPowerShellのScriptファイル(*.ps1)と、編集先のExcelファイルを用意します。Excelファイルの中にいくつかテキストボックスを配置して、初期値として適当な値が記載されている状態にします。PowerShellのScriptによってこれらのテキストボックスのテキスト値を変更してみます。ソースコードExcelファイルを1ファイル読み取って、図形を1つずつループで取得し、テキストを1つ1つ書き換えていきます。ここでは"図形の値"という文字列と、1からの連番をテキストボックスへ格納します。changeExcelTextBox.ps1$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$excel.DisplayAlerts = $false$fileName = "Book1.xlsx"$filePath = (...

PowerShellによってExcelの図形のテキストの値を取得するコードが、Web上になかなか見つからなかったので、サンプルコードを作ってみました。仕様下記のようなPowerShellのScriptファイル(*.ps1)と、読み込む先のExcelファイルを用意します。Excelファイルの中には、いくつかテキストボックスを配置して、その中にテキストを記述しています。これらのテキスト値を抽出し、PowerShellのコンソールに出力しようと思います。(ちなみにA1セルの値は意味はないです)ソースコードExcelファイルを1ファイル読み取って、図形を1つずつループで取得し、テキストをコンソール出力します。基本的にはPowerShellで記述する場合もVBAで記述する場合も一緒なのですが、細部がPowerShell仕様なので注意が必要です。readExcelTextBox.ps1$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$excel.DisplayAlerts = $...

PowerShellのスクリプトファイル(*ps1)を実行するには右クリックメニューから「PowerShellで実行」を選択して、クリックすることになります。しかしそれだとPowerShellのScriptファイルに慣れていない人々に配布するときには、実行方法について追加の説明をする必要があり不便です。なので備忘録として、ダブルクリック用のバッチの作り方を残すことにしました。解決したいこと問題点PowerShellのScriptファイル(*.ps1)を実行するには右クリックメニューから「PowerShellで実行」メニューを選択して実行することになります。これだとチームに配布する際に、使い方を説明するのが少々面倒です。（チーム全員スキルが高ければ各々で勝手に調べるんでしょうけど、サラリーマン社会は技術者だけでなく、部課長だったりお客様など技術者層以外も使ったりするので、そうはいかないことが多いです。）変更内容これを「exec.bat」のようなバッチファイルをダブルクリックするだけで、「ScriptFile.ps1」のようなPowerShellのScriptファイルを実行してくれるように...

以前、VBAで拡大率100%、カーソル位置A1を一括でチェックするPowerShellのScript(*.ps1)を書きました。あくまでフォルダ内のExcelファイルを一通りチェックして問題のある部分をピックアップするだけです。仕様例えばフォルダの中に納品前のExcelファイルが沢山あって、1つずつ目で問題ないかチェックするのは大変だと思いませんか？よく納品前のチェックリストに記載されていることとして下の3つが挙げられていると思います。お客さんに見せてはいけない非表示シートが混じっていていませんか？※これは大変まずい全部のシートで拡大率は100%にしていますか？カーソル位置がA1になっていますか？これらを手作業で確認すると結構な工数がかかる作業になってしまいます。今回上記の3点の確認をファイルを壊さずにスクリプト1本で確認してみます。ソースコードやることは大まかに以下のことです。作業フォルダに移動する作業フォルダ内にあるファイルごとにループするエクセルファイルを開くシートごとにループする各種チェックをする非表示シートチェック拡大率チェックカーソル位置チェック(A1)エクセルファイルを閉...