Dim pth as string = "c:\temp\"
Dim ИзФайла as string = "c:\temp\myfiledatabase.xls"
Dim Where as string = ""  'список выражений `Имя поля` = 'значение' или `Имя поля` BETWEEN 'значение1' and 'значение2'

With Activesheet  'имя листа в считываемой книге должно совпадать с текущим (activesheet.name)
      'выборка данных через MS Query и ODBC-драйвер Excel files.dsn
      'они должны быть установлены в составе MS Office или MDAC 2.8
      conn = "ODBC;Driver={Microsoft Excel Driver (*.xls)};DBQ=" & ИзФайла & _
         ";DefaultDir=" & pth & ";PageTimeout=10"
      sq = "SELECT `" & .Name & "$`.* FROM `" & _
         Left(ИзФайла, Len(ИзФайла) - 4) & "`.`" & .Name & "$` `" & .Name & "$`" 'файл указывать без расширения .xls
      
      'возможен отбор на основе SQL
      If Len(Where) > 0 Then
         sq = sq & " WHERE " & Where
      End If
      
      Set qt = .QueryTables.Add(conn, .Range("A1"), sq)   'шапка таблицы БД грузится в 1ую строку листа
      qt.BackgroundQuery = False
      qt.EnableEditing = False      'не позволять редактировать свойства и структуру запроса
      qt.RefreshOnFileOpen = False  'не обновлять при открытии файла
      qt.FieldNames = True 'в шапку загружать имена полей
      qt.SaveData = False  'не сохранять данные
      qt.Refresh
End With