В итоге решил задачу)

Sub Get_All_File_from_Folder()
   Dim sFolder As String, sFiles As String
   Dim wb As Workbook
   Dim links As Variant
   Dim i As Integer
   
   ' Укажите путь к папке
   sFolder = "путь"
   
   ' Отключаем обновление экрана, чтобы наши действия не мелькали
   Application.ScreenUpdating = False
   sFiles = Dir(sFolder & "*.xlsx")
   Do While sFiles <> ""
       ' Открываем книгу
       Set wb = Application.Workbooks.Open(sFolder & sFiles)
       ' Действия с файлом
       ' Записываем в ячейку A1 первого листа книги точку (".")
       wb.Sheets(1).Range("A1").Value = "."
       ' Разрываем все внешние связи
       links = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
       If Not IsEmpty(links) Then
           For i = LBound(links) To UBound(links)
               wb.BreakLink Name:=links(i), Type:=xlLinkTypeExcelLinks
           Next i
       End If
       ' Закрываем книгу с сохранением изменений
       wb.Close SaveChanges:=True ' Если поставить False, книга будет закрыта без сохранения
       sFiles = Dir
   Loop
   ' Возвращаем ранее отключенное обновление экрана
   Application.ScreenUpdating = True
End Sub

Я это только в коде заметил)...в PQ не обратил внимания

Ура!) Я нашел, в чем затык, слова наименований стобцов были в столбик, с энтером..поправил и всё заработало.

Сделал все заново. Так и не понял, чать таблиц загружаются в модель, часть нет. Ничего не удаляю и не переименовываю.

На скрине 3 таблицы , как оставить только одну? Может быть из-за них конфликт?

Выпонляю запрос из 8ми однотипных вэб страниц, ссылки на которые расположены в таблице книги. На этих страницах по 8 таблиц. Сделал на каждую по запросу с функцией as table => .
4 номально загрузились в модель, а другие 4 не вкакую не хотят, причем таблица со ссылками к которой присоединяютя данные есть в моделе если смотреть в во вкладке Данные-Существующие подключения- Таблицы, а в Pivot ее нет. И  когда я на запросе ставлю галку Добавить в модель данных он видит таблицу со ссылками, и упирается в первый столбец присоединенных данных, т.е. он видит только таблицу со ссылками....другие 4 залетели без проблем, хотя суть та же. Уже облазил все что мог.

Здравствуйте! Помогите, пожалуйста, не могу загрузить запросы в модель данных. Запрос таблицы с сайта еис.

Вот я их и открываю 89 раз)...мне нужно из 1 книги со внешними связями сделать 89 копий с разными названиями (названия книг влияют на их содержимое после обновления).

а макрос есть?

Спасибо,..еще необходимо перед этим обновить данные в книге...
а если книг больше 80ти?)

Здравствуйте!

Подскажите, пожалуйста, можно ли удалить все внешние связи из книги не открывая её.