F0000017_ファイルダイアログを開き、１つのcsvファイルを選択させる

業者間のデータ連携や自社の基幹システムへのデータインポートなど、業務においてExcelファイルではなく、データをcsvファイルで扱うことはよくあります。この時、Excelデータをcsvファイル形式で保存しただけのデータではエラーが発生したり、開発した当初はシステムから出力できたcsvファイルをそのまま使えたのに、先方の仕様変更で手動で加工をしてから連携が必要だったりすることがあります。ExcelVBA（マクロ）の利点は、システム開発よりも低コスト・短納期で高級なプログラミング言語で作成されたツールに劣らない自動化ツールを作成できることです。私の経験上、csvファイルの加工はその最たる例です。この関数はファイルダイアログを表示しマクロの実行者が選択したcsvファイルの絶対パスを取得することができます。

■引数１：title
　ファイルダイアログに表示するタイトルを指定できます。下記画像を参照

■引数２：initial_folder_path
　ファイルダイアログが表示されたときにデフォルトで開くフォルダを指定できます。

マクロ実行者がファイルを選択した場合、ファイルの絶対パスを返します。選択しなかった場合、空の文字列を返します。そのため、返値が空文字列か否かの判定でファイルの選択有無を判断できます。

上記サンプルコードを実行すると、ファイルを選択した場合、csvファイルの絶対パスをイミディエイトウィンドウに表示します。ファイルを選択しなかった場合、「ファイルが選択されませんでした」というメッセージが表示されます。ファイルが選択されたパートではそのままcsvを操作するために「ADODB.Stream」を使用してcsvデータを読み込んだり・・と続きます。