コーディング

PowerShellでJSONファイルへ書き込むサンプルコード

PowerShellでJSONファイルへ書き込むサンプルコードを紹介します。ファイル構成jsonファイルとpowershellファイル(ps1)は同じディレクトリに格納しています。ソースコードコマンドを叩くと、JSONファイルを読み込み、ageプロパティとpets.typeプロパティを変更し書き込みます。また、プロパティ"language" : "japanese"を新規に追加します。コマンドpowershell -ExecutionPolicy RemoteSigned -File "WriteJson.ps1"WriteJson.ps1# JSONファイルの読み込み$jsonContent = Get-Content -Path "json1.json" -Raw$jsonObj = ConvertFrom-Json $jsonContent# プロパティの変更# 年齢$jsonObj.age = 99# ペットの種類$jsonObj.pets.type = "bird"# プロパティの追加# 母語$jsonObj | Add-Member -Name "language" -Va...

2024.12.15 2024.12.28

PowerShell

VBAによるswap関数(2つの変数の値を交換)のサンプルコード

VBAによるswap関数(2つの変数の値を交換)のサンプルコードを紹介します。SWAP関数とはSWAP関数とは「二つの変数の値を入れ替える」基本的な関数です。ソートアルゴリズムを学ぶ際に、SWAP関数は必ず必要な知識になります。ここではVBAで、2ステップに分けてSWAP関数を作成していきます。二つの変数の値を入れ替えるコードを作成する上記のコードをSWAP関数化する二つの変数の値の入れ替えまずはシンプルに2つの変数の値を入れ替えます。関数化は後で実施します。ソースコードThisWorkbookの下にソースコードを記述しました。swap1.xlsmOption ExplicitSub main() Dim dataA As String Dim dataB As String Dim temp As String dataA = "AAAA" dataB = "BBBB" MsgBox "実行前:" & Chr(13) + Chr(10) & dataA & "," & dataB temp = dataA dataA = dataB dataB = temp MsgBox "実行後:...

2024.12.14 2024.12.15

VBA

PowerShellによるswap関数(2つの変数の値を交換)のサンプルコード

PowerShellによるswap関数(2つの変数の値を交換)のサンプルコードを紹介します。SWAP関数とはSWAP関数とは「二つの変数の値を入れ替える」基本的な関数です。ソートアルゴリズムを学ぶ際に、SWAP関数は必ず必要な知識になります。ここではPowerShellで、2ステップに分けてSWAP関数を作成していきます。二つの変数の値を入れ替えるコードを作成する上記のコードをSWAP関数化する二つの変数の値の入れ替えまずはシンプルに2つの変数の値を入れ替えます。関数化は後で実施します。ソースコードコマンドpowershell -ExecutionPolicy RemoteSigned -File "swap.ps1"swap.ps1$data1 = "あいうえお"$data2 = "かきくけこ"Write-Host ("入れ替え前：" + $data1 + "," + $data2)# 値の入れ替え$temp = $data1$data1 = $data2$data2= $tempWrite-Host ("入れ替え後：" + $data1 + "," + $data2)Read-Ho...

2024.12.14 2024.12.15

PowerShell

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコード

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコードを紹介します。仕様下記のシートのA列のように文末に余分に改行があるとします。※B列に補足を入れていますこれを以下のシートのように、余分な改行を削除するVBAを考えました。文章の途中の改行は残しつつ、文末の改行だけを消すのです。ソースコードソースコードは以下のとおりです。Option ExplicitSub deleteLineBreak() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Dim CellValue As String CellValue = Worksheets("Sheet1").Cells(i, 1).value '文字数回繰り返す Dim j As Long For j = 1 To Len(CellValue) '最後の文字が改行コードの場合 If Right(CellValue, 1) = vbLf Or Right(CellValue, 1) = vbCr Then '最後の文字以外を格納 CellValue...

2024.08.04 2024.12.12

VBA

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

Excelの各セルのフォント名（フォントファミリー）を変更するPowerShellのサンプルコードを紹介します。仕様ローカルの任意の場所に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$exc...

2024.08.04 2024.12.12

PowerShell

郵便番号一覧から住所を求めていくREST APIを使ったVBAのサンプルコード(zipcloud版)

