Sonderzeichen Hochkomma '

[ngott2]

Hallo liebe Delphi Community,
ich schreibe gerade eine Routine für Datenexport. Sie erzeugt ein Excel Dokument.
In den Excel Dokument sollen die einzelnen Tabsheets miteinander verlinkt werden via Hyperlink.

Das ist der String den ich übergebe. " '=HYPERLINK(#39 + getBez(lindex)+ #39+ '!Z22S2;"'+AValue.nummer+'")' "
Wenn ich den String anschließend Auswerte habe ich wo #39 steht aber 2 Hochkomma statt eins. Damit kann Excel aber leider nicht umgehen.
Hat jemand eine Idee warum das so ist ?

[Dejan Vu]

Bei Strings mit Hochkomma kommt es auf jedes einzelne Zeichen an. Poste mal den Code, der den String erstellt und speichert.

[ngott2]

Code:

lDummy :=  '=HYPERLINK('+ #39 + getBez(lindex)+ #39 + '!Z22S2;"'+AValue.nummer+'")';
fexcel.ActiveWorkSheet.Cells[fRowIndexProfile,32 + lIndex].Formula  := lDummy;




function getBez (aTabSheetIndex: Cardinal): string;
begin
   case aTabSheetIndex of
      1:
        Result := 'Artikel';
      2 .. 11:
          Result := 'Verbinder' + IntToStr(aTabSheetIndex-1);
      12 .. 21:
        Result := 'Andere-Verbinder ' + IntToStr(aTabSheetIndex-11);
  end;

end;

aValue.Nummer := 16 Zeichen ohne Sonderzeichen

[baumina]

Zeigst du uns bitte auch noch das Ergebnis, das du erwartest und das das in Excel in der Zelle ankommt?

[ngott2]

=HYPERLINK(''Eckverbinder 1''!Z(-7)S;"test") den String habe ich.
=HYPERLINK('Eckverbinder 1'!Z(-7)S;"test") Den String möchte ich haben.

[Dejan Vu]

Delphi zeigt Dir nur zwei ' an. Du siehst also:

Code:

'HYPERLINK([COLOR="yellow"]''[/COLOR]Artikel[COLOR="Yellow"]''[/COLOR]!Z2S2;"16ZeichenOhneSonderzeichen"

Alles ist richtig. Um hier mehr Sicherheit zu bekommen, das dein String richtig ist, würde ich erstens Format verwenden und zweitens die Hochkomma über 'QuotedStr' erzeugen.

Delphi-Quellcode:

sheetName := GetBez(lIndex);
myExcel := Format('=HYPERLINK(%s!Z2S2"%s"',[QuotedStr(sheetName), Avalue.Nummer]);
// oder so, ohne QuotedStr
myExcel := Format('=HYPERLINK(''%s''!Z2S2"%s"',[sheetName, Avalue.Nummer]);

PS: Um sicher zu gehen, den string einfach mal mit ShowMessage anzeigen lassen.

[ngott2]

In der Messagebox wird der String aber auch falsch angegeben. Getest mit myExcel := Format('=HYPERLINK(''%s''!Z2S2"%s"',[sheetName, Avalue.Nummer]);

[baumina]

sheetName ist wohl in diesem Fall leer? Und das ; fehlt auch?

[ngott2]

Upps ja das stimmt lsheetName war leer. Funktioniert jetzt.
Danke