Office: Dateien aus einem Ordner importieren

Hallo Leute,

ich habe eine Frage zu einem recht kleinen Makro, komme aber selbst nicht mehr weiter.

Ausgangstellung: Ich habe einen Ordner in dem mehrere Excel Dateien liegen, die jeweils nur aus einem Excel Sheet bestehen.
Bsp.: C:XYDatei1.xlsx C:XYDatei2.xlsx ...usw.

Ich habe eine Zieldatei bei der auf Druck auf einen Button folgendes passieren soll.

1. öffnen von Datei1 in Ordner C:XY
2. Inhalt kopieren
3. In Zieldatei neues Sheet erstellen das den gleiche Namen wie Datei 1 hat
4. Inhalt einfügen
5. Datei 1 schließen
6. öffnen von Datei 2 in Ordner C:XY
7. Inhalt kopieren
usw
usw.
8. Vorgang wiederholen bis alle Dateien importiert sind
9. MsgBox mit der Info das Vorgang beendet ist

Optional wäre noch recht cool wenn ich nach betätigen des Buttons den Ordner der Quelldateien angeben könnte.

Prinzipiell bin ich recht neu in der VBA-Programmierung und tue mir sehr schwer mit jeglicher Art von schleifen. Bisher bin ich immer hier fündig geworden und hoffe deshalb auf eure Hilfe. Alles was ich bisher durch Suchen der Problemstellung gefunden habe führte letztlich nicht zum gewünschten Ziel.

Ich hoffe ihr könnte mir weiterhelfen.
Für eure Mühe jetzt schonmal Danke! *cool.gif*

:)

 

Hi,

versuche es mal auf diesem Weg:

Code:

 

Schhon mal Danke für die schnelle Antwort:

1.) zu deiner Variante:

Leider passiert um ehrlich zu sein bisher nichts.

Ich wähle den Ordner aus. Das Fenster schließt sich und fertig.
Hab es mal schritt für schritt ablaufen lassen.
Er spingt grundsätzlich immer von Zeile:

Do While strDateiname ""

zu

Application.ScreenUpdating = True

Als ob keine Dateien vorhanden sind.*frown.gif*
Im Auswahlfenster "Ordnerauswahl" steht immer "Es wurden keine Sucherergebnisse gefunden". Egal welchen Ordner ich Auswähle. Da wir nur den Ordner bestimmen, denke ich aber das das normal ist.

2.)
Hab es mal etwas verändert.

Sub Import()
Dim strDateiname As String
Dim strVerzeichnis As String
strVerzeichnis = "C:Mein Ordnername"
If strVerzeichnis "" Then
Application.ScreenUpdating = False
strDateiname = Dir(strVerzeichnis & "*.xlsx") '

 

Hallo DShadowK,

durch einen Foren-Software-Fehler ist in Karins Code in 1 Zeile das Backslash-Zeichen verloren gegangen:
strDateiname = Dir(strVerzeichnis & "\*.xlsx") '

 

Adlerauge! Danke dafür.
Ein Problem gelöst -> Erschaffen eines Neuen:

Scheinbar gibt es noch einen winzigen Fehler. Es kommt folgende Meldung:
"Leider Konnte 'C:/Test/QuelleDatei1.xlsx' nicht gefeunden werden....usw"

Es verschlingt als das Slash zwischen dem Ordner "Quelle" und der ExcelDatei "Datei1.xlse

Btw.: Wie schreibe ich ein Slash hier im Forum / das hier umgedreht*boah

 

Hallo DShadowK,

gleiches Problem:
Workbooks.Open Filename:=strVerzeichnis & "\" & strDateiname

Um das '\'-Zeichen trotzdem hier anzeigen zu können, verdopple ich es einfach, was auf die Dauer natürlich total lästig ist und es komplizierter macht, bereit vorhandenen Code aus der Vba-Schatztruhe hier einfach zu posten.

Gruß von Luschi
aus klein-Paris

 

Super Danke. Das klappt soweit.

Neues Problem.

Ich denke es gibt einen fehler im eigentlichen Loop.
ich versuche den Loop einmal zu beschreiben.

Ich wähle den Ordner aus.
Er öffnet Datei 1
Kopiert diese in Zieldatei
Benennt Sie um
Schließt Zieldatei
Programm stoppt

Wenn ich das Makro Schrittweise ausführen lassen
Stoppt es bei der Zeile:

ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = Application.Substitute(strDateiname, ".xlsx", "")

Ich kann dann F8 drücken wie ich möchte. es passiert erst wieder etwas wenn ich den VBA Editor wieder als aktives Fenster setzte.
Hoffe meine Beschreibung ist ausreichend... *rolleyes.gif*

Trotzdem schonmal danke bis hierher!

 

Im Einzelschrittmodus stoppt der Code an dieser Stelle mit der Anzeige: "Code kann im Haltemodus nicht ausgeführt werden" und einem Ok- und einem Hilfe-Button - oder sehe ich das falsch? Das ist normal und musst du mit Ok bestätigen.

Versuche es mit diesem geänderten Code:

Code:

 

Es funktioniert einwandfrei! *Smilie
Euch allen 1000 Dank!!

Der gesamte Code lautet nun wie folgt:
Code: