excel - 使用 Excel VBA 超链接运行 PeopleSoft 查询

Question

我使用下面的类似代码使用 VBA 从 Excel 运行“公共(public)”PeopleSoft 查询。当我查看从下面的代码生成的超链接时，它类似于我们使用此方法运行的公共(public)查询。唯一的区别是这是一个“私有(private)”查询。我可以使用这些相同的提示在 PeopleSoft 中手动运行查询，它会运行并产生预期的结果(32 行)。但是，当我从 Excel 中运行此代码时，PeopleSoft 会打开，您登录后，它看起来像查询运行。但是，它不返回任何结果(0 行)。运行“私有(private)”查询是否有一些转折。不能用这种方法运行“私有(private)”查询吗？任何建议将不胜感激，因为这让我们很难过。谢谢您的帮助......

如果有帮助，我们正在使用 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

Answer 1

如果您得到 0 个结果，则查询正在运行。我相信您的问题在于您的日期参数。我能够使用日期参数运行私有(private)查询，但我必须使用 YYYY-MM-DD 格式的日期。

&BIND1=2016-07-21

这是在 DB2 上，因此对于您的数据库可能会有所不同。如果您需要使用带有斜线的格式，请确保在提交之前对 URL 进行编码。这是 Stack Overflow question on urlencoding in VBA

我的完整网址是:

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

注意:这是在 PeopleTools 8.54.13 上，但应该在 8.52 上工作