excel View.GenericHotlink

Hallo zusammen,
ich arbeite mit folgendem script:
theView = av.GetActiveDoc
found = FALSE
p = theView.GetDisplay.ReturnUserPoint
thedpy = theView.GetDisplay
t = theView.GetActiveThemes.get(0)
if (t.is(ftheme)) then
t.SelectbyPoint(theDpy.GetMouseLoc, #VTAB_SELTYPE_NEW)
v = t.GetFTab
linkField = t.getHotField
if (linkField = nil) then
system.beep
msgbox.error("Hot link theme properties are not set for this theme.","")
av.run("view.clearselect","")
exit
else
FOR each rec in v.GetSelection
stringvalue = v.ReturnValueString(LinkField, rec)
if (stringvalue = "") then
system.beep
msgbox.error("This feature does not have a designated hot-link.","")
av.run("view.clearselect","")
exit
else
intHandle = DLL.GetAVWindowHandle
dllName = filename.findinsystemsearchPath("shell32.dll")
u32DLL = DLL.Make(dllName)
OpenFile=DLLProc.Make(u32DLL, "ShellExecuteA", #DLLPROC_TYPE_INT32,
{#DLLPROC_TYPE_INT32, #DLLPROC_TYPE_STR, #DLLPROC_TYPE_STR,
#DLLPROC_TYPE_STR, #DLLPROC_TYPE_STR, #DLLPROC_TYPE_INT32})
result = OpenFile.call({intHandle, "open", stringvalue, "", "C:\\", 1})
if (result = 2) then
system.beep
msgbox.error("The hot-link file specified for this feature was not found.","")
exit
end
end
end
end
end

Wenn ich damit einen hotlink zu einer Excel Datei erzeuge, dann wird zwar Excel gestartet aber die eigentliche Datei wird nicht geladen. Woran kann das liegen?

MfG
roland
Hallo Roland,

eine der Fehlermeldungen aus dem Script wird nicht angezeigt?
Spontane Vermutung: Leerzeichen im Pfad zur Excel-Datei.

Lass Dir doch mal StringValue anzeigen, vielleicht hilft das weiter.
Welchen Wert hat 'result?

Jörg
Hallo Jörg,
es scheint ein wenig verhext. Bei einigen Excel Tabellen funktioniert es. Ich habe aber das Gefühl je komplexer sie werden desto weniger ist es praktikabel. Gibt es vielleicht eine Grenze nur vier Tabellenblätter oder so was ähnliches?

Gruss
roland
Hallo Heinz,
hast Du noch einen anderen Link.
Dieser führt bei mir zu nichts!

Gruss
roland