用于提示日期输入的cognos即兴宏

Question

如果我在加载Impromptu目录后输入文件名来加载* .imr文件，我们会提示输入日期。我这样做会出现语法错误。

Strfilename = ("g:\ filename.imr", "10/15/2014")

语法错误由Impromptu生成。

我希望能够自动输入日期而不必输入日期。

Answer 1

十多年来我没有编写Impromptu编程，但我希望这可以帮到你！

Sub passer()

Dim impapp As Object, imprep As Object, cutdate As Variant
On Error GoTo handler

Set impapp = CreateObject("impromptu.application.30")

cutdate = InputBox("Enter date: ")

impapp.Visible 1
impapp.opencatalog "d:\cognos\i66\samples\outdoors.cat", "Creator", "", "", ""
impapp.openreport "d:\cognos\i66\samples\reports\matt.imr", (cutdate)
Set imprep = impapp.activedocument
imprep.exportexcel ("d:\mydocu~1\matt2.xls")
imprep.closereport

Set imprep = Nothing
Set impapp = Nothing
Exit Sub

handler:
MsgBox "Error with " & Error$()

End Sub

Answer 2

日期是该周的星期一[提示]的输入。所以我加载了目录和.imr文件,,,,,,然后你有一个提示要求那个星期一,,,我可以生成星期一的日期，并且无论天气我引用“日期”或估计我在尝试将其添加到文件名末尾时出错的日期。就像你在那里添加[.imr“，（date）]一样 这不起作用。