Hyperlink the Link present in Datatable

Help Studio
, ,
1

Hey All,
I want to Hyperlink the Link present in Datatable
So the input is something like this

image
image907×63 2.66 KB

And my output should be something like this

image
image898×51 1.39 KB

So technically all the links present in a particular column should be Hyperlink and should be displayed the same way!

@Anil_G @Yoichi @ppr or someone else help me with this

2

@Goku

You can add a formula like this to each row using expression

Dt.Columns("HotelNameUrl").Expression = "'HYPERLINK(""' + [HotelNameURL] + '"",""Link"")"

Cheers

3

Hey @Anil_G , Thanks for the Quick response
Just wanted to ask what does this do
Dt.Columns("HotelNameUrl").Expression

4

@Goku

These are expressions…used to add a value or modify all the roes of a specific column in a datatable instead of using for eqch…

What I have done is added hyperlink excel formula to each row in datatable so that when you write you see hyperlink instead of text

Cheers

5

It didnt work as Excel was not formatting to Hyperlink,

Through a youtube video i got a code
code is provided Below
Dim xlworkbook As Microsoft.Office.Interop.Excel.Workbook
Dim xlworksheet As Microsoft.Office.Interop.Excel.Worksheet
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlRange As Microsoft.Office.Interop.Excel.Range
Dim xlLastRowNumber As Long
Dim i As Long
Dim title As String
Dim url As String
Try
xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
xlworkbook = xlApp.Workbooks.Open(in_FilePath)
xlworksheet = CType(xlworkbook.Sheets(in_SheetName), Microsoft.Office.Interop.Excel.Worksheet)
xlLastRowNumber = xlworksheet.Range(“B” & xlworksheet.Rows.Count).End (Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row
xlRange = xlworksheet.Range(“A2:B” & xlLastRowNumber)
For Each row As Microsoft.Office.Interop.Excel.Range In xlRange.Rows
For Each cells As Microsoft.Office.Interop.Excel.Range In row.Cells
If cells.Address.Contains(“A”)
title = cells.Value.ToString
End If
If cells.Address.Contains(“B”) Then
url = cells.Value.ToString
title = “Hotel Name” & cells.Value.ToString
Dim displayText As String = “Click Here”
Dim hyperlinkText As String = displayText & " " & title
xlworksheet.Hyperlinks.Add(cells, url, Type.Missing, displayText, title)
Debug.Print("URL: " & url)
Debug.Print("Title: " & title)
Debug.Print("Hyperlink Text: " & hyperlinkText)
End If

Next

Next
Catch
Finally
xlworkbook.Save
xlworkbook.Close
End Try

Can anyone tell me why this is not working

6

@Goku

What did you use?

Excel activities or workbook activities ?

Cheers

7

I have similar problem, have anyone got any solution for this?