Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei aus anderem Ordner öffnen

Forumthread: Datei aus anderem Ordner öffnen

Datei aus anderem Ordner öffnen
siegfried
Hallo zusammen,
ich habe in einem Ordner (VLEin) 10 Dateien (V1 bis V10) mit je einem Arbeitsblatt.
Die Daten dieser 10 Dateien möchte ich per VBA jeweils in ein separates Arbeitsblatt (V1 bis V10) eines anderen Ordners (VL) übertragen.
Die Arbeitsblätter sind identisch aufgebaut.
Kann mir jemand helfen?
Gruß
Siegfried
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei aus anderem Ordner öffnen
05.08.2009 08:48:02
MichaV
Hallo Siegfried,
schreibe diesen Code in eine leere Excel- Mappe und führe ihn aus. Alle Dateien aus strPfadVon werden geöffnet und das erste Blatt wird in eine neu erstellte Mappe mit dem Namen cstrDateiname im Verzeichnis cstrPfadZu kopiert. Die neue Mape wird am Ende nicht geschlossen und nicht gespeichert, so dass Du das Ergebnis überprüfen kannst.
Option Explicit
Sub test()
Dim strDatei
Dim wbkNew As Workbook
Dim wbkOld As Workbook
'Pfad- und Dateinamen anpassen
Const cstrPfadVon = "C:\excel\vlein\"
Const cstrPfadZu = "C:\excel\vla\"
Const cstrDateiname = "neue_mappe.xls"
strDatei = Dir(cstrPfadVon)
If strDatei = "" Then MsgBox "Keine Dateien gefunden": Exit Sub
Set wbkNew = Workbooks.Add
wbkNew.SaveAs (cstrPfadZu & cstrDateiname)
Do While strDatei  ""
Set wbkOld = Workbooks.Open(cstrPfadVon & strDatei)
wbkOld.Worksheets(1).Copy after:=wbkNew.Worksheets(wbkNew.Worksheets.Count)
wbkOld.Close
Set wbkOld = Nothing
strDatei = Dir()
Loop
MsgBox "Fertig"
End Sub
Gruß- Micha
Anzeige
argh, kleine Korrektur...
05.08.2009 08:49:38
MichaV
am Ende besser so:
wbkOld.Close
strDatei = Dir()
Loop
Set wbkOld = Nothing
Set wbkNew = Nothing
MsgBox "Fertig"
End Sub
AW: argh, kleine Korrektur...
05.08.2009 23:48:46
siegfried
hallo Micha,
danke für Deine Mühe. Nachdem ich einige Zeit keine Reaktion hatte, habe ich mich selbst bemüht und einen passenden Code schreiben können, so dass mein Problem gelöst ist.
Trotzdem herzlichen Dank.
Siegfried
Anzeige
;

Forumthreads zu verwandten Themen

Alle Dateien eines (variablen) Ordners öffnen
Sebastian

Hallo Excelperten,
kurz vor dem Wochenende stehe ich mal wieder vor einem VBA-Problem. Hoffe ihr könnt mir weiterhelfen. Und zwar möchte ich alle Dateien eines Ordners öffnen, den ein User beliebig auswählen können soll. Folgenden Code habe ich schon hinbekommen, allerdings ist hier die Pfa...
30.11.2012 16:26:14
Thread-ID: 1288744
5 Beiträge
Anzeige
alle dateien eines Ordners öffnen und Werte kopier
Schmidt

Hallo ihr Helfer in der Not
Ich möchte aus einem Verzeichnis aus allen Dateien (gleich aufgebaut) den Bereich H39:J41 in ein neues Blatt untereinander kopieren. Ich habe mich durch die Recherche gewühlt und einen passenden Code von Fcs gefunden und ein wenig auf meine Bedürfnisse angepasst...
02.09.2014 20:43:27
Thread-ID: 1379580
3 Beiträge
Alle Dateien in einem Ordner öffnen und Code ausfü
pH

