Else If fl.ToLower.EndsWith(".xls") Then
改成
Else If fl.ToLower.EndsWith(".xls") OrElse fl.ToLower.EndsWith(".xlsx") Then