[[20180515065423]]　『ファイル名取得にアドレスを選択』（通りすがりのビギナー）　ページの最後に飛ぶ

『ファイル名取得にアドレスを選択』（通りすがりのビギナー）

この掲示板を参考にして書きコードを作りました。

Sub フォルダを指定してファイル名一覧を作成する()

  Dim dlg As FileDialog
  Dim fol_path As String  'フォルダのフルパス
  Dim f_name As String  'ファイル名
  Dim Path As String
    ' パスを取得
    Path = ThisWorkbook.Path
   Dim i As Long  'ファイル名を出力する行番号
  Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
  If dlg.Show = False Then Exit Sub  'キャンセル時
   fol_path = dlg.SelectedItems(1)  'フォルダのフルパスを格納
   f_name = Dir(fol_path & "\*.xlsx")  'フォルダ内の一つ目のファイル名を取得
   If f_name = "" Then
    MsgBox fol_path & " にはファイルが存在しません。"
    Exit Sub
  End If
  Worksheets.Add before:=Sheets(1)
  'Range("A1").Value = fol_path
  'Range("A2").Value = "のファイル一覧"
  Range("A1").Value = "ファイル名一覧"
  'A5セルから下にファイル名を書き出し
  i = 2
  Do Until f_name = ""
    Cells(i, "A").Value = fol_path & f_name
    i = i + 1
    '次のファイル名を取得
     f_name = Dir
  Loop
End Sub

毎回アドレスを設定するのが大変なんですが、起動後エクスプローラ画面みたいなのが出て来て選択できる方法は有りますか？

よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：WindowsXP ＞

 質問の意図がよくわかっていないのですが、
 デフォルトのパスを指定したいということなら、
 dlg.InitialFileName = "C:\Test\"
 を
　If dlg.Show = False Then Exit Sub  'キャンセル時
　の前に入れてみてください。
 パスは実際のパスで。
（ろっくん） 2018/05/15(火) 08:39

ロックンさん
ありがとうございました。
できました。
（通りすがりのビギナー） 2018/05/15(火) 21:53

コメント返信：

[ 一覧(最新更新順) ]

[[20180515065423]] 『ファイル名取得にアドレスを選択』（通りすがりのビギナー） ページの最後に飛ぶ

[[20180515065423]]　『ファイル名取得にアドレスを選択』（通りすがりのビギナー）　ページの最後に飛ぶ