Hi,
I think we may try to read the Hyperlinks by using automation.
The code below will print the cell(b5)'s hyperlink address and displayed
text.
Dim ex As New Excel.ApplicationClass
ex.Workbooks.Open("C:\temp\book1.xls")
Dim sheet As Excel.Worksheet = ex.ActiveSheet
Dim rg As Excel.Range = sheet.Cells(5, 2)
Debug.WriteLine(rg.Hyperlinks(1).Address)
Debug.WriteLine(rg.Hyperlinks(1).TextToDisplay)
ex.Quit()
You may have a try and let me know if that is what you want.
Best regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! -
www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.