練習問題18（Dir関数の練習）解答

公開日：2013年5月以前　最終更新日：2019-11-03

練習問題18（Dir関数の練習）解答

マクロVBA練習問題18の解答ページです。

マクロVBA練習問題

・A1に指定したフォルダ内にある、
　全てのエクセルファイル（xls,xlsx,xlsm）のブック名をA2以降に、
　そのブックの全シート名をB2から右に入れて下さい。
　（B2,C2,D2,・・・そのブックの全シート名を横に入れていく）

※サブフォルダ以下のファイルは無視して下さい。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

　　Ａ　　　　　Ｂ　　　　　Ｃ　　　　Ｄ

C:\User
ブック名	シート名1	シート名2	・・・

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

この「VBA入門」シリーズは、マクロVBAを習得し、日々のExcel作業を効率化・自動化できるようになることを目指します。VBAが初めての方でも無理なくステップアップできるよう、基礎から丁寧に、そして段階的に解説を進めます。そのため、シリーズ後半では入門レベルに留まらず、実務レベルで通用する高度なテクニックや幅広い知…

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。


  
    
      Sub 練習問題18()

      　　Dim i As Long

      　　Dim j As Long

      　　Dim strFileName As String

      　　Dim wb As Workbook

      　　Dim ws As Worksheet

      　　Dim wsOwn As Worksheet

      　　Set wsOwn = ActiveSheet

      　　i = 2

      　　strFileName = Dir(Cells(1, 1) & "\*.xls*")

      　　Do While strFileName <> ""

      　　　　Set wb = Workbooks.Open(wsOwn.Cells(1, 1) & "\" & strFileName)

      　　　　j = 2

      　　　　wsOwn.Cells(i, 1) = wb.Name

      　　　　For Each ws In wb.Sheets

      　　　　　　wsOwn.Cells(i, j) = ws.Name

      　　　　　　j = j + 1

      　　　　Next

      　　　　wb.Close SaveChanges:=False

      　　　　i = i + 1

      　　　　strFileName = Dir()

      　　Loop

      End Sub

これはもう、基本中の基本の組み合わせです。
なんの迷いもなく、一気にかけるようなるまで練習して下さい。

以下も参考にして下さい。
ExcelマクロVBA入門.第79回.ファイル操作Ⅰ（Dir）

VBAでは、フォルダのファイル一覧を取得したりファイルの存在確認をする事が出来ます、Dir関数は、指定したパターン（ワイルドカード）やファイル属性と一致するファイルまたはフォルダの名前を表す文字列の値を返します。引数に指定したファイルが存在するとそのファイル名を返し、存在しないと空欄を返します。

同じテーマ「マクロVBA練習問題解答」の記事

練習問題15（Withとオブジェクト変数の練習）解答
 練習問題16（WorksheetFunctionの練習）解答
 練習問題17（ブック・シートの操作の練習）解答
練習問題18（Dir関数の練習）解答
練習問題19（総合練習1）解答
 練習問題20（総合練習2）解答
 練習問題21（総合練習3）解答
 練習問題22（総合練習4）解答
 練習問題23（総合練習5）解答
 練習問題24（再帰呼出し）解答
 練習問題25（各種VBA関数）解答

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題18（Dir関数の練習）解答

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題解答
練習問題18（Dir関数の練習）解答