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
oSheet:Cells(r,c):Formula := '=HYPERLINK("http://forums.fivetechsupport.com/","FiveWinForums")'
oExcel := ExcelObj()
oBook := oExcel:WorkBooks:Add()
oSheet := oBook:ActiveSheet
oSheet:Cells( 4,2 ):Value := '=HYPERLINK("http://forums.fivetechsoft.com/", "FiveTech Forums" )'
oExcel:Visible := .t.
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
oSheet:Cells( 4,2 ):Formula := '=HYPERLINK("mailto:gnr@gnr.com" ' + cListSep + ' "G.N.Rao" )'
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 51 guests