Имеется книга Excel с базой данных на листе1, создал запрос на выборку через мастер подключений и поместил результаты запроса на лист2, проделал всё это при включенной записи макроса. Загвоздка в том что в коде VBA в строке connect прописывается полный путь к файлу и при его перемещении в другую папку запрос престаёт работать. Можно ли обойтись без всех этих полных путей, чтобы можно было файл поместить на любой компьютер и зопрос работал???

А поправить код, записанный макрорекордером, религия не позволяет, что ли?

Всё правильно, а как ты хотел?
Вот представь ситуацию ты пошёл в магазин за хлебом, но это же не значит что хлеб будет продаваться и в магазине ткани, и в хозтоварах, и в магазине компьютеров.

Откроется окно открытия файла, в нем выбираешь нужный каталог и щелкаешь на любой файл. В переменной f у тебя и пудет путь к каталогу с нужным тебе файлом.

Akina, это мне придётся при каждом перемещении файла поправлять код, хотелось бы чиобы файл и запрос в нём были абсолютно автономны. Может тогда скажешь что такое Recordset, как его создавать и с чем его едят?

Нет


Не скажу - прочитайте встроенную справку самостоятельно.

Akina, снова о запросе, я пробовал изменить код 
QueryTables.add(connection:=array.......дальше идёт DefaultDir="путь к папке в которой находится мой файл" когда файл премещаешь путь становится неправильным, пробовал совсем его убирать выдаётся сообщение об ошибке, пробовал чтобы путь задавался автоматически с помощью Application.DefaultFilePath выдаётся такое сообщение "неправильно задан путь 
C:/Мои документы/Application.DefaultFilePath" 

Неудивительно - кто сказал, что конкатенация обозначается во всех языках так же, как ПХП? справку-то надо иногда читать...

Akina, в том то и дело, что без DefaultDir=..... запрос не работает. Если в строке DefaultDir ничего не пишу, в надежде что запрос автоматически обратиться к активной книге, то запрос не работает. Если в DefaultDir вписываю Application.DefaultFilePath (возвращает путь к папке, содержащей файл) то выводится сообщение что путь не верный и Application.DefaultFilePath вписывает в путь, получается что то вроде C:/Мои документы/Работа/Application.DefaultFilePath. Читал справку в Excel по VB    С ПЕРЕВОДЧИКОМ     и ничего подходящего не нашёл.

Может код покажешь?

Код - в студию...

Akina, 

 Sub Макрос3()
    Range("F14").Select
    With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Файлы Excel;DBQ=База.xls;DefaultDir=C:\Documents and Settings\Мои документы\", Destination:=Range("F14"))
        .CommandText = Array( _
        "SELECT протокол.`дата протокола`, протокол.Номер, протокол.`кто составил`, протокол.нарушитель" & Chr(13) & "" & Chr(10) & "FROM протокол протокол" & Chr(13) & "" & Chr(10) & "WHERE (протокол.нарушитель<>0)" _
        )
        .Name = "Запрос из Файлы Excel_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    
    Columns("F:F").ColumnWidth = 6.57
    Columns("G:G").ColumnWidth = 29.57
    Columns("H:H").ColumnWidth = 16.43
    Columns("I:I").ColumnWidth = 11#
End Sub

Вот такая загогулина.

Akina,   
Мне бы твои мозги, последний вопрос, можно ли научиться нормально программировать читая учебники?

Возможно, только ещё практика нужна.