Thema Datum  Von Nutzer Rating
Antwort
04.05.2012 14:47:45 Lars Jago
Solved
04.05.2012 17:29:34 Brumms
NotSolved
04.05.2012 18:24:03 Lars Jago
NotSolved
04.05.2012 19:29:00 Brumms
NotSolved
04.05.2012 23:20:25 Lars Jago
NotSolved
05.05.2012 02:09:05 Brumms
NotSolved
06.05.2012 20:37:32 Till
NotSolved
06.05.2012 20:45:32 Till
NotSolved
07.05.2012 19:53:31 Lars Jago
NotSolved
Blau Unterordner durchsuchen + Datei Import
 08.05.2012 03:48:32 Till
NotSolved
09.05.2012 11:29:04 Lars Jago
NotSolved
09.05.2012 12:08:53 Lars Jago
NotSolved
09.05.2012 13:28:58 Lars Jago
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
08.05.2012 03:48:32		 Views:
1423		 Rating:
     
Antwort:
  Ja
Thema:
Unterordner durchsuchen + Datei Import

Hi,

dazu brauchst du aber auch genau diese Liste, die kannst du dann in einer simplen Schleife durchgehen und jede Datei mit passender Endung öffnen und Daten übertragen...

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Auflisten()
Dim i&, Wb As Workbook
Dim List$()
 
    startListFiles List, "C:\"
    For i = 0 To UBound(List)
        Select Case Left(List(i), 3)
        Case xls, csv, txt, ini
            Set Wb = Workbooks.Open(List(i))
            ActiveSheet.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Wb.Close (False)
        End Select
    Next
 
End Sub

... kopiert jeweils nurr das erste Blatt... und du solltest einen anderen Pfad wählen ;)

 

Gruß

Till

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
04.05.2012 14:47:45 Lars Jago
Solved
04.05.2012 17:29:34 Brumms
NotSolved
04.05.2012 18:24:03 Lars Jago
NotSolved
04.05.2012 19:29:00 Brumms
NotSolved
04.05.2012 23:20:25 Lars Jago
NotSolved
05.05.2012 02:09:05 Brumms
NotSolved
06.05.2012 20:37:32 Till
NotSolved
06.05.2012 20:45:32 Till
NotSolved
07.05.2012 19:53:31 Lars Jago
NotSolved
Blau Unterordner durchsuchen + Datei Import
 08.05.2012 03:48:32 Till
NotSolved
09.05.2012 11:29:04 Lars Jago
NotSolved
09.05.2012 12:08:53 Lars Jago
NotSolved
09.05.2012 13:28:58 Lars Jago
NotSolved