Excel Befehlschaltfläche (ActiveX-Steuerelement) zuweisen

Hallo zusammen,

ich habe ein kleines hoffentlich lösbares Problem mit meiner Excel an der ich gerade arbeite.

Und zwar "verarbeite" ich Daten aus einer Importierten XML-Datei die sich jedoch häufig ändern wird. Anderer Dateipfad und Name.

Um meinen Kollegen das Leben leichter zu machen wollte ich einen Button auf der Tabelle erstellen der die selbe Funktion hat wie der "XML-Daten importieren" Knopf unter Entwicklungstool -> XML.

Sprich es soll sich ein Fenster öffnen in dem man die XML raus suchen kann und diese anschließend unter beachtung der XML-Zuordnungen in die Tabelle integriert.

Am besten wäre einfach ein Link zu dem Button der auch funktioniert wenn die Entwicklungstools nicht eingeblendet sind.

Hoffe ihr könnt mir helfen

Vielen Dank im voraus!

Grüße Frank

Sub ImportiereXMLInSchema()
    file = Application.GetOpenFilename("(*.xml),*.xml", MultiSelect:=False)  
    If file <> False Then
        With ActiveWorkbook.XmlMaps("Envelope_Zuordnung")  
            .ShowImportExportValidationErrors = False
            .AdjustColumnWidth = True
            .PreserveColumnFilter = True
            .PreserveNumberFormatting = True
            .AppendOnImport = True
            .Import URL:=file, Overwrite:=False
        End With
    End If
End Sub