VBAのIE制御

Sub fileName(Optional sheetName As String = "mySheet", _
             Optional pathName As String = "myPath", _
             Optional col As Variant = "A", _
             Optional row As Integer = 2)
    
　If sheetName = "mySheet" Then: sheetName = ActiveSheet.Name 'シート名
　If pathName = "myPath" Then: pathName = ActiveWorkbook.Path 'フォルダパス

　'FileSystemObjectインスタンスを生成
　Set objSFO = CreateObject("Scripting.FileSystemObject")

　For Each objFile In objSFO.GetFolder(pathName & "\").Files
　　Cells(row, col) = objFile.Name
　　row = row + 1
　Next
    
　Set objSFO = Nothing

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

引数すべてが任意項目となります。

「sheetName」には、ファイル名を入力するシート名文字列を入力します。
初期値は開いているシート名となります。

「pathName」には、ファイル名を抽出するフォルダのパスを入力します。
初期値は実行ファイルと同じフォルダ内のパスになります。

「col」には、入力開始する列の文字列を入力します。A列に出力される場合は「A」を指定してください。
初期値は「A」が設定されています。

「row」には、入力開始する行番号を入力します。初期値は「2」が設定されています。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次