こんにちは！
デジタル学び始めて2ヶ月、駆け出しプログラマーのおみえです。

普段パソコンで作業していて、「これ、地味に手間だなぁ」と感じたことはありませんか？
例えば、前に作成したデータをコピーして、中身を手作業で修正するような場合です。
以前、この春異動してきた新人さんに、今やってる業務で手間だなと思うことは何かあるかを聞いたところ、「書類を郵送する時に、住所調べたり、送付状作ったり、封筒準備したりやることが以外に多く手間です！」と答えていたのを思い出し、自動で作成できないかと考えました。

そこで、既存のExcelデータから値を抽出して、Wordのテンプレートに自動で転記する方法をPower Automate Desktopを使用して作成してみました。

やりたいこと

使用ツール

・Power Automate Desktop
・Excel
・VBA
・ChatGPT
・Word

完成品

各データの準備・設定

①　読み取るExcelデータ
既存のExcelデータから、Ａ列に作成する行を指定する列を挿入しました。
1の記入がある行のデータのみ抽出します。

②　転記用Excelデータ
このExcelにはWordテンプレートに書き出すVBAを組み込んでいます。
スクリプトは今後追加や編集がしやすいようにWordのテンプレートごとにモジュールを分けており、スクリプトはChatGPTに書いてもらいました。
※以前ChatGPTにスクリプトを書いてもらう記事を投稿していますので参考にしてください。

③　Wordテンプレート
Wordテンプレートのどの部分に②に転記した値を入れるかを指定する為、②のExcel1行目の項目を<<項目名>>で指定しています。

Power Automate Desktopのフロー

フロー全体

フローのソースコード

下記のソースコードをコピーしてPower Automate Desktopのフロー画面に貼り付けるとフローをコピーできます。 ※ファイルの保存先、ファイル名、マクロ指定は任意の名前に指定してください。

Robin

DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
Text.ConvertDateTimeToText.FromCustomDateTime DateTime: CurrentDateTime CustomFormat: $'''yyyy-MM-dd''' Result=> FormattedDateTime
Folder.Create FolderPath: `` FolderName: FormattedDateTime Folder=> NewFolder
File.Copy Files: $'''C:\\保存先指定\\template1.docx''' Destination: NewFolder IfFileExists: File.IfExists.DoNothing CopiedFiles=> CopiedFiles
File.Copy Files: $'''C:\\保存先指定\\template2.docx''' Destination: NewFolder IfFileExists: File.IfExists.DoNothing CopiedFiles=> CopiedFiles2
File.Copy Files: $'''C:\\保存先指定\\\\template3.docx''' Destination: NewFolder IfFileExists: File.IfExists.DoNothing CopiedFiles=> CopiedFiles3
File.Copy Files: $'''C:\\保存先指定\\〇〇.xlsm''' Destination: NewFolder IfFileExists: File.IfExists.DoNothing CopiedFiles=> CopiedFiles4
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: $'''C:\\保存先指定\\〇〇.xlsx''' Visible: True ReadOnly: False Instance=> ExcelInstance
Excel.GetFirstFreeColumnRow Instance: ExcelInstance FirstFreeColumn=> FirstFreeColumn FirstFreeRow=> FirstFreeRow
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: 1 StartRow: 1 EndColumn: FirstFreeColumn EndRow: FirstFreeRow ReadAsText: False FirstLineIsHeader: False RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance
Folder.GetFiles Folder: NewFolder FileFilter: $'''*.xlsm''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: Files[0] Visible: True ReadOnly: False Instance=> ExcelInstance2
Excel.GetFirstFreeRowOnColumn Instance: ExcelInstance2 Column: $'''A''' FirstFreeRowOnColumn=> FirstFreeRowOnColumn
SET cnt TO 0
LOOP FOREACH CurrentItem IN ExcelData
    IF CurrentItem[0] = 1 THEN
        Excel.WriteToExcel.WriteCell Instance: ExcelInstance2 Value: FormattedDateTime Column: $'''A''' Row: FirstFreeRowOnColumn + cnt
        Excel.WriteToExcel.WriteCell Instance: ExcelInstance2 Value: CurrentItem[1] Column: $'''B''' Row: FirstFreeRowOnColumn + cnt
        Excel.WriteToExcel.WriteCell Instance: ExcelInstance2 Value: CurrentItem[6] Column: $'''C''' Row: FirstFreeRowOnColumn + cnt
        Excel.WriteToExcel.WriteCell Instance: ExcelInstance2 Value: CurrentItem[13] Column: $'''D''' Row: FirstFreeRowOnColumn + cnt
        Excel.WriteToExcel.WriteCell Instance: ExcelInstance2 Value: CurrentItem[11] Column: $'''E''' Row: FirstFreeRowOnColumn + cnt
        Excel.WriteToExcel.WriteCell Instance: ExcelInstance2 Value: CurrentItem[39] Column: $'''F''' Row: FirstFreeRowOnColumn + cnt
        Variables.IncreaseVariable Value: cnt IncrementValue: 1
    END
END
Excel.RunMacro Instance: ExcelInstance2 Macro: $'''TransferDataToWord_Template1'''
Excel.RunMacro Instance: ExcelInstance2 Macro: $'''TransferDataToWord_Template2'''
Excel.RunMacro Instance: ExcelInstance2 Macro: $'''TransferDataToWord_Template3'''
Excel.CloseExcel.CloseAndSave Instance: ExcelInstance2

アクション設定時の主な注意点

2．datetimeをテキストに変換
取得した現在の日時をテキストに変換する際、カスタム形式に/を使用してしまうと階層と認識されそれぞれのフォルダが作成されてしまいます。
yyyy-MM-ddとすることで（例）2024-06-01のフォルダが作成されます。

15．変数の設定／24.変数を大きくする
読み取ったデータを転記する際、次の行への書き込みを指定する為、変数の設定が必要です。書き込む前に変数0を設定し、1行書き込んだら変数1を追加すると次の行に書き込みされます。

17．if
読み取るデータの１列目に1がついている行だけを抽出します。

18～23．Excelワークシートに書き込む
書き込む行を指定する際、15で設定した変数をプラスして指定します。

27～29．Excelマクロの実行
転記用Excelに組み込んだマクロ名を指定します。

作成されたWordデータ

赤字部分が抽出されたデータから転記された部分です。きちんと転記されています。

作成したものを使ってもらってみた感想と課題

部署内のメンバーに実際使ってもらい感想を聞いてみました。

作成意図説明

テンプレートにExcelから作成したい行を指定するだけで、ボタン１つで自動でWordデータを作成してくれるツールを作りました！これを発展させれば契約書も自動で作れると思うんです。使ってみた感想を教えてください！

外出が多く事務作業にあまり時間をかけたくない同僚

テンプレートコピーしてくれるのありがたい！
作るデータごとに作成ツールを別々で開くのは手間なので、１つのツールを開いて、テンプレートを指定して作成できるといい。

今回はテンプレートの指定はできない為、個々に作成したいテンプレートが選択できる機能があると、いろんなデータを開かなくてもいいかもしれません。

封筒に手書きで宛名書きしていたこの春異動してきた新人さん

おおー！今、一番デジタルを感じています！封筒の宛名テンプレートも欲しいです。さらに印刷まで自動でしてくれるとありがたいです！

印刷までは想定外でした。”Wordを開いて印刷ボタンを押す”までも自動化すべきか悩むところですが、単純な宛名や送付状であれば作成されたデータの中身確認は必要ないかもしれません。契約書であると確認は必要なのでいきなり印刷までしてしまうと紙の無駄になる可能性も。テンプレートによって設定が分けれないか検討してみます。
Power Automate Desktop、もしくはVBAで印刷機能も試しに追加してみようと思います。

課題

今回、データがフォルダに投稿されたら自動的に書類作成がスタートする機能を作りたかったのですが、Power Automate Desktopではトリガーが設定できません。Power Automateであれば〇〇が発生した時のようなトリガー設定ができます。一度そちらでも試してみようと思います。
抽出するデータ量が多いほどFor eachの繰り返しアクションが多くなる為、処理時間が長くなってしまいます。繰り返しの時間短縮方法や、データ抽出方法の検討も必要だと感じました。
Power Automate Desktopは、インストールが必要で、メンバーのPCにインストールしてもらう必要があります。アカウント設定等が必要になるので、普段使い慣れているExcelのみで完結できるツールである方が使用しやすいかもしれません。

作成してみて感じたこと

今回はPower Automate Desktopを使用して自動化するツールを作成しましたが、ExcelのVBAのみでもできるのではないか、Power Automate Desktopを使用する必要があるのか？と感じていました。実際にテンプレートに書き出すのはVBAで設定しており、Excel上でボタンを設定すればExcelのみで完結できます。
自動化したけれども、その前や後の作業部分も自動化できるんじゃないかと他の人の意見や自分の思考を追加していき、また、様々な作成方法を知っているからこそ、より効率的にするには何を選ぶべきかを考えていくことが業務改善には必要だと感じました。
今回Power Automate Desktopを使用してみて思考力がさらに鍛えられました💪

Power Automate DesktopでExcelとWordを動かす！～書類作成の自動化～