Всем привет. Можно ли в PQ сделать запрос к файлу

Question

Excel Chat

Andrey Fedotov

Всем привет. Можно ли в PQ сделать запрос к файлу

со всеми необходимыми шагами. Но что бы при обновлении запроса выводилось окно с возможностью выбора нужного файла?

0

26.09.2023

22 ответов

26 просмотров

Andrey Fedotov Автор вопроса

Выбирать кодом файл, открывать, брать его полный путь с названием и расширением дальше записывать это значение в ячейку умной таблицы и параметром забирать в PQ ?

0

26.09.2023

Павел Тарануха

можно, кстати и просто в ячейку, без умной таблицы.

0

26.09.2023

Mikhail Muzykin

Andrey Fedotov
Выбирать кодом файл, открывать, брать его полный п...

Что за адский ад... Из окна выбора забрать адрес, передать его в параметр и обновить или напрямую в код запроса и обновить

0

26.09.2023

Andrey Fedotov Автор вопроса

Павел Тарануха
можно, кстати и просто в ячейку, без умной таблицы...

А как тогда забрать это значение в PQ. Файл с запросом может перемещаться в разные папки, а содержимое будет браться все равно из самого первого на который будет сделан запрос. Жалко нет аналога VBA функции ThisWorkbook

0

26.09.2023

Mikhail Muzykin

Andrey Fedotov
А как тогда забрать это значение в PQ. Файл с запр...

Гм... Ничего не понял, но CurrentWorkbook есть

0

26.09.2023

Коля К

Andrey Fedotov
А как тогда забрать это значение в PQ. Файл с запр...

ну тогда начинай с иерархии диска 😁 , а если по мимо того что файл может перемещаться ему и имя будут менять то зачем тогда затевать

0

26.09.2023

Andrey Fedotov Автор вопроса

Mikhail Muzykin
Гм... Ничего не понял, но CurrentWorkbook есть

Но он же может брать данные из ячейки только из умной таблицы. Или я ошибаюсь?

0

26.09.2023

Mikhail Muzykin

Andrey Fedotov
Но он же может брать данные из ячейки только из ум...

Из именованного диапазона тоже может

0

26.09.2023

Andrey Fedotov Автор вопроса

Коля К
ну тогда начинай с иерархии диска 😁 , а если по ми...

У меня есть выгрузка с 1с которую очень удобно можно через PQ причесать (уже готовый запрос есть со всем шагами). Периодически выгрузка обновляется и распихивается в разные папки. Я думал как то все организовать чтобы при обновлении запроса просто указывать над каким файлом проводить все заранее написанные шаги запроса.

0

26.09.2023

Andrey Fedotov Автор вопроса

Mikhail Muzykin
Из именованного диапазона тоже может

А можно пример кода как это сделать?

0

26.09.2023

Павел Тарануха

Andrey Fedotov
Но он же может брать данные из ячейки только из ум...

ну например вот берет из именованной ячейки "DateFrom": Excel.CurrentWorkbook(){[Name="dateFrom"]}[Content]{0}[Column1]

0

26.09.2023

ChatKeeperBot

Павел Тарануха
ну например вот берет из именованной ячейки "DateF...

Павел Тарануха, твою репутацию увеличил Andrey Fedotov. Репутация - 17 Респект от Excel Hacks

0

26.09.2023

Andrey Fedotov Автор вопроса

Павел Тарануха
ну например вот берет из именованной ячейки "DateF...

понял, спасибо. По сути умная таблица это же тот же именованный динамический даипазон

0

26.09.2023

Mikhail Muzykin

дык сообщением выше же https://t.me/eh_chat/302685

0

26.09.2023

ChatKeeperBot

Mikhail Muzykin
дык сообщением выше же https://t.me/eh_chat/302685

Mikhail Muzykin, твою репутацию увеличил Andrey Fedotov. Репутация - 243 Респект от Excel Hacks

0

26.09.2023

Andrey Fedotov Автор вопроса

Mikhail Muzykin
дык сообщением выше же https://t.me/eh_chat/302685

Да, я понял. Спасибо. Но суть идеи та же что и с таблицей - именованный диапазон.

0

26.09.2023

Mikhail Muzykin

Andrey Fedotov
Да, я понял. Спасибо. Но суть идеи та же что и с т...

я повторюсь - можно отдать адрес в параметр, можно прям в тело запроса; можно сделать функцию и запрос в одну строчку - тогда передавать проще

0

26.09.2023

Павел Тарануха

Mikhail Muzykin
я повторюсь - можно отдать адрес в параметр, можно...

как? Черкни, плиз, если получится...

0

26.09.2023

Mikhail Muzykin

Павел Тарануха
как? Черкни, плиз, если получится...

ну Семён Семёныч... Private Sub mymacro(control As IRibbonControl) Dim adres$ With Application.FileDialog(1) .AllowMultiSelect = False .Title = "Выбор файла для параметра" .Filters.Clear .Filters.Add "Файлы для параметра", "*.xls*", 1 .InitialView = msoFileDialogViewDetails If .Show = 0 Then Exit Sub adres = .SelectedItems(1) End With ActiveWorkbook.Queries("Параметр").Formula = """" & adres & """ meta [IsParameterQuery=true, Type=""Text"", IsParameterQueryRequired=true]" End Sub вкладка buch )))

0

26.09.2023

ChatKeeperBot

Mikhail Muzykin
ну Семён Семёныч... Private Sub mymacro(control As...

Mikhail Muzykin, твою репутацию увеличил Павел Тарануха. Репутация - 244 Респект от Excel Hacks

0

26.09.2023

Павел Тарануха

Mikhail Muzykin
ну Семён Семёныч... Private Sub mymacro(control As...

ох суров, дядька!))) Спасибо!))

0

26.09.2023