Excel Hyperlink

[fp]

How Is it possible to set an eMail-hyperlink to an Excel-cell?

I tryed it with

oAs:Cells[nRow,nCol] := "=HYPERLINK(Test@abc.de)"

OR

oAs:Cells[nRow,nCol] := "=HYPERLINK('Test@abc.de')"

but it doesn't work.

Has anyone a solution?

Thank you

[nageswaragunupudi]

Code: Select all

oSheet:Cells(r,c):Formula := '=HYPERLINK("http://forums.fivetechsupport.com/","FiveWinForums")'
 

[fp]

Sorry, but I get the following error

Fehler Excel.Application:ACTIVESHEET:CELLS 0000 S_OK: _FORMULA
Argumente: { =HYPERLINK("http://forums.fivetechsupport.com/","FiveWinForums") }
Aufgerufen von TOLEAUTO:_FORMULA (0)

I tryed it with "Formular" instead of "Formula", but an error also.

[nageswaragunupudi]

Please check this.

Should be cells(r,c) but not cells[r,c]

[fp]

yes, this is my line with the error above

oAS:Cells(nRow,nCol):Formula := '=HYPERLINK("http://forums.fivetechsupport.com/","FiveWinForums")'

oAs is oSheet in my source

[nageswaragunupudi]

I have English installation of Excel.
I used exactly the same syntax and it is working for me without any error and the link is functional.

If your excel installation is German/Spanish, etc. we need to find what is the function name used for "HYPERLINK" in your language.

[nageswaragunupudi]

This is the code I used to test:

Code: Select all

   oExcel      := ExcelObj()
   oBook    := oExcel:WorkBooks:Add()
   oSheet   := oBook:ActiveSheet
   oSheet:Cells( 4,2 ):Value := '=HYPERLINK("http://forums.fivetechsoft.com/", "FiveTech Forums" )'
   oExcel:Visible := .t.
 

This code is tested on my English installation and one German installation. Both are working as expected.

For other languages, instead of HYPERLINK, the following translations might work:
French: LIEN_HYPERTEXTE( ... )
Spanish: HIPERVINCULO( ... )
Italian: COLLEG.IPERTESTUALE( ... )

Also please try using ";" instead of "," inside the formula.

[fp]

Thank you very much for your help, but the error are the same.

oExcel := ExcelObj()
oBook := oExcel:WorkBooks:Add()
oSheet := oBook:ActiveSheet
oSheet:Cells( 4,2 ):Value := '=HYPERLINK("http://forums.fivetechsoft.com/", "FiveTech Forums" )'
oExcel:Visible := .t.

I get still the following error

Fehler Excel.Application:WORKBOOKS:ADD:ACTIVESHEET:CELLS 0000 S_OK: _VALUE
Argumente: { =HYPERLINK("http://forums.fivetechsoft.com/", "FiveTech Forums" ) }
Aufgerufen von DEFERROR (87)
Aufgerufen von (b)ERRORSYS (18)
Aufgerufen von TOLEAUTO:_VALUE (0)

[nageswaragunupudi]

Please try:

Code: Select all

function test()

   local oExcel, oBook, oSheet
   local cListSep, nCountry

   ? "Start"
   oExcel      := ExcelObj()
   nCountry    := oExcel:International[ 1 ]
   cListSep    := oExcel:International[ 5 ]

   ? "Country, ListSep", nCountry, cListSep

   oBook    := oExcel:WorkBooks:Add()
   oSheet   := oBook:ActiveSheet
   oSheet:Cells( 4,2 ):Formula := '=HYPERLINK("http://forums.fivetechsoft.com/" ' + cListSep + ' "FiveTech Forums" )'
   oExcel:Visible := .t.

return nil
 

Please also let us know the values of nCountry and cListSep
(Germany = 49 )

[fp]

Country, ListSep
49.00
;

[nageswaragunupudi]

So. Is the above sample working?

[fp]

Wow ... with ";" it works now with an URL !!!
Thank you very much!

But I wanted to create an eMail-hyperlink to an Excel-cell

'=HYPERLINK("Test@abc.de";"Frank")'

doesn't work for eMail. Can you help me once more?

[nageswaragunupudi]

Code: Select all

   oSheet:Cells( 4,2 ):Formula := '=HYPERLINK("mailto:gnr@gnr.com" ' + cListSep + ' "G.N.Rao" )'
 

[fp]

Many thanks to India. Everything now works exactly as I have wished for. Thanks for the effort!

Best Regards