Inhalte von gleichen Exceldateien importieren

Hallo zusammen,
ich habe hier im Archiv schon viele Beispiele und Hilfestellungen zu meinem Problem gefunden, muss aber zugeben, ich bekomms nicht hin :-(. Ich hab folgendes Problem: ich möchte von vielen Exceldateien, die aus zwei Arbeitsblättern bestehen, das zweite Arbeitsblatt in eine separate Exceldatei importieren. Ich denke, dass ganze funktioniert nur mit einem Makro, da ich über importieren immer nur eine Datei ansteuern kann. Es handelt sich dabei aber über 5.000 Dateien und das wäre mir dann doch en bissl viel. Folgende Merkmale haben die Dateien:
- sie befinden sich alle auf dem Laufwerk "H" im Ordner "Aufträge"
- das Arbeitsblatt 2 hat die Bezeichnung "Schlüsselnummern" und ist immer gleich Aufgebaut
- die Daten die ich importieren möchte befinden sich in Zeile A2:AK2 (Zeile 1 ist nur Überschrift die ich nicht importieren möchte)
- die Daten sollen alle in eine neue Excel-Datei untereinander importiert werden (diese hat keinen Namen also "Tabelle1")
- ich arbeite mit Office 2000
- diese Abfrage soll mir nur am Ende eine Anzeige bringen, wenn der Import beendet ist
Wie gesagt, ich hab mir wirklich Mühe gegeben und gesucht, aber ich bekomms nicht hin (liegt aber auch an meinen rudimentären Kenntnissen in VBA). Vielleicht kann mir einer von Euch helfen. Ich wäre Euch wirklich dankbar.
Vorab schon mal ein Danke fürs schauen.
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino,
ich hab nichts am Code geändert. Habe Deine Makros 1zu1 übernommen und lediglich den Pfad korrekt eingegeben. Die fehlenden Anführungszeichen und das Vbound statt Ubound stammen aus meinem abgetippe und der Code wurde nicht verändert. Ich habe hin und her getestet. Mit großer Datei mit kleinen und wie gesagt, 147 Dateien macht er problemlos, bei der 148zigsten kommt der Fehler. Hab auch mal Dateien ausgetauscht ob es daran lag, aber es war egal. Bei 147 is Schluss. Muss aber sagen, die 147 macht er problemlos und genau so hab ich mir das vorgestellt. Vielleicht fällt Dir ja doch noch was ein. Leider steht mir hier auf der Arbeit nur Excel 2000 zur Verfügung.
Grüße
Markus

Sub TestLeseDaten() Dim sFiles As String Dim strPfad As String Dim strFormel As String Dim myAr(), tempAr Dim A As Long, AA As Long 'hier den Pfad angeben ***************************** strPfad = "J:\1 Forum\Aufträge\" 'abschließend auf \ achten UserForm_Anzeige.Repaint Redim Preserve myAr(36, 65535) 'Area groß genug für 65535 Dateien sFiles = Dir$(strPfad & "*.xls") Do While sFiles <> "" For A = 1 To 37 strFormel = "'" & strPfad & "[" & sFiles & "]Schlüsselnummern'!R2C" & A myAr(A - 1, AA) = ExecuteExcel4Macro(strFormel) Next A AA = AA + 1 sFiles = Dir$() Loop Redim Preserve myAr(36, AA - 1) 'neu Dimensionieren tempAr = Application.WorksheetFunction.Transpose(myAr) Range("A2", Cells(Ubound(tempAr) + 1, Ubound(tempAr, 2))) = tempAr Erase myAr: Erase tempAr Unload UserForm_Anzeige End Sub

Sub TestLeseDaten() Dim sFiles As String Dim strPfad As String Dim strFormel As String Dim A As Long, AA As Long Dim iCalc As Integer 'hier den Pfad angeben ***************************** strPfad = "J:\1 Forum\Aufträge\" 'abschließend auf \ achten UserForm_Anzeige.Repaint sFiles = Dir$(strPfad & "*.xls") With Application .ScreenUpdating = False .EnableEvents = False iCalc = .Calculation .Calculation = xlCalculationManual On Error GoTo ErrFehler: AA = 2 Do While sFiles <> "" For A = 1 To 37 strFormel = "'" & strPfad & "[" & sFiles & "]Schlüsselnummern'!R2C" & A Cells(AA, A).Value = ExecuteExcel4Macro(strFormel) Next A AA = AA + 1 sFiles = Dir$() Loop ErrFehler: .ScreenUpdating = True .EnableEvents = True .Calculation = iCalc End With Unload UserForm_Anzeige If Err.Number <> 0 Then MsgBox Err.Number & Chr(13) & Chr(13) & Err.Description, vbCritical, "Fehler" End Sub

Beliebteste Forumthreads (12 Monate)

Inhalte von gleichen Exceldateien importieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalte von gleichen Exceldateien importieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread