F0000020_ファイルダイアログを開き、複数のcsvファイルを選択させる

ファイルダイアログを開き、複数のcsvファイルを選択させる 関数リファレンス

この関数について

基幹システムからデータ抽出すると数万レコードごとにファイルが分割して抽出されたり、取引先業者から送られてくるファイルが支店ごとに分割されていたり、フォーマットが同じにも関わらずファイルが分割されており、手動でくっつけるといった作業をしていないでしょうか？ExcelVBA（マクロ）を使えば複数のcsvファイルを結合して出力するということも簡単に実現できます。この関数はファイルダイアログを表示しマクロの実行者が選択した複数のcsvファイルの絶対パスを取得することができます。

使い方　①引数

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

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

■引数３：var_type_code
　ファイルパスが格納された配列（返値）の型を指定できます。「vbString」「vbVariant」のいずれか。それ以外を指定してもVariant型で返します。指定しない場合のデフォルトはString型です。

■引数４：based_index
　ファイルパスが格納された配列（返値）の最小のインデックス（添え字）を指定できます。指定しない場合のデフォルトは１です。

使い方　②返値

マクロ実行者がファイルを選択した場合、ファイルの絶対パスを配列に格納して返します。選択しなかった場合、未定義の配列を返します。そのため、返値の配列が初期化されているか調べる（F0000010）ことで選択したかどうかを判定できます。

使い方　③呼び出し方例（サンプルコード）

Public Sub Test_OpenFileDialogCsvMulti()

    Dim file_path_str() As String
    
    file_path_str = OpenFileDialogCsvMulti("cvsファイルをすべて選択してください。", ThisWorkbook.Path)
    If IsInitArray(file_path_str) Then
        Call MsgBox(UBound(file_path_str, 1) & "個のファイルが選択されました。", vbInformation)
    End If

End Sub

'■配列が初期化されているか調べる（F0000010）
Public Function IsInitArray(ByRef arr As Variant) As Boolean
On Error GoTo UnDefined

    IsInitArray = IsNumeric(UBound(arr, 1))
    Exit Function

UnDefined:
  
    IsInitArray = False
  
End Function

【結果】複数のcsvファイルの絶対パスを取得できました

サンプルコードを実行すると、選択したcsvファイルの個数がメッセージとして表示されます。何も選択をしなかった場合は、何もせず終了します。業務上のマクロであれば、選択されたファイルを「ADODB.Stream」オブジェクトなどでデータを順次読み込み、結合・加工・集計などと続けます。

この関数は関数リファレンスからコピペ可能です！

この記事のタイトルを検索窓へ貼り付けて関数を検索してみましょう。 表示されたコードをクリックするだけでコピー完了！ あとは自身で作成したモジュールに貼り付けるだけでこの関数を利用できます。サンプルコードもあり！ 関数リファレンストップへ

Comment