Problem med å sende data til Excel

[dalai]

Hei alle!

Jeg utvikler et program, hvor en del av det består av å sende all informasjon fra et objekt av type TStringGrid over til et Excel- regneark.

 

Dette fungerer bra, men en kolonne (F) inneholder hyperlinker, altså adresser til .html sider. Disse dukker opp som ren tekst i excel arket.

 

Hvordan kan jeg få formatert disse cellene slik at de inneholder hyperlinker man kan klikke på, og ikke bare ren tekst?

[dalai]

jaha.. jeg fant det ut selv jeg.

 

var temp: Variant;

for i := 2 to R do

begin

temp := WorkSheet.Range['F' + IntToStr(i) , 'F' + IntToStr(i)].value;

temp := '=HYPERLINK("' + temp + '")';

WorkSheet.Range['F' + IntToStr(i), 'F' + IntToStr(i)].value := temp;

end;

[michaenh]