指定したフォルダ内にあるブックを表示する


指定したフォルダ内にある全てのエクセルブックをセルに表示させたい場合はこのコードを使用します。

機能.フォルダ.C_フォルダ内ブック抽出(パス, 表示シート As Worksheet, 表示列)


このコードには三つの引数が必要です。

1,パス
  フォルダのパスをここで指定します。
  ※パスについての説明は【パス】ページを参照してください

2,表示シート As Worksheet
  指定したフォルダ内のエクセルブック名を表示させたいシートをここで指定します。

3,表示列
  指定したフォルダ内のエクセルブック名を表示させたい列をここで指定します。


例えばフォルダを選択してそのフォルダ内のエクセルファイルを「作業」シートの1列目に表示させたい場合は以下のように記述します。

Dim フォルダのパス
フォルダのパス = 機能.フォルダ.ダイアログ選択(“エクセルファイル名を抜き出したいフォルダを選択してください”)
Call 機能.フォルダ.C_フォルダ内ブック抽出(フォルダのパス, Worksheets(“作業”), 1)