Thema Datum  Von Nutzer Rating
Antwort
03.04.2014 16:46:27 Chris
NotSolved
03.04.2014 19:10:11 Gast54134
NotSolved
Rot Macro für jede Datei im Ordner durchführen
 03.04.2014 22:02:23 Gast8273
NotSolved

Ansicht des Beitrags:
Von:
Gast8273		 Datum:
03.04.2014 22:02:23		 Views:
1457		 Rating:
     
Antwort:
  Ja
Thema:
Macro für jede Datei im Ordner durchführen		 
Option Explicit

Private Dateizähler As Integer
Private Dateiliste() As String

Sub Test()

Dim MeinPfad As String
Dim MeineDatei As String
Dim x As Integer


Rem die Mappen im Dateiordner
MeinPfad = "C:\Test"
MeineDatei = ActiveWorkbook.Name
Dateizähler = 0 'rücksetzen

MappenSuche MeinPfad, "*.xl*", True 'Aufruf Unterprozedur
If Dateizähler = 0 Then Exit Sub 'keine Dateien

For x = 0 To Dateizähler - 1  'Liste abarbeiten
  If InStr(Dateiliste(0, x), MeineDatei) = 0 Then 'nur anderen aufnehmen
    'Test
    Debug.Print Dateiliste(0, x)
    Debug.Print Dateiliste(1, x)
    '
    'vgl. Workbooks.Open-Methode
    'passe dein Makro ggf. an
    'den Rest schaffste wohl alleine
  End If
Next x
'
End Sub

Private Sub MappenSuche(imOrdner As String, Suchbegriff As String, Unterordner As Boolean)
    Dim oOrdner As Object
    Dim oDatei As Object
    Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    For Each oDatei In oFSO.GetFolder(imOrdner).Files
        If oDatei.Name Like Suchbegriff Then
            ReDim Preserve Dateiliste(0 To 1, Dateizähler)
            Dateiliste(0, Dateizähler) = oDatei.Name
            Dateiliste(1, Dateizähler) = oDatei.Path
            Dateizähler = Dateizähler + 1
        End If
    Next
    'nur wenn Unterordner ebenfalls
    If Unterordner Then
      For Each oOrdner In oFSO.GetFolder(imOrdner).Subfolders
        MappenSuche imOrdner & "\" & oOrdner.Name, Suchbegriff, True
      Next
    End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.04.2014 16:46:27 Chris
NotSolved
03.04.2014 19:10:11 Gast54134
NotSolved
Rot Macro für jede Datei im Ordner durchführen
 03.04.2014 22:02:23 Gast8273
NotSolved