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.Applicati onClass
ex.Workbooks.Op en("C:\temp\boo k1.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).TextToDispla y)
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.