Запуск отчета Navision из Excel

[Fallen]

Сейчас VBA script выглядит так:

Sub RunLNK()
Set WshShell = CreateObject("WScript.Shell")
Set WshUrlShortcut = WshShell.CreateShortcut(Desktop & "nav.lnk")
WshUrlShortcut.TargetPath = "navision://client/run?servername=ServerName%26database=DatabaseName%26company=CompanyName%26target=Report%20ReportNo%26view=SORTING(Field3)%20WHERE(Field3=1(ActiveCell.Value))%26requestform=Да%26servertype=MSSQL"
WshUrlShortcut.Save
WshShell.Run ("""*Путь к ярлыку*\nav.lnk""")
End Sub

запускает Nav и казалось бы все путем но значение ActiveCell.Value, не учитывает то есть в отчете в фильтре стоит номер первого документа а не указанного в документе(находящегося в активной ячейке Excel)

[artkashin]

Цитата:

Сообщение от Fallen

"navision://client/run?servername=ServerName%26database=DatabaseName%26company=CompanyName%26target=Report%20ReportNo%26view=SORTING(Field3)%20WHERE(Field3=1("+ActiveCell.Value+"))%26requestform=Да%26servertype=MSSQL"

во-вторых, присоединяюсь к Quattro используйте Excel.ActiveSheet.Range("A1").Hyperlinks(1).Follow