Publish table to SharePoint with Hyperlink formula

[Sevententh]

Hi all,

I have a table that has 1 column as a hyperlink formula (based on values in other columns) The problem is when I publish this to SharePoint the hyperlinks are removed and all I get is the value.

So I thought that it might be possible to do this in VBA, and have the sheet automatically insert the hyperlink into a column... Would this work?

I basically have columns: Manufacture | Part No | FileName | Hyperlink

The hyperlink formula for the column is:
+HYPERLINK("https://webaddress/Shared%20Documents" &"/" & [MANUFACTURER] &"/" & [PART No] & "/" & [Filename], LEFT([Filename], LEN([Filename])-4))

Result looks like this:
https://webaddress/Shared Documents/Company/x123x/Document.pdf, Document

 

[Sevententh]

Figured it out and this works!

Sub Hyper()
Dim i, j As Integer
Dim k, strPartNumber, strManufacturer As String

Dim RemoteWeb, strBuild, FriendlyName As String

i = Cells(Rows.Count, 2).End(xlUp).Row
Range("N3").Select

    RemoteWeb = "https://website/Shared%20Documents/"

Do
    j = ActiveCell.Row
    ActiveCell.ClearContents
    
    strManufacturer = Cells(j, 6).Value 'Manufacturer
    strPartNumber = Cells(j, 7).Value 'Part No
    
    'Datasheet hyperlink
    strBuild = strManufacturer & "/" & strPartNumber & "/" & Cells(j, 13).Value
    FriendlyName = Left(Cells(j, 13).Value, Len(Cells(j, 13).Value) - 4)
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=RemoteWeb & strBuild, TextToDisplay:=FriendlyName

    ActiveCell.Offset(1, 0).Select
    
    Loop Until ActiveCell.Row > i

End Sub