Macro不会为所有用户运行

Question

发生错误     设置report = app.OpenReport（“S：\ Supply Chain \ Scheduling \ HRE \ HRE.imr”） 它适用于某些用户而非其他用户。 任何替代方法或某些需要更改的设置？ 这是一个有针对性的定义错误。

`Sub Update()

Dim app As Object
Dim report As Object
Dim catalog As Object

'open cognos'

Set app = CreateObject("CognosImpromptu.Application")
app.Visible True
app.Activate

'open catalog'

app.OpenCatalog "R:CognosUsers/Cognos Catalogs/SUPPLY CHAIN.cat"
app.Visible True
app.Activate

'open report'

Set report = app.OpenReport("S:\Supply Chain\Scheduling\HRE\HRE.imr")
report.RetrieveAll

'save report path'

report.Export "S:\Supply Chain\Scheduling\HRE\Raw", "X_ascii.flt"
'close cognos'
report.CloseReport
app.Quit`

Answer 1

您可能已经看过这个，但我要检查的第一件事是（1）如果R：\和S：\被正确映射（如果你点击文件中的R：\和S：\）探险家，它会带你到你想象的地方吗？）; （2）用户可以访问代码中的各种文件夹/文件/应用程序。