郵便番号一覧から住所を求めていく、REST APIを使ったVBAのサンプルコードを公開してみます。使用するWebAPIExcel単体で住所情報検索はできないので、下記「郵便番号検索API」の力を借ります。サービス名郵便番号検索API運営株式会社アイビスURL概要郵便番号検索APIは、日本郵便が公開している郵便番号データを検索する機能をRESTで提供しています。仕様画面仕様表のA列に住所を求めたい「郵便番号」の一覧を入力しています。表の右に住所出力の実行ボタンが配置されています。実行ボタンを押下すると、B列とC列に「住所」と「住所（カナ）」が出力されます。ソースコードSub ボタン1_Click() Dim objXMLHttp As Object, zipArr Dim yubinNo As String Dim splitLine() As String Dim i As Long i = 2 '行番号 Do While Cells(i, 1).value <> "" '入力値からハイフンの削除 yubinNo = Replace(Worksheets("Sheet1").Cells...

2024.08.03 2024.08.05

VBA

Excelのシートの並び順を逆順にするPowerShellのサンプルコード

Excelのシートの並び順を逆順にするPowerShellのサンプルコードを作ってみました。仕様ローカルの任意の場所にps1ファイルと、Excelファイルを格納します。Book1.xlsxを開くと、左から以下の順でシートが用意されています。Sheet1Sheet3Sheet5Sheet2Sheet4Sheet6PowerShellを実行すると、以下のように元の順と逆順に入れ分かるようにします。Sheet6Sheet4Sheet2Sheet5Sheet3Sheet1※あくまで逆順であって、ソートじゃないことに注意ソースコードpowershell本体と、PowerShellを実行するためのコマンドです。コマンドpowershell -ExecutionPolicy RemoteSigned -File "ReserveSheet.ps1"ReserveSheet.ps1$excel = New-Object -ComObject Excel.Application$book = $null$excel.Visible = $false$excel.DisplayAlerts = $fals...

2024.08.01 2024.12.12

PowerShell

Wordの古い「97-2003文書(.doc)」を新しい「Word文書(.docx)」の形式にまとめて変換するPowerShellのサンプルコード

Wordの古い「97-2003文書(.doc)」を新しい「Word文書(.docx)」の形式にまとめて変換するPowerShellのサンプルコードを紹介してみようと思います。doc形式？と思われるかもしれませんが、まだまだ古い文書を保有している企業は多いと思いますので、使いどころはあると思います。仕様以下のようにwordの古いファイル形式「*.doc」ファイルが同じディレクトリに格納されているとします。これらを「transWordFiles.bat」バッチをダブルクリックするだけで、新しいWordの形式に変換するという仕様です。※もちろん拡張子だけ変えるとかいうこざかしいことはしません。今回の場合はとりあえず例としてWordファイルを5ファイル用意しました。が、たぶん数百ファイルぐらいは大丈夫なんじゃないかと思います。ソースコードバッチ処理はPowerShellを呼び出すだけです。ポリシーの関係で一回バッチから実行していますが、PCの設定を変更して直接PowerShellの処理を実行しても良いかと思います。transWordFiles.batpowershell -ExecutionP...

2024.05.25

PowerShell

VBAからPowerShellのコマンドを実行するサンプルコード（戻り値を取得しないパターン）

VBAからPowerShellのコマンドを実行するサンプルコードを2パターン作成してみました。この記事ではそのうちの戻り値が不要で取得しないパターンを紹介します。準備事前準備として、VBAからPowerShellコマンドを実行するには以下の設定が必要です。ツールバーから「参照設定」を選択「Windows Script Host Object Model」のライブラリファイルにチェックを入れます。仕様VBAからPowerShellコマンドを呼び出します。テストで実行するPowerShellのコマンドはなんでもよいのですが、ここでは「Rename-Item」にしてみましょう。マクロファイル(xlsm)と同じディレクトリにファイル「File1.txt」を置き、マクロからPowerShell経由でファイル名を変更してみます。マクロを実行したらファイル名が、「File1.txt」から「File2.txt」になります。見出し念のため補足しますが、実現している処理自体はVBAからPowerShellを経由する必要性はありません。マクロからPowerShellを実行する方法をテストするためにやっていま...

2024.05.25

PowerShellVBA

VBAからPowerShellのコマンドを実行するサンプルコード（戻り値を取得するパターン）

VBAからPowerShellのコマンドを実行するサンプルコードを2パターン作成してみました。この記事ではそのうちの戻り値を取得するパターンを紹介します。準備事前準備として、VBAからPowerShellコマンドを実行するには以下の設定が必要です。ツールバーから「参照設定」を選択「Windows Script Host Object Model」のライブラリファイルにチェックを入れます。仕様VBAからPowerShellコマンドを呼び出します。PowerShellのコマンドはなんでもよいのですが、「Get-Date」にして結果をVBAのMsgBox関数で表示してみます。見出し念のため補足しますが、実現している処理自体はVBAからPowerShellを経由する必要性はありません。マクロからPowerShellを実行する方法をテストするためにやっています。ソースコードWScript.ShellのExecメソッドにより、powershellのコマンドを実行しています。execPowerShell.xlsmOption ExplicitFunction execPowerShell(psCmd...

2024.05.25

PowerShellVBA