topic-35732

acwoo1

Posts: 175

Joined: Tue Nov 10, 2009 10:56 AM

HYPERLINK
Posted: Tue Jun 12, 2018 07:57 AM

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

Posts: 375

Joined: Tue Feb 10, 2015 09:48 AM

Re: HYPERLINK
Posted: Tue Jun 12, 2018 09:06 AM

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

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: HYPERLINK
Posted: Tue Jun 12, 2018 09:57 AM

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 (fw): Select all Collapse

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

This will navigate to

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

acwoo1

Posts: 175

Joined: Tue Nov 10, 2009 10:56 AM

Re: HYPERLINK
Posted: Wed Jun 13, 2018 02:50 AM

Thanks

It works.

Regards

ACWoo

acwoo1

Posts: 175

Joined: Tue Nov 10, 2009 10:56 AM

Re: HYPERLINK
Posted: Sun Jun 17, 2018 02:04 AM

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

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: HYPERLINK
Posted: Sun Jun 17, 2018 02:16 PM

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 (fw): Select all Collapse

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

'Sheet1-A'!C5

acwoo1

Posts: 175

Joined: Tue Nov 10, 2009 10:56 AM

Re: HYPERLINK
Posted: Sun Jun 17, 2018 10:24 PM

Hi

Thanks

I get :

Syntax error at 'SHEET1'

Regards

ACWoo
Bcc582
FWH

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: HYPERLINK
Posted: Mon Jun 18, 2018 04:41 AM

Code (fw): Select all Collapse

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

Now use the cText on the cell

bpd2000

Posts: 153

Joined: Tue Aug 05, 2014 09:48 AM

Re: HYPERLINK
Posted: Mon Jun 18, 2018 09:41 AM

Code (fw): Select all Collapse

#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

Regards, Greetings

Try FWH. You will enjoy it's simplicity and power.!

acwoo1

Posts: 175

Joined: Tue Nov 10, 2009 10:56 AM

Re: HYPERLINK
Posted: Tue Jun 19, 2018 05:15 AM

Thanks

It works.

Regards.

ACWoo

FiveTech Support Forums

Continue the discussion