I have to create an hyperlink from cell A1 of sheet2 to cell A1 of sheet1
If I click on the cell "MARCO" I want to go to the cell "BOSCHI"
When I click on it I have this alert (italy)
"Indirizzo del sito non valido. Controllare l'indirizzo e riprovare"
What I'm doing wrong?
bye
- Code: Select all Expand view
- #include "fivewin.ch"
FUNCTION MAIN()
LOCAL oExcel
LOCAL oAs1, oAs2
oExcel := CREATEOBJECT( "Excel.Application" )
oExcel:Workbooks:Add()
iConta := oExcel:WorkSheets:count
oExcel:WorkSheets:Add( oExcel:WorkSheets( iConta ) )
oAs1 := oExcel:ActiveSheet()
oAs1 := oExcel:Activesheet()
oAs1:name := "UNO"
iConta := oExcel:WorkSheets:count
oExcel:WorkSheets:Add( oExcel:WorkSheets( iConta ) )
oAs2 := oExcel:ActiveSheet()
oAs2 := oExcel:Activesheet()
oAs2:name := "DUE"
oExcel:Worksheets( "Foglio1" ):Delete()
oExcel:Worksheets( "Foglio2" ):Delete()
oExcel:Worksheets( "Foglio3" ):Delete()
oExcel:Visible := .T.
oAs2:Range( "A1" ):Value := "MARCO"
oAs1:Range( "A1" ):Value := "BOSCHI"
// oAs1:Hyperlinks:Add( oAs2:Range( "A1" ), oAs1:Range( "A1" ) )
oAs1:Hyperlinks:Add( oAs2:Range( "A1" ), oAs1:Range( "A1" ) )
RETURN NIL