Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien aus Ordnerstruktur öffnen
18.06.2018 22:23:40 Wayne
NotSolved
19.06.2018 08:30:36 Gast77560
NotSolved
19.06.2018 11:27:39 Andreas
NotSolved
19.06.2018 11:37:52 Gast39314
NotSolved

Ansicht des Beitrags:
Von:
Wayne
Datum:
18.06.2018 22:23:40
Views:
1243
Rating: Antwort:
  Ja
Thema:
Dateien aus Ordnerstruktur öffnen

Guten Abend ich habe folgendes Problem,

Ich habe einen Prozess welchen ich durch ein Makro automatisieren möchte, welcher wiefolgt die Datei testresult.csv in einem Loop aus einem Ordner öffnet, den Inhalt kopiert und in der Ursprünglichen Mappe in welcher das Makro ist nach einem Muster untereinander einfügt.

Mein Problem dabei ist, dass der Ordner, nennen wir ihn C:\etwas\test noch eine Unterordnerstruktur besitzt aus welcher ich die Datei öffnen möchte. Also veranschaulicht

C:\etwas\test\sample1\results
C:\etwas\test\sample2\results
C:\etwas\test\sample3\results
....
C:\etwas\test\sample1000\results<strong></strong>

Ich weiß allerdings nicht wie ein allgemeiner loop für eine solche Struktur funktioniert.
Hier das Makro, vielen Dank fürs anschauen im Voraus

Public Sub Alle_Dateien()

'//deklarationen
Dim strFileName As String
Dim objWorkbook As Workbook

'//Errorhandler initialisieren
On Error GoTo err_exit

'//erste Excelmappe suchen
strFileName = Dir$("C:\etwas\test\*.csv", vbNormal)

'//wenn eine Excelmappe gefunden wurde
If strFileName <> "testresults.csv" Then

'//Schleife starten
Do

'//Excelmappe öffnen
Set objWorkbook = Workbooks.Open(Filename:=strFileName)


'//Code
'//Excelmappe kopieren
    Worksheets("Tabelle1").Cells.Copy

'//Excelmappe in Zwischenablage einfügen
    With Worksheets("Zwischenspeicher")
        .Cells.PasteSpecial Paste:=xlPasteValues
        .Cells.PasteSpecial Paste:=xlPasteFormats
    End With
    Application.CutCopyMode = False


'//Makro kopieren und einfügen der Daten in nächste freie Zeile von Auswertung

    Worksheets("Auswertung").Rows("3:3").Select
    Selection.Copy
    Worksheets("Auswertung").Range("A" & Cells(Rows.Count, 2).End(xlUp).Row + 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
'//Excelmappe schließen - ohne zu speichern = False / mit speichern = True
objWorkbook.Close SaveChanges:=False

'//nächste Excelmappe suchen
strFileName = Dir$

'//wird keine Mappe mehr gefunde Schleife verlassen
Loop Until strFileName = ""

End If

Exit Sub

err_exit:
MsgBox "Fehler " & CStr(Err.Number) & vbLf & vbLf & _
Err.Description, vbCritical, "Fehlermeldung"

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
Rot Dateien aus Ordnerstruktur öffnen
18.06.2018 22:23:40 Wayne
NotSolved
19.06.2018 08:30:36 Gast77560
NotSolved
19.06.2018 11:27:39 Andreas
NotSolved
19.06.2018 11:37:52 Gast39314
NotSolved