VBA ファイル名取得

Function GetCsvName(Paste_Folder, File, file_yyyy_mm) '引数）フォルダ名、ファイル名、日付（年月日）
On Error Resume Next

    Set FSO = CreateObject("Scripting.FileSystemObject")
    'フルパスからファイル名のみを取得する
    Csv_File_Name = Replace(Replace(File.Name, ".xls", ""), ".xlsx", "")
    '出力ファイル名
    GetCsvName = Paste_Folder & "\" & Csv_File_Name & "_" & file_yyyy_mm & ".csv"     '例）ファイル名_201601.csv
    Set FSO = Nothing

End Function

入門者のExcel VBA―初めての人にベストな学び方 (ブルーバックス)

ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本

てっとり早く確実にマスターできる Excel VBAの教科書