ファイル名、転記(拡張子なし）VBA_Ver.

Sub WriteFileNamesToSheet()

    ' フォルダのパスを指定
    Dim folderPath As String
    folderPath = "Z:\Work"
    
    ' 出力シートを指定
    Dim outputSheet As Worksheet
    Set outputSheet = ThisWorkbook.Sheets("Sheet1")
    
    ' ファイル一覧を取得
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim objFolder As Object
    Set objFolder = objFSO.GetFolder(folderPath)
    Dim colFiles As Object
    Set colFiles = objFolder.Files
    
    ' 出力シートにファイル名（拡張子なし）を書き込む
    Dim i As Integer
    i = 1
    Dim objFile As Object
    For Each objFile In colFiles
        outputSheet.Cells(i, 1).Value = objFSO.GetBaseName(objFile.Name)
        i = i + 1
    Next objFile
    
    MsgBox "ファイル名が Sheet1 に出力されました。"
    
End Sub