|
Hallo,
ich habe ein Makro, welches den "Datei öffnen"-Dialog öffnet. In dem Dialog wähle ich aus einer Liste/Ordner verschiedene Dateien aus, welche dann nacheinander geöffnet, gezählt und jeweils mit einem durchnummerierten Wert im Dateiname in einem anderen Ordner abgespeichert werden. Das funktioniert auch alles sehr gut...für meine Kenntnisse.
Das Problem nun ist: das die ausgewählten Dateien in einer bestimmten Reihenfolge (im "Datei öffnen"-Dialog) eingelesen werden sollen.
Am besten in der Reihenfolge, in der ich sie auswähle, zB.: erste ausgewählte Datei soll zuerst geöffnet und gespeichert werden (egal wo sie in der Liste steht) usw...
Im Moment ist es so das die Datei zuerst geöffnet wird, welche in der Liste/Ordner oben angesiedelt ist, wenn nach Name sortiert ist.
Bin mir gerade nicht sicher ob ich mich verständlich ausgedrückt habe....hoffe ja..
Public Sub Picker()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim strQuelle As String
Dim strZiel As String
Dim strQuellPfad As String
Dim strZielPfad As String
Dim i As Variant
Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
fDialog.AllowMultiSelect = True
fDialog.Title = "Dateien für DAkkS-Schein auswählen"
fDialog.InitialFileName = "L:\06_Labor\01_Druck_Labor\01_Aufnahmen\"
fDialog.Filters.Clear
If fDialog.Show = -1 Then
If fDialog.SelectedItems.Count > 1 Then
For i = 1 To fDialog.SelectedItems.Count
With fDialog
Workbooks.Open .SelectedItems(i)
strQuelle = .SelectedItems(i)
End With
On Error GoTo Fehler
Set wbkQuelle = ActiveWorkbook
Set wbkZiel = ThisWorkbook
Dim Dialog As Object
Dim Datei As String
Dim Name
Dim SNr As String
Dim Ordner
Dim Ordnerr
Dim DatName As String
SNr = ActiveWorkbook.Worksheets("Kalibrierung").Range("B7").Value
ThisWorkbook.Worksheets("Merge").Range("B7").Value = SNr
Dim SNr_Teil As String
Dim SNr_Ursprung As String
SNr_Ursprung = Tabelle1.Range("B7").Value
SNr_Teil = Mid(SNr_Ursprung, 2, 3)
Select Case SNr_Teil
|