VBA-Code zum Öffnen einer Excel-Datei aus einem Ordner

VBA-Code zum Öffnen einer Excel-Datei aus einem Ordner
Inhaltsverzeichnis

Öffnen Sie eine Excel-Datei aus einem Ordner mit VBA-Code

Was ist es:

Dieser VBA-Code hilft Ihnen beim Durchsuchen und Öffnen von Excel-Dateien aus Ordnern oder Verzeichnissen.

Warum:

Wenn Sie ein Programm erstellen und dem Benutzer die Möglichkeit geben möchten, eine bestimmte Excel-Datei auszuwählen und zu öffnen, kann dieser Code dafür verwendet werden.

Wie So öffnen Sie eine Excel-Datei aus einem Ordner mit VBA-Code:

Schritt 1: Öffnen Sie die Arbeitsmappe und drücken Sie Alt + F11, um den Code einzufügen.

Öffnen Sie eine Excel-Datei aus einem OrdnerPin

Schritt 2: Kopieren Sie den folgenden Code, fügen Sie ihn in das VBA-Editorfenster ein und speichern Sie die Arbeitsmappe.




Sub OpenSpecificWorkbook()

Abm xlName Als Variante

xlName = Application.GetOpenFilename(FileFilter:=“Excel Workbooks,*.xl*“, Title:=“Choose a Workbook to Open“, MultiSelect:=Falsch)  'GetOpenFilename-Methode aktiviert Dialogfeld

Wenn XLName <> Dann falsch

Arbeitsmappen.Dateiname öffnen:=xlName

Ende Wenn

End Sub

Schritt 3: Fügen Sie eine Befehlsschaltfläche in die ein Excel Datei oder UserForm und weisen Sie dieses Makro zu.
Anson Antonius
Anson Antonius
Anson ist ein beitragender Autor und Gründer von www.askeygeek.comEr verfügt über ein Jahrzehnt vielseitiger Erfahrung in den Bereichen Business Process Outsourcing, Finanz- und Rechnungswesen, Informationstechnologie, Operational Excellence und Business Intelligence. Während seiner Amtszeit hatte er für Unternehmen wie Genpact, Hewlett Packard, M*Modal und Capgemini in verschiedenen Rollen und Verantwortlichkeiten gearbeitet, angefangen vom Associate bis zum Manager. Etwas Neues zu lernen war schon immer seine Leidenschaft, asKeygeek.com ist das Ergebnis seiner Leidenschaft für Technologie und Business. Außerhalb von Geschäft und Technologie ist Anson ein Filmfan, der Stunden damit verbringt, Kino zu sehen und zu lernen, und auch ein Filmemacher!

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

Glückwunsch!
Du hast es geschafft,
Nicht schließen!

Steh auf 60.000 UberTTS-Charakter-Credits kostenlos!!!

Dieses Popup wird nicht angezeigt wie du willst wieder!!!

UberTTS
Share to...