Makro - opdate og slet link til ekstern dataområde

prøv med:

Sub OpdaterAlle()
    ActiveWorkbook.RefreshAll
End Sub

Public Sub SletQueryTabels()
    Dim SH As Worksheet, QT As Object
    For Each SH In ActiveWorkbook.Sheets
        For Each QT In SH.QueryTables
            QT.Delete
        Next
    Next
End Sub

Du kan finde en makro til opdatering af alle links her:

' Macro created 26/10/01 by Doug Robbins to update links in a document
'
Dim alink As Field, linktype As Range, linkfile As Range
Dim linklocation As Range, i As Integer, j As Integer, linkcode As Range
Dim Message, Title, Default, Newfile
Dim counter As Integer


counter = 0
For Each alink In ActiveDocument.Fields
    If alink.Type = wdFieldLink Then


        Set linkcode = alink.Code
        i = InStr(linkcode, Chr(34))
        Set linktype = alink.Code
        linktype.End = linktype.Start + i
        j = InStr(Mid(linkcode, i + 1), Chr(34))
        Set linklocation = alink.Code
        linklocation.Start = linklocation.Start + i + j - 1
        If counter = 0 Then
            Set linkfile = alink.Code
            linkfile.End = linkfile.Start + i + j - 1
            linkfile.Start = linkfile.Start + i
            Message = "Enter the modified path and filename following this
Format " & linkfile
            Title = "Update Link"
            Default = linkfile
            Newfile = InputBox(Message, Title, Default)
        End If
        linkcode.Text = linktype & Newfile & linklocation
        counter = counter + 1
    End If
Next alink


og til sletning:

aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        lnam = aLinks(i)
        ActiveWorkbook.BreakLink Name:=lnam, Type:=xlExcelLinks
    Next i
End If

Hej Igen

Mange tak for de hurtige svar.

Jeg valgte at bruge kabbak's indlæg.
Det virker som var det skabt til det.

Mange tak for hjælpen begge to.

Mvh
OY-NYB

et svar ;-))