Всех приветствую!

Сегодня познакомился с Power Query ) Вещь классная, но не простая.

Создал связь-запрос, чтобы Excel забирала данные из текстового документа. Всё работает.
Поискал в Ынтернетах, как обновить этот запрос из макроса (чтобы руками каждый раз не клацать в шапке "Обновить", а он сам обновлялся между других макросов).
Нашёл толковое видео https://youtu.be/gGQ-SlhZYN4

с вот таким макросом:
И мне выдаёт вот такую ошибку!
Object variable or With block variable not set

Вопрос №1 - Кто-нибудь встречал такую ошибку ? Ведь код я повторил буква-в-букву

Вопрос №2 - Каким макросом можно обновить запрос Power Query ? Мне просто нужно обновить! Без нагромождений If/ЕСЛИ ! Не нужно ничего придумывать лишнего. Вот есть какой-то ЗАПРОС - его просто обновить.

Весь день потратил на решение, нашёл только такое видео. А тут на Планете по запросу "Power Query", 8 страниц с форумов. Среди них тоже этим никто не задавался.

Спасибо )

Всех приветствую!

Уже всю голову сломал!

В Лист1 благодаря "Сцепить" в ячейке собирается адрес до текстового документа.
Допустим: D:\Пример\Папка1\Документ1.txt

Перехожу в Лист2. В него я буду загружать данные их текстового документа.
Создаю макрос (вернее нажал на запись макроса "Данные-Получение данных-Из текстового документа") для сбора данных из этого документа:

Вот что получилось.

Sub Primer()

   Sheets("Лист2").Select
   Range("A1:XFD1048576").Select
   Selection.ClearContents
   With ActiveSheet.QueryTables.Add(Connection:="D:\Пример\Папка1\Документ1.txt", _
        Destination:=Range("$A$1"))
       .Name = "Doc1"
       .FieldNames = True
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = True
       .RefreshOnFileOpen = False
       .RefreshStyle = xlInsertDeleteCells
       .SavePassword = False
       .SaveData = True
       .AdjustColumnWidth = True
       .RefreshPeriod = 0
       .TextFilePromptOnRefresh = False
       .TextFilePlatform = 866
       .TextFileStartRow = 1
       .TextFileParseType = xlDelimited
       .TextFileTextQualifier = xlTextQualifierDoubleQuote
       .TextFileConsecutiveDelimiter = False
       .TextFileTabDelimiter = True
       .TextFileSemicolonDelimiter = False
       .TextFileCommaDelimiter = False
       .TextFileSpaceDelimiter = False
       .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
       .TextFileTrailingMinusNumbers = True
       .Refresh BackgroundQuery:=False
   End With
End Sub

Сам макрос работает.

Вся загвоздка в строке "With ActiveSheet.QueryTables.Add(Connection:="D:\Пример\Папка1\Документ1.txt", _"

Нужно как-то вместо "D:\Пример\Папка1\Документ1.txt" - чтобы макрос обращался к Лист1 в ячейку, в котором этот адрес формируется.
Этих текстовых документов дофига, чтобы для каждого из них отдельный макрос писать...

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

Друзья, всех приветствую!
Помогите с макросом.
Есть таблица. В ней закрашены несколько ячеек.
Нужно, чтобы значения закрашенных в зелёный цвет ячеек попали в строку с результатами.

В примере справа написал, как я это делал раньше. Но это ж за каждую вариативность нужно макрос писать.
Вот если бы макрос сам понимал, что если ячейка зелёная, то нужно выдернуть именно её значение
Надеюсь правильно объяснил )

Благодарю всех откликнувшихся!

Всех приветствую!

Есть таблица (Пример 4x4)
Задача - 1
Необходимо сделать так, чтобы при нажатии на любую из ячеек, она заливалась цветом. Так же при нажатии на вторую ячейку и т.д.
Важно чтобы они оставались в окрашенном состоянии.

Задача - 2
Создать ячейку с формулой, которая бы искала все окрашенные ячейки в этой таблице.

Задача - 3
Создать кнопку, которая бы "сбрасывала" заливку до первоначального цвета (т.е. обесцвечивала всю таблицу)

Благодарю всех откликнувшихся!

Всех приветствую!

Задача такая:
Необходимо записать макрос в кнопку, в котором будет выражение:
Если А1=A и C1=B и E1=C, то будет запускаться файл другого приложения D:\Primer\001.txt, если НЕТ, то
Если А1=A и C1=B и E1=B, то будет запускаться файл другого приложения D:\Primer\002.txt, если НЕТ, то
Если А1=A и C1=B и E1=A, то будет запускаться файл другого приложения D:\Primer\003.txt, если НЕТ, то
и т.д.
Если ошибка, то "0"

По работе очень нужно, а Макросы для меня как дремучий лес.
Извиняюсь, если не в тот топик - я тут новенький.
Благодарю всех откликнувшихся!