Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen von mehreren Excel Datein
 12.07.2011 14:21:16 Lennart
NotSolved
12.07.2011 19:05:12 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Lennart		 Datum:
12.07.2011 14:21:16		 Views:
1544		 Rating:
     
Antwort:
  Ja
Thema:
Auslesen von mehreren Excel Datein

Hi Leute,

ich versuche mittels vba mehrere Excel Datein nacheinander zu öffnen und kopiere dann ein paar Zellen. Nun habe ich mit On Error versucht Dateien zu überspringen, welche nicht das Worksheet "DB_Real" enthalten. Klappt sowei auch ganz gut.

Einziges Problem: Wenn die letzte Datei das Worksheet nicht enthält, schließt sich auch das Sheet, in welches ich die Daten reinkopiere.

Könnt ihr mir sagen, was bei dem Code geändert werden muss?

Vielen Dank im Vorraus

Fehlerr:
    On Error Resume Next
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("DB_Real")
    If Err.Number <> 0 Then
        ActiveWorkbook.Close (False) ' Aktive Arbeitsmappe schließen
        strFile = Dir ' Nächsten Eintrag abrufen
        GoTo Fehlerr
    End If
    On Error GoTo 0

 

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 Auslesen von mehreren Excel Datein
 12.07.2011 14:21:16 Lennart
NotSolved
12.07.2011 19:05:12 Dekor
NotSolved