Macro om bestand te openen en inhoud te kopiëren

[Gert Bouwmeeste]

Goedemorgen,

Maandelijks komt er een download uit een Mainframe-bestand. Dat ziet er uit als in het voorbeeldbestand. Iedere maand heet het aangemaakte bestand (in .xlsx-formaat) anders.

Ik zoek een macro waarbij ik kan kiezen welk bestand ik wil openen en die inhoud van dat bestand (één tabblad, in z'n geheel, zelfde kolomindeling) kopieert naar het tabblad "Import" in een ander Excel-bestand.

Ik heb dit:

Sub KiesBestand()

' Ga naar het blad "Import" van het moederbestand
    Sheets("Import").Select
    
' Selecteer alle cellen en wis de inhoud
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    
   
[COLOR="#FF0000"][B]' Hier moet dus iets komen waarbij ik het juiste downloadbestand kan kiezen
    '< Kies de juiste map en het juiste bestand>
    '< Open het gekozen bestand>[/B][/COLOR]
    
' Maak "Bewerken" in het downloadbestand mogelijk
    Application.ActiveProtectedViewWindow.Edit
    
'Selecteer het hele tablad
    Cells.Select
    Selection.Copy
    Windows("Moederbestand.xlsm").Activate
    ActiveSheet.Paste

End Sub

Wie kan/wil mij even op weg helpen?

Dank alvast!
Gert

 

[edmoor]

Voor het rode gedeelte:

    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "C:\Diversen" [COLOR="#008000"]'Eventueel aanpassen[/COLOR]
        .Title = "Selecteer bestand"
        .AllowMultiSelect = False
        If .Show Then
            Workbooks.Open .SelectedItems(1)
        End If
    End With

 

[spaarie]

Sub KiesBestand()
    'wis inhoud
    Sheets("Import").Cells.ClearContents
    'open bestand
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        .Show
        Workbooks.Open = .SelectedItems.Item(1)
    End With

    'selecteer en kopie
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ThisWorkbook.Sheets("Import").Cells(1, 1).PasteSpecial
    ActiveWorkbook.Close False
End Sub