Excel Hyperlink

Post Reply
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Excel Hyperlink

Post by 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
Frank-Peter
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by nageswaragunupudi »

Code: Select all

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

G. N. Rao.
Hyderabad, India
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Re: Excel Hyperlink

Post by 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.
Frank-Peter
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by nageswaragunupudi »

Please check this.

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

G. N. Rao.
Hyderabad, India
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Re: Excel Hyperlink

Post by 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
Frank-Peter
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by 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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by 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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Re: Excel Hyperlink

Post by 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)
Frank-Peter
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by 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 )
Regards

G. N. Rao.
Hyderabad, India
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Re: Excel Hyperlink

Post by fp »

Country, ListSep
49.00
;
Frank-Peter
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by nageswaragunupudi »

So. Is the above sample working?
Regards

G. N. Rao.
Hyderabad, India
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Re: Excel Hyperlink

Post by 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?
Frank-Peter
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Excel Hyperlink

Post by nageswaragunupudi »

Code: Select all

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

G. N. Rao.
Hyderabad, India
User avatar
fp
Posts: 76
Joined: Fri Dec 30, 2005 10:25 am
Location: Germany

Re: Excel Hyperlink

Post by fp »

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

Best Regards
Frank-Peter
Post Reply