オーバーフォーティーおやじログ

前回 の宿題事項の下記4点について対応できた。 思ったよりあっさりと実装できた。 1.EXCELシートのシート名を引いてくるのと選択式にする。 　→選択式にしやした。 2.ファイル名を再帰的に取得するのかしないのかを選択式にする 3.再帰的に取得する場合にフォルダ名も取得するのか選択式にする 4.フォルダ名の取得を選択式にする。 　→フォルダを選択すれば再帰的に出力するように改修 モジュール以外にも手を入れるところがあったんで。 フォーム フォームモジュール側 ----------------------------------------------------------------------------------------------------------------------- Option Explicit Sub getFileName_Click() ' ' フォルダからファイル名を取得して一覧にして別のEXCELシートに保存する。 ' Dim dlg As Object Dim dlgAns As Boolean Dim getForder As Variant '取得対象フォルダ Dim getFile As Variant '取得対象ファイル Dim outSheet As Variant '出力用シート Dim retVal As String Dim optSelect As String Dim startTime As Date '処理時間計測用 Dim endTime As Date '処理時間計測用 startTime = Now 'カレントディレクトリの指定 ChDir CurDir '保存対象ファイルの指定 outSheet = Application.GetOpenFilename("EXCELファイル(*.xlsx),*.xlsx , EXC