Office: Mehrere Dateien auswählen

syme · 2. Juli 2018

Hallo liebe Forum Mitglieder!

Ich habe den u.a. Code. Mit diesem öffne ich den Dateimanager und wähle einen Ordner. Im Folgenden werden dann alle sich in diesem Ordner befindlichen Dateien auf deren Datei-Endung überprüft.

Aufgabe:
Ich würde gerne nicht einen Ordner auswählen, sondern per Multiselect eine oder mehrere Dateien. Diese ausgewählten Dateien sollen anschließend überprüft werden.

Könnt ihr mir da helfen?

Vielen Dank und lieben Gruß
syme

Code:

Sub Text()

'Variablen Deklaration
Dim strPathTemp As String
Dim strPathInputFolder As String

'Ordner wählen
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "c:\test"
.title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strPathTemp = .SelectedItems(1)
If Right(strPathTemp, 1) "\" Then strPathTemp = strPathTemp & "\"
Else
strPathTemp = ""
End If
End With

'work with all files in temp folder
If Right(strPathTemp, 1) "\" Then strPathTemp = strPathTemp & "\"
file = Dir(strPathTemp & strType)

While (file "")

Select Case Right(file, 3)
Case "docx", "DOCX":
MsgBox ("ist ein Word-Dokument")

Case "jpg", "JPG":
MsgBox ("ist ein Bild")

Case Else:
MsgBox "ist etwas anderes"
End Select

file = Dir
Wend

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

:)

Mc Santa · 4. Juli 2018

Ich habe in meiner kurzen Recherche herausgefunden, dass das wohl nicht möglich ist. siehe zb: mrexcel.com/forum/excel-questions/153941-issue-multiselect-filedialog.html

Ein Vorschlag, den ich dort gefunden habe:

That said I've created the following macro that asks the user if they want to add another directory after each one has been selected:

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

Option Explicit
Sub Macro3()

Dim strInitialPath As String
Dim strDialogTitle As String
Dim strMyFolders() As String 'Declares a dynamic array variable
Dim lngMyCounter As Long
Dim varMyFolder As Variant
Dim blnContinue As Boolean
Dim strMyFiles() As String 'Declares a dynamic array variable

Application.ScreenUpdating = False

strInitialPath = "C:" 'Initital folder directory. Change to suit.
strDialogTitle = "Select a Folder"

blnContinue = True

Do Until blnContinue = False
With Application.FileDialog(msoFileDialogFolderPicker)
'.AllowMultiSelect = True 'Unlike selecting multiple files via 'msoFileDialogOpen' this does nothing for selecting multiple folder via 'msoFileDialogFolderPicker'. Refer here for some info: Issue of MultiSelect of FileDialog
.InitialFileName = strInitialPath
.Title = strDialogTitle
If .Show = -1 Then
lngMyCounter = lngMyCounter + 1
ReDim Preserve strMyFolders(1 To lngMyCounter) 'Append the selected directory to the 'strMyFolders' array
strMyFolders(lngMyCounter) = .SelectedItems(1)
If MsgBox("Do you want to select (append) another folder?", vbQuestion + vbYesNo) = vbYes Then
blnContinue = True
Else
blnContinue = False
End If
End If
End With
Loop

'Loop through each of the folders selected above
For Each varMyFolder In strMyFolders
MsgBox varMyFolder
Next varMyFolder

Application.ScreenUpdating = True

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

syme · 4. Juli 2018

Danke Mc Santa!

Da hast du Recht. Das habe ich (leider) auch schon herausgefunden. Vielleicht habe ich mich nicht ganz ordentlich ausgedrückt:

Ich möchte in Zukunft nur noch (also ausschließlich) Dateien markieren. Also nicht mehr den msoFileDialogFolderPicker benutzen, sondern vielleicht den msoFileDialogOpen.

Ich habe eher Probleme damit, wie ich nachdem ich mehrere Dateien ausgewählt habe, diese nacheinander ansprechen kann.

Vielleicht könnt ihr mir da noch mal helfen*Smilie

Mc Santa · 4. Juli 2018

Achso, ich habe ungenau gelesen, sorry!

Du musst deinen FileDialog ein einem Objekt speichern und kannst anschließend über obj.SelectedItems(i) die einzelnen Dateien anwählen.

Hier ist das beschrieben: wiseowl.co.uk/blog/s209/multiselect.htm

syme · 4. Juli 2018

Super, Danke !!!

Genau das ist es*Smilie

LG!

Office: Mehrere Dateien auswählen

Mehrere Dateien auswählen

Mehrere Dateien auswählen

Mehrere Dateien auswählen

Mehrere Dateien auswählen - Similar Threads - Dateien auswählen

Suche in Datei-Auswahl-Box in Excel ohne Wildcards

Auswählen der Textcodierung beim Öffnen und Speichern von Dateien

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

Inhalt mit Dropdown aus verschiedenen Excel-Dateien auswählen

Tabellen mit Checkbox auswählen und in neue Datei kopieren

VBA: Datei auswählen und daraus Daten übernehmen

PDF-Datei in der Listbox auswählen und Datei löschen