Hallo,
ich bitte um Hilfe bei folgendem VBA Excel Problem:
Ich möchte mit dem Folderpicker einen Ordner auswählen. Dieser Ordner (rootverz) enthält Unterordner (variable Anzahl).
Diese Unterordner enthalten Dateien (ebenfalls variable Anzahl), diese Dateien möchte ich fortlaufend durchnummerieren.
Ich habe Probleme mit dem folderpicker:
Nach der Auswahl des Ordners kommt die Laufzeitfehlermeldung "424 - Objekt erforderlich".
Was mache ich falsch?
Vielen Dank für die Hilfe im Voraus - alleine komme ich nicht mehr weiter...
Viele Grüße,
Jörg
Sub num()
Dim fso As FileSystemObject
Dim pfadrootverz As String
Dim rootverz As folder
Dim ordner As folder
Dim datei As file
Dim i As Integer
Dim fd As FileDialog
Dim gewItem As String
Set fso = CreateObject("Scripting.FileSystemObject")
'Pfad auswählen
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Title = "Ordner auswählen"
.AllowMultiSelect = False
.InitialFileName = "D:\"
If .Show <> -1 Then GoTo NextCode
gewItem = .SelectedItems(1)
End With
NextCode:
GetFolder = gewItem
Set fd = Nothing
i = 1
For Each ordner In rootverz
For Each datei In ordner
datei.Name = i
Next datei
Next ordner
End Sub
|