コンテンツ
Microsoft Excelは、表形式のデータ、計算、および情報管理だけではありません。熱心なユーザーなら誰でも、Excelをフォルダーの管理、ファイルの整理、およびタスクの追跡のための強力なツールに変えることができます。 VBA FileDialogオブジェクトを使用してディレクトリをすばやくスキャンし、その内容をワークシートに一覧表示するマクロを作成できます。実行後、このマクロはユーザにフォルダを選択するように促し、後で内容の名前を単一の列に表示します。
説明書
-
Microsoft Excelを起動します。 「Ctrl + O」を押してブックを選択し、「開く」をクリックします。代わりに新しいブックを作成するために、「CTRL + N」を押します。
-
マクロダイアログボックスを開くために、「Alt + F8」を押します。マクロ名ボックス内に「GetFolderContents」と入力し、[作成]をクリックします。
-
VBAエディタに次のコードを入力します。
Sub GetFolderContents（）オブジェクトセットとしてのxDir、xFilename、f、fsoの薄暗いApplication.FileDialogを使用したfso = CreateObject（ "Scripting.FileSystemObject"）.InitialFileName = ThisWorkbook.Path＆ "" .Title = "フォルダを選択してください。 ".AllowMultiSelect = False .Show If .SelectedItems.Count <> 0 Then xDir = .SelectedItems（1）＆" "Ifで終わる場合は終了（MsgBox（Prompt：=）サブフォルダーの名前を含めますか。 ？、_ボタン：= vbYesNo、タイトル：= "サブフォルダーを含める"）= Go to ListFolders GoTo ListFilesその他GoTo ListFiles ListFoldersの場合は終了：fso.GetFolder（xDir）.SubFolders ActiveCell.Value = "。 .FileName ActiveCell.Offset（1、0）。次を選択f ListFiles：各項目についてfso.GetFolder（xDir）.Files ActiveCell.Value = f.Name ActiveCell.Offset（1、0）。選択次へf Set fso = Nothing End Sub
-
"ALT + Q"を押してVBAエディタを閉じてワークブックに戻ります。
マクロを作成する
-
シートセルを選択します。空白の列を作成するために、「ALT + I」と「C」キーを押します。新しい列の最初のセルを選択します。代わりに新しいワークシートにリストを表示したい場合は、「SHIFT + F11」を押します。
-
マクロダイアログボックスを開くために、「Alt + F8」を押します。 「GetFolderContents」を選択し、「実行」をクリックします。
-
コンテンツを一覧表示するフォルダまたはディレクトリを選択します。 [OK]をクリックしてください。
-
マクロにサブフォルダの名前も一覧表示する場合は[はい]をクリックし、ファイルのみを一覧表示する場合は[いいえ]をクリックします。 Excelが新しい列に選択したフォルダの内容を入力し終わるのを待ちます。
マクロを使う
お知らせ
- デフォルトでは、マクロはMicrosoft Excelでは無効になっています。有効にするには、[Microsoft Office]ボタンをクリックし、[Excelのオプション]に移動します。 「Show Developer Tab」がチェックされていることを確認してください。 [セキュリティセンター]に進み、[セキュリティセンターの設定]をクリックします。 [マクロ設定]に進み、[すべてのマクロを有効にする]を選択します。両方のウィンドウで[OK]をクリックし、開いているすべてのジョブフォルダを保存してExcelを再起動します。
