Co-evolution of human and technology
Power Query が使えないと不便である．先日 EXCEL 2010 の素の環境でフォルダ内のブックをすべて開き，データを読み込む必要があったのだが，Power Query が使えなかったため，VBA でブックを開いて読み込まなければならなかった．備忘録としての記事である．
この記事はPower Query でフォルダから複数ファイルを一括インポートすると対応している．やっていることは同じだが，.xls 形式だとクエリの検証に時間がかかるため，VBA で読み込んだほうが動作は早いかもしれない．
フォルダー内のファイル一覧を取得するには FileSystemObject を使う場合と Dir() 関数を使う方法とがある．ここでは FileSystemObject を使うことにする．
データは Range オブジェクトに格納されているため，Range オブジェクトを取得するのが当面の目標となる．
e-Stat を渉猟していると面白いファイルを見つけた．国勢調査は 1920 年から開始されており， 2020 年 3 月現在では最新の調査結果は 2015 年のものである．20 回分の人口データが一つのファイルにまとめられており，グラフ化するには格好のデータである．
年齢（5歳階級），男女別-都道府県（大正9年～平成27年）というファイルである．リンク先のページにはファイルが 3 つあるが，最後のものが最も粒度が細かいので，これをグラフ化する．
Series オブジェクトを PlotOrder プロパティでソートする必要があった話をした．今回，Series オブジェクトをソートするために Collection オブジェクトに代入したのだが，配列の最終要素を取得するところで実行時エラーとなり，解決していない．
Series オブジェクトをソートするための方法としては，元のデータで比較する方法と，Series オブジェクトの最終 Point オブジェクトの Top プロパティを比較する方法がある．
意味としてはどちらも同じだが，どうせなら元のデータで比較するのが王道と思われたのでそちらを試したのだが，今の自分にはスキル不足で手に負えなかった．悔しい．
「おい，新米 Range オブジェクト！何ボーッと突っ立ってんだよ」
「す，すみません！」
「お前，名前は？」
「は，はい．myRng1と申します．よろしくお願いいたします」
「仕事に来たら，まず名乗れ．それがここの流儀だ」
「それから，自分の職域も一緒に言うんだ．わかったか？」
「は，はい」
「最初に書いてあるだろ？Option Explicit ってな．俺も詳しくは知らねぇが，あのルールは絶対だ．名乗らない奴に居場所はない…ほら，仕事が来たぞ」
「何い？誰だ，こんな糞コード書いたのは？ワークシートに何回アクセスさせる気だよ，全く…ほれ，ここからあそこまで走って値を取ってこい」
「ここからあそこまでって…えーっ？本気で言ってます？」
「何言ってるんだ？ワークシートにアクセスするような力仕事は新米 Range オブジェクトの役割と相場が決まってるんだ．さあ行った行った」
EXCEL VBAで複数の散布図を敷き詰めて並べるでは散布図を都道府県の数だけ敷き詰めて並べた．今回はその散布図一つ一つにデータ系列を追加する．
VBAから見たEXCELの散布図では散布図を作成する際に .ChartObjects.Add を用いたが，今回は別の経路で散布図を作成するコードを紹介する．またデータ系列に何も入力のない，空っぽのデータ系列を新規作成したときのコードも紹介する．