お疲れ様です!キノコです! ダイアログで指定したフォルダ内のファイル名を所得し すべて出力します。 *************************** ■ VBAコード ***************************Sub 指定したフォルダ内のファイルを取得() Dim dlg As FileDialog Dim SelectDir As String Dim Fname As String Dim Fcnt As Long 'フォルダを選択します。 Set dlg = Application.FileDialog(msoFileDialogFolderPicker) 'キャンセルボタンクリック時にマクロを終了 If dlg.Show = False Then Exit Sub 'フォルダーパスを取得 SelectDir = dlg.SelectedItems(1) 'このフォ
![ダイアログで指定したフォルダ内のファイル名を出力](https://cdn-ak-scissors.b.st-hatena.com/image/square/169aa2fcb8f435b776615dc2de2089e4efb14c5e/height=288;version=1;width=512/https%3A%2F%2Fxlsvba.up.seesaa.net%2Fimage%2F10.png)