Removing Workbook External Link Sources Using ClosedXML

Viewed 17

I'm trying to remove any external link sources in a workbook using closedXML. I'm very new to using ClosedXML so forgive me if the answer is very obvious. I'm rewriting some of my Interop code to ClosedXML. I currently have a working code for interop as shown below.

    Public Shared Sub Remove_External_Links(wbName As String)

    Dim xlApp As Excel.Application
    Dim WB As Excel.Workbook

    xlApp = GetObject(, Constants.ExcelApp)
    WB = xlApp.Workbooks(wbName)

    With WB
        Try
            For Each Link In WB.LinkSources(Type:=Excel.XlLinkType.xlLinkTypeExcelLinks)
                .ChangeLink(Link, WB.Name, Excel.XlLinkType.xlLinkTypeExcelLinks)
            Next
        Catch ex As Exception
        End Try
    End With

End Sub

This code below is what I currently have for ClosedXML but not sure how to complete it.

    Public Shared Sub Remove_External_Links(wbName As String)

    Dim XMLwb As XLWorkbook = New XLWorkbook(wbName)
    Dim XMLws As IXLWorksheet

    With XMLwb
        Try

            For Each XMLws In XMLwb.Worksheets
                For Each Link In XMLws.Hyperlinks

                  'NOT SURE WHAT TO ADD IN HERE. ALSO NOT SURE IF HYPERLINKS IS CORRECT.

                Next Link
            Next XMLws

        Catch ex As Exception
        End Try
    End With

End Sub

Hoping someone can help with this. Thanks in advance.

0 Answers
Related