{s}{Date|yyyy-MM-dd}_{Time|HH.mm.ss} works fine, but in the current script not work {clip} and {s} only.
At the moment I replaced the following strings:
dlg.default = "{clip}"
to
dlg.default = DOpus.GetClip
and
Set objFile = objFSO.CreateTextFile("{s}{Date|yyyy-MM-dd}_{Time|HH.mm.ss}.url", True)
to
Set objFile = objFSO.CreateTextFile(ClickData.Func.SourceTab.Path & "{Date|yyyy-MM-dd}_{Time|HH.mm.ss}.url", True)
Now everything is OK. Thank you, Leo.