Запуск PeopleSoft Query с гиперссылкой Excel VBA

Я использовал аналогичный код ниже для запуска «общедоступных» запросов PeopleSoft из Excel с использованием VBA. Когда я смотрю на гиперссылку, созданную из приведенного ниже кода, она похожа на общедоступные запросы, которые мы запускаем с помощью этого метода. Единственная разница в том, что это «частный» запрос. Я могу вручную запустить запрос в PeopleSoft с теми же подсказками, и он запустится и выдаст результаты, как и предполагалось (32 строки). Однако, когда я запускаю этот код из Excel, открывается PeopleSoft, вы входите в систему, и похоже, что запрос выполняется. Однако он не возвращает никаких результатов (0 строк). Это какой-то поворот с запуском "частных" запросов. Нельзя ли с помощью этого метода запускать «приватные» запросы? Мы будем очень признательны за любые предложения, так как это поставило нас в тупик. Спасибо за помощь......

Мы используем Excel 2010, PeopleSoft 9.1 и PeopleTools 8.52, если это помогает

Dim vFROMACCT As Date
Dim vTOACCT As Date
vFROMACCT = "07/01/2016"
vTOACCT = "07/21/2016"
vFROMACCT = Format(vFROMACCT, "MM/DD/YYYY")
vTOACCT = Format(vTOACCT, "MM/DD/YYYY")
vHypRoot = "http://pswebfsprd.myco.com/fsprd_1/EMPLOYEE/ERP/q/?ICAction=ICQryNameExcelURL=PRIVATE.CAR_SALES_1"

vHypLnk = vHypRoot
vHypLnk = vHypLnk & "&bind1=" & vFROMACCT
vHypLnk = vHypLnk & "&bind2=" & vTOACCT

With Worksheets("Sheet1")
.Hyperlinks.Add .Cells(10, 1), vHypLnk
.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With

excel vba excel-2010 peoplesoft peoplesoft-query
person Shaves    schedule 21.07.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Если вы получаете 0 результатов, то запрос выполняется. Я считаю, что ваша проблема связана с вашими параметрами даты. Мне удалось выполнить частный запрос с параметром даты, но мне пришлось использовать дату в формате ГГГГ-ММ-ДД.

&BIND1=2016-07-21

Это было в DB2, поэтому для вашей БД может быть иначе. Если вам нужно использовать формат с косой чертой, убедитесь, что вы закодировали URL-адрес перед его отправкой. Вот вопрос о переполнении стека по кодированию URL-адресов в VBA

Мой полный URL был:

https://dev.removed.com/psp/mydev/EMPLOYEE/ERP/q/?ICAction=ICQryNameURL=PRIVATE.TEST_DS&BIND1=2016-07-21

Примечание. Это было в PeopleTools 8.54.13, но должно работать в 8.52.

person Darryls99    schedule 21.07.2016
comment
@ Darryls99...........Спасибо за помощь. Вы были правы. Как только я изменил формат даты, я запустил его. Это не работает в 100% случаев, иногда я по-прежнему 0 результатов, но пару раз это дало правильные результаты. Спасибо еще раз........ - person Shaves; 22.07.2016