Hallo zusammen,
ich habe ein kleines Problemchen, bei dem ich ohne eure Hilfe wohl nicht weiterkomme.
Ich möchte aus einem separaten File heraus alle .XLSM-Dateien im gleichen Verzeichnis öffnen, einen bestimmten Code ausführen und die ganze Geschichte wieder schließen.
So weit, so...
20.05.2015 09:49:01
Thread-ID: 1426851
2 Beiträge
Quelldateien per Befehl aus einem Ordner öffnen
Daniel
Hallo liebes Excel-Forum,
Ich bin neu hier, daher kurz einmal ein paar Eckdaten. Ich heiße Daniel, bin 27 Jahre alt und arbeite im Bereich der Finanzdienstleister. Ich habe eine Deutsche Dogge und beschäftige mich, im Rahmen meines Berufes, aktuell immer mehr mit Excel.
Aktuell habe ich fol...
22.08.2015 18:57:43
Thread-ID: 1443844
17 Beiträge
Datei im aktuellen Ordner öffnen
Ranft

Hallo und guten Morgen,
konnte mir schon einiges aus den Beiträgen herausnehmen, meine jetziges Problem habe ich aber leider nicht gefunden. Ich benötige die Angabe des aktuellen Ordners, in dem sich die geöffnete Datei befindet. Problem ist, dass eine Vorlage geöffnet wurde und das daraus...
08.05.2017 08:37:27
Thread-ID: 1556905
5 Beiträge
Datei im Ordner öffnen per Datum eingabe
Daniel

Hallo zusammen,
ich benötige Hilfe. Aktuell benutze ich folgendes was auch wunderbar funktioniert.
Option Explicit
Const cstrSufix As String = "-9SH3.XLSX" Public Function GetDataClosedWB(SourcePath As String, _ SourceFile As String, sourceSheet As String, _ SourceRange As String, T...
21.11.2017 13:21:28
Thread-ID: 1592688
3 Beiträge
PDF Dateien im selben Projektordner öffnen
Ildar

Guten Abend liebes Forum,
ich hab mal wieder eine Frage.
Im Rahmen einer Belegarbeit für die Uni, besteht das Ziel darin, eine Benutzeranwendung mithilfe von EXCEL und VBA zu erstellen.
Dazu soll die Dokumentation (.pdf) über eine Schaltfläche auf der Mappe geöffnet werden.
...
11.06.2018 00:33:13
Thread-ID: 1628115
6 Beiträge
Anzeige
Viele Dateien aus Ordner öffnen, Spalte kopieren
David

Hallo zusammen,
ich habe ein Problem und hoffe ihr könnt mir helfen. Ich versuche gerade ein Makro zu schreiben, bei dem alle Dateien nacheinander aus einem Bestimmten Verzeichnis geöffnet werden. Dort sind mehrer 100 xlsm Dateien vorhanden, welche alle gleich aufgebaut sind: Tabellenblatt...
26.10.2018 17:55:26
Thread-ID: 1653799
3 Beiträge
Datei einer ordner öffnen
Gilles

hallo leute,
Ich versuche alle csv dateien , die in einem Ordner sind zu öffnen, dann den Inhalt einer Zelle dieser Datei in einer tabelle zu kopieren. leider klappt es nicht und es wird nur einen bezug fehler angezeigt. Ich habe den Code mit xls datei probiert und es hat gekpplat. Hier i...
22.04.2019 11:06:36
Thread-ID: 1688437
15 Beiträge
Mehrere Dateien in einem Ordner öffnen
Stefan

Guten Tag zusammen,
ich bräuchte mal eure Hilfe. Ich möchte gerne Daten aus mehreren Dateien (die alle die selbe Struktur haben und in einem Ordner liegen) zusammen rechnen und in eine neu erstellte Zieldatei einfügen. Das Funktioniert soweit auch, nur würde ich gerne vermeiden das man per...
27.08.2019 17:18:36
Thread-ID: 1709773
4 Beiträge
Batchdatei bearbeiten
Thomy

HalloIch möchte in Excel eine Batch zum Bearbeiten öffnen.
Mit dem folgenden Befehl wird aber die Batchdatei ausgeführt.Dim x as variant
x=shell("C:\Daten\test.bat")Für Tipps im Voraus besten Dank
Thomy

19.05.2003 14:41:15
Thread-ID: 258533
5 Beiträge
excel-makro über batch-datei starten
roland
guten morgen,
ich möchte mit einem excel-makro jeden tag die gleiche datei bearbeiten.
Gibt es die Möglichkeit das Makro über die Batch-Datei mit der
ich die excel.exe lade zu starten?
14.01.2004 06:52:04
Thread-ID: 363387
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige