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

Sub GetFileNamesWithoutExtension()Dim folderPath As StringDim fileName As StringDim fileNames() As StringDim i As Long' 特定のフォルダを指定するfolderPath = "C:\Users\user\Desktop\SampleFolder\"' ファイル名の一覧を取得するfileName = Dir(folderPath & "*.*")i = 0Do W