VBA備忘メモ2

・特定フォルダ内の.xlsxの数だけループ
・.xlsxを除くファイル名を対象シートに入力

Sub ListXlsxFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim ws As Worksheet
    Dim i As Integer
    
    ' フォルダのパスを指定
    folderPath = "C:\Folder\"
    
    ' シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 行カウント
    i = 1 
    
    ' フォルダ内の .xlsx ファイルをループ
    fileName = Dir(folderPath & "*.xlsx")
    Do While fileName <> ""
        ' ファイル名から拡張子を除く
        ws.Cells(i, "A").Value = Left(fileName, Len(fileName) - 5)
        
        ' 次のファイルへ
        fileName = Dir
        i = i + 1
    Loop
    
End Sub