Office: Dateien über UserForm auswählen und Makro ausführen

feliweb · 9. November 2016

Hallo zusammen,

ich habe einen Ordner mit mehreren Exceldateien, die auch einzelne Dateien bleiben müssen.

Ich habe jetzt exemplarisch an einem ein für mich funktionales Makro geschrieben.

Ich würde jetzt gerne dieses Makro auf alle Einzeldateien ausführen lassen.

Datei1 Makro ausführen, speichern, schließen
Dateix Makro ausführen, speichern, schließen

Die Namen der Einzeldateien unterliegen leider keiner sinnvollen Nummerierung.
Deshalb habe ich mir gedacht, ich hätte gerne eine MasterExcel in der es nur eine Userform gibt. Dort wähle ich die Dateien auf die das Makro ausgeführt werden soll und drücke auf einen Knopf.

Ist so etwas möglich?

Vg
Feli

:)

aloys78 · 11. November 2016

Hallo Feli,

Deshalb habe ich mir gedacht, ich hätte gerne eine MasterExcel in der es nur eine Userform gibt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schau Dir mal an Application.GetOpenFilename für mehrere Files.
Die damit gesammelten Dateien kannst Du dann über eine Schleife abarbeiten. Den Code zur Bearbeitung einer Datei hast Du ja schon.

Gruß
Aloxd

feliweb · 11. November 2016

Hey Aloxd,

vielen Dank für den Tipp.

Mit einer Datei läuft es soweit. Allerdings komme ich mit der Schleife nicht so zurecht.

Single Datei:

Code:

Option Explicit
Dim datei As String
Sub CommandButton1_Click()

datei = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien *.xlsx (*.xlsx),*.xlsx")

Excel.Workbooks.Open datei

End Sub

Private Sub CommandButton2_Click()
With ActiveWorkbook.VBProject
.VBComponents.Import "Pfad1.bas"
.VBComponents.Import "Pfad2.bas"
End With
Application.Run ("'" & datei & "'!ModulName.MakroName")
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Multidatei Versuch:

Code:

Option Explicit
Dim datei As String
Dim iCounter As Integer
Sub CommandButton1_Click()

datei = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien *.xlsx (*.xlsx),*.xlsx", _
MultiSelect:=True)

End Sub

Private Sub CommandButton2_Click()
For iCounter = 1 To UBound(datei)
Excel.Workbooks.Open datei
With ActiveWorkbook.VBProject
.VBComponents.Import "Pfad1.bas"
.VBComponents.Import "Pfad2.bas"
End With
Application.Run ("'" & datei & "'!Modulname.Makroname")
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
Application.DisplayAlerts = True
Next iCounter

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich erhalte dann schon beim Öffnungsversuch die Fehlermeldung "Typen unverträglich" Gibt es dafür eine Lösung?

VG Feli

aloys78 · 11. November 2016

Hallo Feli,

anbei mal ein Rahmen, wo Du Deinen Code zur Berabeitung der einzelnen Datei einbauen kannst.

Code:

Sub CommandButton1_Click()
Dim sPfad As String
Dim varFile As Variant
Dim iFile As Long
Dim wb As Workbook

sPfad = ThisWorkbook.Path '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

feliweb · 13. November 2016

Hey Aloxd,

SUPER. vielen Dank

funktioniert perfekt!

Office: Dateien über UserForm auswählen und Makro ausführen

Dateien über UserForm auswählen und Makro ausführen

Dateien über UserForm auswählen und Makro ausführen

Dateien über UserForm auswählen und Makro ausführen

Dateien über UserForm auswählen und Makro ausführen - Similar Threads - Dateien UserForm auswählen

Name der Datei durch Excel geändert

Zugriff auf nicht vorhandene Datei seitens Excel

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

Userform beim Öffnen der Datei im Hintergrund

UserForm Daten speichern. Registry oder externe Datei?

Daten per Userform in externe Datei

Excel 2010 - Link zum Start Video-Datei mit Listbox und CB in Userform erstellen