Я для ввода данных из определенных файлов использую    
диалог выбора файлов, в котором вы можете добавить    
свои маски, используя метод Add свойства Filters  
 
   Set FD = Application.FileDialog(msoFileDialogFilePicker)  
   With FD  
       .Filters.Clear  
       .Filters.Add "Microsoft Excel files", "*.xls"  
       .Filters.Add "Microsoft Excel files", "*.dbf"  
       .AllowMultiSelect = True  
       .InitialFileName = ThisWorkbook.Path