Page 1 of 1

HYPERLINK

Posted: Tue Jun 12, 2018 7:57 am
by acwoo1
Hi

oSheet:Cells( 12,6 ):Value := '=HYPERLINK("c:\abc\TEST1.xlsx", "oExcel:Sheets(1):Select()" )'

How to hyperlink to sheet 1 of Test1


Thanks

Regards


ACWoo
Using bcc582 + FHW

Re: HYPERLINK

Posted: Tue Jun 12, 2018 9:06 am
by AntoninoP
maybe you need to write something like this https://support.office.com/en-us/articl ... cca2a9b95f

Re: HYPERLINK

Posted: Tue Jun 12, 2018 9:57 am
by anserkk
acwoo1 wrote:Hi

oSheet:Cells( 12,6 ):Value := '=HYPERLINK("c:\abc\TEST1.xlsx", "oExcel:Sheets(1):Select()" )'

How to hyperlink to sheet 1 of Test1


Thanks

Regards


ACWoo
Using bcc582 + FHW
Did you try

Code: Select all

=HYPERLINK("[C:\MyFolderName\MyExcelFile.xlsx]Sheet1!C5","CLICK HERE")
This will navigate to

Workbook - C:\MyFolderName\MyExcelFile.xlsx
Sheet - Sheet1
Cell - C5

Re: HYPERLINK

Posted: Wed Jun 13, 2018 2:50 am
by acwoo1
Thanks

It works.

Regards

ACWoo

Re: HYPERLINK

Posted: Sun Jun 17, 2018 2:04 am
by acwoo1
Hi

=HYPERLINK("[C:\MyFolderName\MyExcelFile.xlsx]Sheet1-A!C5","CLICK HERE")

If the page (Sheet1-A) has a hyphen, the link is not valid. How to overcome this.

Thanks

Regards

ACWoo
Using bcc582
FWH

Re: HYPERLINK

Posted: Sun Jun 17, 2018 2:16 pm
by anserkk
acwoo1 wrote:Hi

=HYPERLINK("[C:\MyFolderName\MyExcelFile.xlsx]Sheet1-A!C5","CLICK HERE")

If the page (Sheet1-A) has a hyphen, the link is not valid. How to overcome this.
Please try replacing the sheet name within single quotes ' '. For eg

Code: Select all

=HYPERLINK("[C:\MyFolderName\MyExcelFile.xlsx]'Sheet1-A'!C5","CLICK HERE")
'Sheet1-A'!C5

Re: HYPERLINK

Posted: Sun Jun 17, 2018 10:24 pm
by acwoo1
Hi

Thanks

I get :

Syntax error at 'SHEET1'

Regards

ACWoo
Bcc582
FWH

Re: HYPERLINK

Posted: Mon Jun 18, 2018 4:41 am
by anserkk

Code: Select all

cText := ""
TEXT INTO cText
=HYPERLINK("[D:\\MyExcelFile.xlsx]'Sheet1 A'!C5","CLICK HERE")
ENDTEXT
Now use the cText on the cell

Re: HYPERLINK

Posted: Mon Jun 18, 2018 9:41 am
by bpd2000

Code: Select all

#include "FiveWin.ch"

function Main()

   local oExcel := CreateObject( "excel.application" )
   local oBook  := oExcel:Workbooks:Add()
   local oSheet := oBook:Worksheets( 1 ) 

   oSheet:Range( "A1" ):Value = "Last Name"
   oSheet:Range( "B1" ):Value = "First Name"
   oSheet:Range( "A1:B1" ):Font:Bold = .T.
   
   oSheet:Range( "A2" ):Value = "Doe"
   oSheet:Range( "B2" ):Value = "John"
   
   oSheet:Range( "D4" ):Value:='=HYPERLINK("#Sheet1!A12","Test1")'
   // insert correct full path for hyperlinked file
   oSheet:Range( "A10" ):Value := '=HYPERLINK("[c:\Myfolder\Bookx.xls]Sheet1!C5","CLICK HERE")'
   oSheet:Range( "A12" ):Value:='=HYPERLINK("#Sheet1!D4","Test2")'
   oSheet:Range( "A13" ):Value:='=HYPERLINK("#Sheet2!E18","Test3")'
   oBook:WorkSheets("Sheet2"):Range( "E18"):Value:='=HYPERLINK("#Sheet1!A13","Test4")'

//   oBook:SaveAs( CurDrive() + ":\" + CurDir() + "\Book1x.xls" ) 
   oExcel:Visible = .T.

   // oExcel:Quit() 

   MsgInfo( "Demo Excel File Created" )

return nil
   
   

Re: HYPERLINK

Posted: Tue Jun 19, 2018 5:15 am
by acwoo1
Thanks

It works.

Regards.

ACWoo