Thema Datum  Von Nutzer Rating
Antwort
11.10.2019 15:49:10 Peter
NotSolved
11.10.2019 15:50:33 Torsten
NotSolved
11.10.2019 15:55:54 Peter
NotSolved
11.10.2019 15:59:07 Mase
NotSolved
11.10.2019 16:08:01 Peter
NotSolved
Blau Import viele Excel Files
 11.10.2019 16:30:19 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
11.10.2019 16:30:19		 Views:
446		 Rating:
     
Antwort:
  Ja
Thema:
Import viele Excel Files

Ach komm, hat sich angeboten - es darf gelacht werden :)

Ohne grosse Fehlerbehandlung und unter der Voraussetzung, dass alle zu importierenden *.xlsx Files im selben Ordner sind.

Versuchs mal, ob ich auch richtig verstanden habe...

 

Option Explicit

Sub Import1stLineOfXLSfiles()
    Dim wksZiel As Worksheet
    Dim wksQuelle As Worksheet
    Dim wkb As Workbook
    Dim sFile As String, sPfad As String
    Dim lngLastRow As Long
    '
    Set wksZiel = ThisWorkbook.Worksheets(1)
    '
    sPfad = ThisWorkbook.Path & Application.PathSeparator
    sFile = Dir("*.xlsx")
    '
    While sFile <> "" And sFile <> ThisWorkbook.Name
        'Debug.Print sFile
        With wksZiel
            lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        End With
        '
        Set wkb = Workbooks.Open(sFile)
        Set wksQuelle = wkb.Worksheets(1)
        wksQuelle.Rows(1).Copy
        wksZiel.Rows(lngLastRow + 1).Insert
        Application.CutCopyMode = False
        wkb.Close False
        sFile = Dir
    Wend
    '
    Set wksZiel = Nothing: Set wksQuelle = Nothing: Set wkb = Nothing
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
11.10.2019 15:49:10 Peter
NotSolved
11.10.2019 15:50:33 Torsten
NotSolved
11.10.2019 15:55:54 Peter
NotSolved
11.10.2019 15:59:07 Mase
NotSolved
11.10.2019 16:08:01 Peter
NotSolved
Blau Import viele Excel Files
 11.10.2019 16:30:19 Mase
NotSolved