topic-29983

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Excel Hyperlink
Posted: Thu Jan 15, 2015 09:07 AM

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

Frank-Peter

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 09:40 AM

Code (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 10:16 AM

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.

Frank-Peter

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 10:35 AM

Please check this.

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

Regards

G. N. Rao.

Hyderabad, India

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 10:45 AM

yes, this is my line with the error above

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

oAs is oSheet in my source

Frank-Peter

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 12:28 PM

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.

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 12:41 PM

This is the code I used to test:

Code (fw): Select all Collapse

   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.

Regards

G. N. Rao.

Hyderabad, India

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 01:13 PM

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)

Frank-Peter

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 01:35 PM

Please try:

Code (fw): Select all Collapse

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 )

Regards

G. N. Rao.

Hyderabad, India

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 01:50 PM

Country, ListSep
49.00
;

Frank-Peter

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 01:56 PM

So. Is the above sample working?

Regards

G. N. Rao.

Hyderabad, India

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 02:08 PM

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?

Frank-Peter

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 02:27 PM

Code (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

fp

Posts: 76

Joined: Fri Dec 30, 2005 10:25 AM

Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 03:26 PM

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

Best Regards

Frank-Peter

FiveTech Support Forums

Continue the discussion