Batchbearbeitung
Christian
habe Probleme mit "alten" makros die im aktuellen Excel nicht mehr funktionieren wollen. Hoffe Ihr könnt mir den entscheidenden Tipp zur Lösung des Problems geben.
Und zwar hatte ich das folgende Marko um eine Batchbearbeitung mit Excel durchzuführen. Möchte alle Asci Dateien in einem Verzeichnis in Excel nacheinander importieren, bearbeiten und dann als Excelfile abspeichern.
Dazu hatte ich bisher den folgenden Code verwendet:
_________________________________
Sub Batch_Bearbeitung()
' Ganzen Pfad abarbeiten
Dim dateiSuche As Object
Dim i As Long
Dim Schalter As Integer
' Hiermit werden alle SubFolder durchsucht!
Schalter = 0
Application.GetOpenFilename ("ASCII-Datei, *.*")
Set dateiSuche = Application.FileSearch
With dateiSuche
.LookIn = CurDir
.Filename = "*.asc"
.SearchSubFolders = True 'bei True werden alle Unterverzeichnisse mit durchsucht
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
datennummer = i
neuDatei = .FoundFiles(i)
' Nun startet die eigentliche Bearbeitung!
Modul1.ASCII_Import
Modul1.Arbeitsmappe_speichern
Schalter = 1
' Hier endet die eigentliche Bearbeitung!
Next i
End If
End With
MsgBox "Fertig! Die Arbeitsmappen wurden im Pfad der ASCII-Dateien gespeichert!"
End Sub
_________________________________
Leider funktioniert das mit dem neuen Excel nicht mehr. Es steigt mir bei "Application.FileSearch" mit "Objekt unterstütz diese Aktion nicht" aus.
Hoffe Ihr habt eine Idee wie ich das wieder fixen kann?
Grüße Christian