HYPERLINK

[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

[AntoninoP]

maybe you need to write something like this https://support.office.com/en-us/article/create-an-external-reference-link-to-a-cell-range-in-another-workbook-c98d1803-dd75-4668-ac6a-d7cca2a9b95f

[anserkk]

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  Expand view  RUN

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

This will navigate to

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

[acwoo1]

Thanks

It works.

Regards

ACWoo

[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

[anserkk]

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  Expand view  RUN

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

'Sheet1-A'!C5

[acwoo1]

Hi

Thanks

I get :

Syntax error at 'SHEET1'

Regards

ACWoo
Bcc582
FWH

[anserkk]

Code: Select all  Expand view  RUN

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

Now use the cText on the cell

[bpd2000]

Code: Select all  Expand view  RUN

#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
   
   

[acwoo1]

Thanks

It works.

Regards.

ACWoo