Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel - VBA - Macro - Ordner zugriff - aber nicht auf jeden Subordner

Mitglied: konstmann

konstmann (Level 1) - Jetzt verbinden

02.07.2010, aktualisiert 12:23 Uhr, 5824 Aufrufe, 3 Kommentare

Moin moin,

ich habe noch nie in VBA etwas gemacht und jetzt die Aufgabe bekommen ein vorhandes Macro zu bearbeiten.

Das Macro sucht auf von einem Netzlaufwerk (H: ) ein spezielle Daten und gleicht diese mit den eigenen word-dokumenten in einem eigenen verzeichniss (T: )auf einem anderen netzlaufwerk ab:


Public Const pathH = "\\192.164.100.1\DATEN\DOKUMENT"
Public Const pathT = "T:\MyDocs\Dokument"

Soweit geht ganze auch, allerdings befindet sich in pathH ein Ordner auf den der Zugriff verweigert ist. Dieser Ordner müsst also ausgelassen/ übersprungen werden damit das ganze richtig funktioniert.

Wie kann ich das am besten realisieren?

Noch ein kleiner Code.-Ausschnitt
01.
'Modul für den Ordnerdurchlauf durch H  
02.
 
03.
Public Sub RunThroughFolderH (ByVal searchFolder As Variant, ByRef row As Integer, ByRef line As Integer) 
04.
 
05.
    'Rekursiv werden die einzelnen Ordner und Unterordner durchlaufen und ihre Dateien verglichen 
06.
     
07.
    Dim Ordner As Variant 
08.
    Dim SubOrdner As Variant 
09.
    Dim Datei As Variant 
10.
    Dim gueltig As Boolean 
11.
     
12.
 
13.
    Set Ordner = FSO.GetFolder(searchFolder) 
14.
 
15.
    For Each Datei In Ordner.Files                                         'Durchlaufen jeder Datei im aktuellen Ordner 
16.
        If FM.relevantFile(Datei) = True Then                      'Prüfen auf richtige Dokumentennummern 
17.
            Select Case (FM.gueltig(Datei)) 
18.
                Case True 
19.
                    FM.addToList Datei, row, "Bestand_Hgueltig" 
20.
                Case False 
21.
                    FM.addToList Datei, line, "Bestand_Hungueltig" 
22.
            End Select 
23.
             
24.
        End If 
25.
    Next 
26.
          
27.
    For Each SubOrdner In Ordner.SubFolders                                   '  Durchlaufen jedes Unterordners des aktuellen Ordners 
28.
        RunThroughFolderH SubOrdner.path, row, line             'Rekursiver Aufruf mit einem der Unterordner als neuem Hauptordner 
29.
    Next 
30.
 
31.
End Sub

Vielen Dank schonmal für eure Hilfe

[Edit Biber] Gecodetagged. [/Edit]
Mitglied: bastla
02.07.2010 um 13:51 Uhr
Hallo konstmann und willkommen im Forum!

Entweder an strategisch günstiger Stelle ein "On Error Resume Next" platzieren, oder als Zeile 28:
If LCase(SubOrdner.Path) <> LCase("\\192.164.100.1\DATEN\DOKUMENT\Der\leider\nicht") Then RunThroughFolderH SubOrdner.path, row, line
Grüße
bastla
Bitte warten ..
Mitglied: 76109
02.07.2010 um 14:02 Uhr
Hallo konstmann!

Mhm, bastla war mal wieder schneller

In etwa so:
01.
On Error Resume Next 
02.
 
03.
For Each... 
04.
    If Err.Number = 0 Then 
05.
        Mach was.... 
06.
    Else 
07.
        Err.Clear 
08.
    End If 
09.
Next


Gruß Dieter
Bitte warten ..
Mitglied: konstmann
09.07.2010 um 11:02 Uhr
Perfekt,

so läuft das.
vielen dank!
Bitte warten ..
Ähnliche Inhalte
Windows Tools
Excel Macro
Frage von bob1986Windows Tools3 Kommentare

Hallo allemal Kann mir jemand hiermit helfen mit einer formale oder VBA Ich probiere es mal zu erklären ich ...

VB for Applications
VBA Macro Hilfe benötigt
gelöst Frage von reissaus73VB for Applications6 Kommentare

Ich habe eine Frage zu einem Macro. Und zwar habe ich in einer Excel Datei folgende Spalten A Incident ...

VB for Applications
EXCEL Macro oder ähnliches gesucht
gelöst Frage von reissaus73VB for Applications3 Kommentare

Wer kann mir zu folgender Frage Hilfe geben. Ich suche eine Variante mit welcher sich die verbrauchte Zeit in ...

VB for Applications
Excel Macro ODBC Abfrage
gelöst Frage von highpriestVB for Applications7 Kommentare

Hallo Experten! Da ich nicht viel Ahnung davon habe, bitte ich Euch um Hilfe. Ich suche nach eine Möglichkeit ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 14 StundenHumor (lol)3 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 1 TagSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware16 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...