特定のフォルダから拡張子を抜いたファイル名だけを取得する方法の例です。

Sub GetFileNamesWithoutExtension()

Dim folderPath As String
Dim fileName As String
Dim fileNames() As String
Dim i As Long

' 特定のフォルダを指定する
folderPath = "C:\Users\user\Desktop\SampleFolder\"

' ファイル名の一覧を取得する
fileName = Dir(folderPath & "*.*")
i = 0
Do While fileName <> ""
    ' 拡張子を取り除いたファイル名を配列に追加する
    ReDim Preserve fileNames(i)
    fileNames(i) = Left(fileName, InStrRev(fileName, ".") - 1)
    i = i + 1
    fileName = Dir()
Loop

' 結果を表示する
For i = 0 To UBound(fileNames)
    Debug.Print fileNames(i)
Next i
End Sub

Dir関数を使用して、指定されたフォルダからすべてのファイルの一覧を取得します。次に、ファイル名から拡張子を取り除くために、Left関数とInStrRev関数を使用して、ファイル名の最後のピリオドを検索し、それ以前の文字列を取得します。最後に、結果を配列に保存し、Debug.Printを使用して、結果を表示します。