Page 1 of 1
Excel Hyperlink
Posted: Thu Jan 15, 2015 9:07 am
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
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 9:40 am
by nageswaragunupudi
Code: Select all
oSheet:Cells(r,c):Formula := '=HYPERLINK("http://forums.fivetechsupport.com/","FiveWinForums")'
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 10:16 am
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.
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 10:35 am
by nageswaragunupudi
Please check this.
Should be cells(r,c) but not cells[r,c]
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 10:45 am
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
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 12:28 pm
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.
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 12:41 pm
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.
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 1:13 pm
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)
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 1:35 pm
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 )
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 1:50 pm
by fp
Country, ListSep
49.00
;
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 1:56 pm
by nageswaragunupudi
So. Is the above sample working?
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 2:08 pm
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?
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 2:27 pm
by nageswaragunupudi
Code: Select all
oSheet:Cells( 4,2 ):Formula := '=HYPERLINK("mailto:gnr@gnr.com" ' + cListSep + ' "G.N.Rao" )'
Re: Excel Hyperlink
Posted: Thu Jan 15, 2015 3:26 pm
by fp
Many thanks to India. Everything now works exactly as I have wished for. Thanks for the effort!
Best Regards