|
Я сделал это! Правда считаю это полным извратом, но всё же выложу код макроса:
Sub Run()
txt1 = "[InternetShortcut]"
txt2 = "navision://client/run?servername=ServerName%26database=DatabaseName%26company=CompanyName% 26target=Report%20ReportNo%26view=SORTING(Field3)%20WHERE(Field3=1(" + ActiveCell.Value + "))%26requestform=Да% 26servertype=MSSQL"
Open "c:\ПУТЬ К ТЕМПОВОЙ ПАПКЕ\mylink.url" For Output Access Write As 1
Print #1, txt1
Print #1, txt2
Close #1
mycommand = "c:\mylink.url"
Set WshScript = CreateObject("WScript.Shell")
D = WshScript.Run(mycommand, 4, False)
End Sub
Есть и второй вариант, только что додумал: единственная сложность это непостоянность путей к iexplore и темповой папке
Второй вариант будет попроще:
sub run()
Shell "C:\Program Files\Internet Explorer\iexplore.exe navision://client/run?servername=ServerName%26database=DatabaseName%26company=CompanyName% 26target=Report%20ReportNo%26view=SORTING(Field3)%20WHERE(Field3=1(" + ActiveCell.Value + "))%26requestform=Да% 26servertype=MSSQL", 1
end sub
Вот такие идеи, проверил, работает -)
|