Excel -> Hyperlink -> witz?

[DeddyH]

Merk Dir doch den Rückgabewert von ShellExecute und lass ihn Dir ausgeben.

Delphi-Quellcode:

Wert := ShellExecute(...);
if Wert < 33 then
  ShowMessage('Fehler ' + IntToStr(Wert));

[t0mmy]

Hi Danke!

Fehler 2 meldet er -.-

[DeddyH]

Ich dachte mir schon, dass da 2 (File not found) oder 3 (Path not found) zurückkommt. Hast Du einmal versucht, die relativen Pfade in absolute umzuwandeln? Es wird ja versucht, vom aktuellen Arbeitsverzeichnis 3 Ebenen höher und dann in das angegebene Verzeichnis zu kommen. Wenn das Arbeitsverzeichnis also nicht stimmt, kann das nicht funktionieren.

[t0mmy]

Naja.. ich habs mir eh schon gedacht weils ../../../ aber es hat letzte woche funktioniert... und wenn ich auf den hyperlink direkt im Excel-sheet klick öffnet ers auch..

[DeddyH]

Was Excel macht, weiß ich nicht, jedenfalls können relative Pfade zu unerwarteten Ergebnissen führen, wie man hier wieder sieht. Das aktuelle Arbeitsverzeichnis kann ja z.B. durch einen OpenDialog o.ä. geändert worden sein. Wenn Dir jemand sagt: "Geh in den 4. Stock und klingel bei Zaphod Bebblebrox" funktioniert das ja auch nur, wenn Du in der Arthur-Dent-Str. 42 bist, in der Marvin-Allee 3 wird das wahrscheinlich nicht klappen.

[t0mmy]

Okay, jetzt versteh ichs.. aber jedoch bekomme ich wenn ich in Excel die Hyperlinks ansehe.. bei allen eine relativen pfad.

[DeddyH]

Wie gesagt: ich habe Excel nicht programmiert und weiß daher nicht, was dort bei relativen Pfaden gemacht wird. Anscheinend werden diese dort auch in absolute (ausgehend vom eigenen Verzeichnis der Datei) umgewandelt, aber das ist reine Spekulation meinerseits.

[Bernhard Geyer]

Zitat von t0mmy:

Okay, jetzt versteh ichs.. aber jedoch bekomme ich wenn ich in Excel die Hyperlinks ansehe.. bei allen eine relativen pfad.

Stört doch nicht. Du weißt doch von wo du die Excel-Datei geöffnet hast. Also kannst du diese relative Pfade in Absolute umrechen.

Probier einfach mal

ExtractdFilePath(<GeöffneteExcelDatei) + "\" + <Relative Pfadangabe> um die korrekte URL zu haben.