Aufrufen einer Excel-Datei über ein Makro

Question

Ich möchte ein Makro erstellen, das eine Datei abruft, indem es dem Benutzer ermöglicht, die Datei lokal zu durchsuchen und zu suchen und dann einige Funktionen für die gezogene Datei auszuführen.

Ich bin mir nicht sicher, wie Sie die Funktion zum Durchsuchen von Dateien in das Makro integrieren.

Answer 1

Verwenden Application.FileDialog, gibt es viel von Beispielen in SO und anderswo im Internet, zum Beispiel here

Answer 2

Des unten öffnet und setzt wkbFileToOpen, werden Sie dann in der Lage sein, dies als Ihre Arbeitsmappe zu verwenden, zu manipulieren.

Dim vFileToOpen As Variant 
Dim wkbFileToOpen As Workbook 

'Ask the user to select the file, you can change your desired file extensions and file types 
vFileToOpen = Application.GetOpenFilename("Excel Files (*.xls),*.xls,", 1, "Select the workbook", , False) 

'if the user cancels, then vFileToOpen will be false, so we need to check there's a value 
If Not vFileToOpen Then 

    Workbooks.Open vFileToOpen 
    Set wkbFileToOpen = ActiveWorkbook 

End If