VBA 只保留最近日期的EXCEL

chunyanghua2002

各位大神，请指教，不胜感激！

一个文件夹中有很多EXCEL 文件，EXCEL 文件的命名规则如下
SHANGHAI 20180902
SHANGHAI 20180908
SHANGHAI 20181015
SHANGHAI 20190104
SHANGHAI 20190506
BEIJIN 20180906
BEIJIN 20180910
BEIJIN 20181016
BEIJIN 20190107
BEIJIN 20190406
ANHUI 20180906
ANHUI 20180916
ANHUI 20181112
ANHUI 20190304
ANHUI 20190509
JIANGSU 20190607
JIANGSU 20190707


要求用VBA 程序只保留日期最近的4个或多个文件
SHANGHAI 20190506
BEIJIN 20190406
ANHUI 20190509
JIANGSU 20190707