【連載】#24 Access VBA の関数ライブラリを使いExcel のブック間で指定セル領域をコピーしよう

【連載】#23 バッチファイルで CSVダウンロード Access データ処理 Excel グラフ描画を統合する

本記事ではしらかば堂の Access VBA 関数ライブラリ ExportInputBookToOutbookBook を利用してグラフ描画用のデータを入力用指定 Excel ブックの指定シートの指定セル領域から出力用指定 Excel ブックの指定シートの指定セル領域へコピーする方法を紹介します｡

いつも記事を読んで頂きありがとうございます～
今日の調子はいかがですか？

Access VBA で Excel のブック間でデータをコピーする

記事 #23 ではCSV ダウンロードから Access でのデータ整形を経て最終的に Excel による「 東京都コロナ入院数と退院数比率推移」という２軸グラフを自動描画するまでのバッチ処理について紹介しました。

ですが、一点まだ紹介していない機能がありますよね。

つまり 18_02.accdb が出力した T1040_日付_退院者数_入院者数_退院率.xlsx の 400 日分のデータを T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx にエクスポートする機能です。

今回の記事ではこの目的を達成するためにしらかば堂のライブラリの中に準備されている関数

【Access VBA】Excel の指定シートを別ブックのシートにエクスポートする

を Access ファイルに組み込んだ 23_01.accdb を作成することでこれを行う方法について紹介します。

このしらかば堂のライブラリ関数 ExportInputBookToOutbookBook は入力用として指定された Excel ブックの指定シート、指定セル領域のデータをコピーして出力用として指定された Excel ブックの指定シート、指定セル領域へ丸ごとペーストできるので

この機能を利用し

T1040_日付_退院者数_入院者数_退院率.xlsx

の 400 日分のデータを

T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx

のグラフ描画用のデータ領域へコピーするという訳です。

入出力データの確認

入力側 Excel ブック

ではまず、入力側の Excel ブックについて以下におさらいしておきましょう。

この Excel ブックは

【連載】#22 Accessの選択クエリでテーブルのフィールド間計算をしよう

のエクスポート結果として出力されたものでした。

データの全体がわかるように開始領域と、終了領域を連続して掲載しておきますね。

この図からデータのコピー元領域が

ブック名: T1040_日付_退院者数_入院者数_退院率.xlsx
シート名: T1040_日付_退院者数_入院者数_退院率
セル領域名: $A$1:$D$401

となっていることを確認しておきましょう。

出力側 Excel ブック

次に出力側の Excel ブックについてもおさらいしておきましょう。

この Excel ブックも先ほどの T1040_日付_退院者数_入院者数_退院率.xlsx 同様に

【連載】#22 Accessの選択クエリでテーブルのフィールド間計算をしよう

のエクスポート結果として出力されたものなのですが、これに対して以下の動画で示した手順により

「東京都コロナ入院数と退院数比率推移」という２軸グラフを描画した「グラフ」シートを追加し、これを T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx というテンプレートファイルとして名称変更したものです。

こちらも全体がわかるようにデータの開始領域と、終了領域、そしてこれらをもとに追加された「グラフ」シートも掲載しておきます。

こちらも図をみてわかるようにデータのコピー先領域は

ブック名: T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx
シート名: T1040_日付_退院者数_入院者数_退院率
セル領域名: $A$1:$D$401

となっていますよね。

もともとこの２つのブックファイルは同じものなので
シート名とセル領域は同じなんですね。

続いてテーブル1 をデーターシートビューのタブの右にある × をクリックして削除したあと

リボンメニューの

データベースツール ＞　Visual Basic

を順にクリックして VBE(Visual Basic Editor) を起動し

VBE のメニューから
挿入(I)　＞　標準モジュール(M)

を順にクリックして標準モジュールを挿入し

現れたコードウインドウに

【Access VBA】Excel の指定シートを別ブックのシートにエクスポートする

記事の中の VBA コードをコピーしVBEのコードウインドウにペーストし、さらに以下の EnjoyTech ライブラリへの参照設定を有効にしてVBEを閉じます。

マクロ実装部分

そしてこの ExportInputBookToOutputBook を呼び出すための autoexec マクロをマクロビルダ画面を使って

つまり次のように記述します。


If ExportInputBookToOutputBook("Documents\Desktop\T1040_日付_退院者数_入院者数_退院率.xlsx","T1040_日付_退院者数_入院者数_退院率","$A$1:$D$401","Documents\Desktop\T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx","T1040_日付_退院者数_入院者数_退院率","$A$1:$D$401")>0

If文の最後
 メッセージボックス (データをデスクトップの「T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx」にコピーしました,はい,なし,)

Accessの終了

このマクロの内容をよく見ると ExportInputBookToOutputBook を呼び出すためのパラメータは以下のようになっていますね。

パラメータ番号	記述されたパラメータ値	説明
1	“Documents\Desktop\T1040_日付_退院者数_入院者数_退院率.xlsx”	入力側 Excel ブックの％USERPROFILE% からの相対パス名つまりデスクトップ上にある T1040_日付_退院者数_入院者数_退院率.xlsx を指定しています。
2	“T1040_日付_退院者数_入院者数_退院率”	入力側 Excel ブックの対象シート名を指定しています。
3	“$A$1:$D$401”	入力側 Excel ブックの対象シート名の中のコピー元セル範囲を指定しています。
4	“Documents\Desktop\T1040_日付_退院者数_入院者数_退院率_グラフ.xlsx”	出力側 Excel ブックの％USERPROFILE% からの相対パス名つまりデスクトップ上にある 1040_日付_退院者数_入院者数_退院率_グラフ.xlsx を指定しています。
5	“T1040_日付_退院者数_入院者数_退院率”	出力側 Excel ブックの対象シート名を指定しています。
6	“$A$1:$D$401”	出力側 Excel ブックの対象シート名の中のコピー元セル範囲を指定しています。

また ％USERPROFILE% は Windows であらかじめ定義されている環境変数で Windows 10 搭載 PCを使っている利用者のデフォルトのフォルダパスを表しています。この環境変数については必要に応じて以下の記事を参照下さい。

【Windows業務効率化】バッチファイルの基本テクニックを知ろう

どうですか？
If アクションと共に記述された
ExportInputBookToOutputBook　の入力パラメータは
入出力データ仕様でみたExcel の仕様とあってましたか？

そして autoexec マクロの編集が終わったらマクロビルダ画面 を閉じ、この Access ファイルを 23_01.accdb という名前で保存します。

まとめ

いかがでしたか？

本記事ではしらかば堂の Access VBA 関数ライブラリ ExportInputBookToOutbookBook を利用してグラフ描画用のデータを入力用指定 Excel ブックの指定シートの指定セル領域から出力用指定 Excel ブックの指定シートの指定セル領域へコピーする方法を紹介しました｡

この連載記事では自動化ツールの作成に向け Access のマクロや各種クエリについてずっと紹介してきましたが、ようやく本格的な Access VBA のコードが登場しましたね。

でも ExportInputBookToOutbookBook の内容を見ていただくと