Thema Datum  Von Nutzer Rating
Antwort
20.05.2020 18:20:18 Thomas
NotSolved
20.05.2020 21:03:27 Gast51690
NotSolved
Rot Loop für mehrere Dateiimporte die untereinander eingefügt werden sollen
 21.05.2020 16:51:22 Flotter Feger
NotSolved
24.05.2020 15:02:03 Thomas
Solved
24.05.2020 15:15:14 Gast33727
NotSolved
24.05.2020 16:05:25 Thomas
NotSolved
24.05.2020 18:07:15 Flotter Feger
NotSolved
25.05.2020 12:38:19 Gast33727
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
21.05.2020 16:51:22		 Views:
1243		 Rating:
     
Antwort:
  Ja
Thema:
Loop für mehrere Dateiimporte die untereinander eingefügt werden sollen

Hallo

Sub Lesen()
Dim Pfad As String, Datei As String
Dim WB As Workbook, TB As Workbook
Dim WS As Worksheet, TS As Worksheet
Dim i As Long

Set TB = ThisWorkbook ' diese XLSM-Datei
Set TS = TB.Worksheets("Dein_Tabellen_Name") ' anpassen

' Namen in C:\ anzeigen, die Exceldateien darstellen.
Pfad1 = "c:\"    ' Pfad setzen.
Datei = Dir(Pfad1 & "*.xls*") ' Ersten Eintrag abrufen.

i = 3 ' ab Zeile 3 beginnt das Schreiben der Daten
Do While Datei <> ""    ' Schleife beginnen.
    ' Aktuelles und übergeordnetes Verzeichnis ignorieren.
    If Datei <> "." And Datei <> ".." Then
        ' Datei öffnen und auslesen
        Set WB = Workbooks.Opem(Pfad & Datei)
        Set WS = WB.Worksheets("TEST") ' Worksheet definieren
        With WS ' Werte aus Datei auslesen
            TS.Cells(i, 1).Value = .Range("A2").Value
            TS.Cells(i, 2).Value = .Range("E4").Value
            i = i + 1
        End With
        WB.Close False
    End If
    Datei = Dir() ' Nächsten Eintrag abrufen.
Loop
End Sub

Sabina

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
20.05.2020 18:20:18 Thomas
NotSolved
20.05.2020 21:03:27 Gast51690
NotSolved
Rot Loop für mehrere Dateiimporte die untereinander eingefügt werden sollen
 21.05.2020 16:51:22 Flotter Feger
NotSolved
24.05.2020 15:02:03 Thomas
Solved
24.05.2020 15:15:14 Gast33727
NotSolved
24.05.2020 16:05:25 Thomas
NotSolved
24.05.2020 18:07:15 Flotter Feger
NotSolved
25.05.2020 12:38:19 Gast33727
NotSolved